Add the --event option to log.

sqitchers · Jul 10, 2012 · ab9d049 · ab9d049
1 parent 1dc2e72
commit ab9d049
Show file tree

Hide file tree

Showing 2 changed files with 21 additions and 0 deletions.
diff --git a/lib/App/Sqitch/Command/log.pm b/lib/App/Sqitch/Command/log.pm
@@ -61,6 +61,11 @@ EOF
 
 $FORMATS{oneline} = '%h %l %c';
 
+has event => (
+    is      => 'ro',
+    isa     => 'ArrayRef',
+);
+
 has change_pattern => (
     is      => 'ro',
     isa     => 'Str',
@@ -196,6 +201,7 @@ has formatter => (
 
 sub options {
     return qw(
+        event=s@
         change-pattern|change|c=s
         actor-pattern|actor|a=s
         max-count|n=i
@@ -278,6 +284,7 @@ sub execute {
 
     # Search the event log.
     $iter = $engine->search_events(
+        event     => $self->event,
         change    => $self->change_pattern,
         actor     => $self->actor_pattern,
         limit     => $self->max_count,

diff --git a/lib/sqitch-log.pod b/lib/sqitch-log.pod
@@ -18,6 +18,20 @@ expressions, and limit the results.
 
 =over
 
+=item C<--event>
+
+Filter by event type. May be specified more than once. Allowed values are:
+
+=over
+
+=item * C<deploy>
+
+=item * C<revert>
+
+=item * C<fail>
+
+=back
+
 =item C<--change-pattern>
 
 =item C<--change>