[Bps-public-commit] r11076 - in Shipwright/trunk/lib: Shipwright/Script

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon Mar 17 09:27:46 2008
New Revision: 11076

Modified:
   Shipwright/trunk/lib/Shipwright.pm
   Shipwright/trunk/lib/Shipwright/Script/Build.pm

Log:
added flags arg for build cmd

Modified: Shipwright/trunk/lib/Shipwright.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright.pm	(original)
+++ Shipwright/trunk/lib/Shipwright.pm	Mon Mar 17 09:27:46 2008
@@ -46,6 +46,7 @@
     force: force install even if tests fail. default is false
     only_test: not install, just test. (used for already installed dists)
                 default is false
+    flags: flags for building. default is { default => 1 }
 
 =cut
 

Modified: Shipwright/trunk/lib/Shipwright/Script/Build.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Build.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Build.pm	Mon Mar 17 09:27:46 2008
@@ -7,7 +7,7 @@
 use base qw/App::CLI::Command Class::Accessor::Fast Shipwright::Script/;
 __PACKAGE__->mk_accessors(
     qw/repository log_level install_base build_base skip skip_test only_test
-      force log_file/
+      force log_file flags/
 );
 
 use Shipwright;
@@ -40,13 +40,21 @@
     die "need repository arg" unless $self->repository;
 
     $self->skip( { map { $_ => 1 } split /\s*,\s*/, $self->skip || '' } );
+    $self->flags(
+        {
+            default => 1,
+            map { $_ => 1 } split /\s*,\s*/, $self->flags || ''
+        }
+    );
 
     my $shipwright = Shipwright->new(
         repository => $self->repository,
         log_level  => $self->log_level,
         log_file   => $self->log_file,
         skip       => $self->skip,
+        flags      => $self->flags,
     );
+
     $shipwright->backend->export( target => $shipwright->build->build_base );
     $shipwright->build->skip_test(1) if $self->skip_test;
     $shipwright->build->run( map { $_ => $self->$_ }