Changeset 3681 for lang/perl/Archer

Timestamp:

12/28/07 11:23:11 (5 years ago)

Author:

tokuhirom

Message:

r3612@mnk (orig r262): tokuhiro | 2007-02-14 20:22:02 -0800
enable the --skip=foo option.

Location:

lang/perl/Archer

Files:

• archer.pl (modified) (1 diff)
• lib/Archer.pm (modified) (1 diff)

lang/perl/Archer/archer.pl

@@ -33 +33 @@
             dry_run_fg     => $dry_run_fg,
             parallel_num   => $fork_num,
-            skips          => $skips,
+            skips          => +{ map { $_ => 1 } split /,/, $skips},
             config_yaml    => $config,
             argv_str       => $argv_str,

lang/perl/Archer/lib/Archer.pm

@@ -45 +45 @@
     $self->log('info' => "run hook $hook");
     for my $plugin (@{ $self->{config}->{tasks}->{$hook} }) {
+        if ($self->{skips}->{$plugin->{name}}) {
+            $self->log(info => "skipped: $plugin->{name}");
+            next;
+        }
+
         my $class = "Archer::Plugin::$plugin->{module}";
         $self->log('debug' => "load $class");