[Bps-public-commit] r10742 - Shipwright/lib/Shipwright/Script

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Feb  6 19:18:31 2008
New Revision: 10742

Modified:
   Shipwright/lib/Shipwright/Script/Import.pm

Log:
added skip arg for import

Modified: Shipwright/lib/Shipwright/Script/Import.pm
==============================================================================
--- Shipwright/lib/Shipwright/Script/Import.pm	(original)
+++ Shipwright/lib/Shipwright/Script/Import.pm	Wed Feb  6 19:18:31 2008
@@ -7,7 +7,7 @@
 use base qw/App::CLI::Command Class::Accessor::Fast/;
 __PACKAGE__->mk_accessors(
     qw/repository log_level comment source follow build_script require_yml
-      source_name test_script extra_tests overwrite min_perl_version/
+      source_name test_script extra_tests overwrite min_perl_version skip/
 );
 
 use Shipwright;
@@ -34,6 +34,7 @@
         'extra-tests=s'    => 'extra_tests',
         'overwrite'        => 'overwrite',
         'min-perl-version' => 'min_perl_version',
+        'skip=s'           => 'skip',
     );
 }
 
@@ -47,7 +48,8 @@
     my $source = shift;
 
     $self->source($source) if $source;
-    $self->follow( 1 ) unless defined $self->follow;
+    $self->follow(1) unless defined $self->follow;
+    $self->skip( [ split /\s*,\s*/, $self->skip || '' ] );
 
     for (qw/repository source/) {
         die "need $_ arg" unless $self->$_();
@@ -68,6 +70,7 @@
         source_name      => $self->source_name,
         follow           => $self->follow,
         min_perl_version => $self->min_perl_version,
+        skip             => $self->skip,
     );
 
     if ( $self->source ) {
@@ -98,9 +101,9 @@
         }
 
         $shipwright->backend->import(
-            source    => $self->source,
-            comment   => $self->comment || 'import ' . $self->source,
-            overwrite => 1,  # import anyway for the main dist
+            source  => $self->source,
+            comment => $self->comment || 'import ' . $self->source,
+            overwrite => 1,    # import anyway for the main dist
         );
         $shipwright->backend->import(
             source       => $self->source,