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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu Jun 26 18:21:07 2008
New Revision: 13621

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Script.pm
   Shipwright/trunk/lib/Shipwright/Script/Build.pm
   Shipwright/trunk/lib/Shipwright/Script/Create.pm
   Shipwright/trunk/lib/Shipwright/Script/Delete.pm
   Shipwright/trunk/lib/Shipwright/Script/Flags.pm
   Shipwright/trunk/lib/Shipwright/Script/Import.pm
   Shipwright/trunk/lib/Shipwright/Script/Ktf.pm
   Shipwright/trunk/lib/Shipwright/Script/List.pm
   Shipwright/trunk/lib/Shipwright/Script/Maintain.pm
   Shipwright/trunk/lib/Shipwright/Script/Rename.pm
   Shipwright/trunk/lib/Shipwright/Script/Update.pm

Log:
 r13848 at sunnavys-mb:  sunnavy | 2008-06-27 05:10:50 +0800
 refactor a bit


Modified: Shipwright/trunk/lib/Shipwright/Script.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script.pm	Thu Jun 26 18:21:07 2008
@@ -2,7 +2,9 @@
 use strict;
 use warnings;
 use App::CLI;
-use base qw/App::CLI/;
+use base qw/App::CLI Class::Accessor::Fast/;
+
+__PACKAGE__->mk_accessors( qw/repository log_file log_level/ );
 
 =head2 alias
 =cut

Modified: Shipwright/trunk/lib/Shipwright/Script/Build.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Build.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Build.pm	Thu Jun 26 18:21:07 2008
@@ -6,7 +6,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
+    qw/build_base skip skip_test only_test
       force log_file flags name perl only with/
 );
 

Modified: Shipwright/trunk/lib/Shipwright/Script/Create.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Create.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Create.pm	Thu Jun 26 18:21:07 2008
@@ -4,8 +4,7 @@
 use warnings;
 use Carp;
 
-use base qw/App::CLI::Command Class::Accessor::Fast Shipwright::Script/;
-__PACKAGE__->mk_accessors(qw/repository log_level log_file/);
+use base qw/App::CLI::Command Shipwright::Script/;
 
 use Shipwright;
 use File::Spec;

Modified: Shipwright/trunk/lib/Shipwright/Script/Delete.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Delete.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Delete.pm	Thu Jun 26 18:21:07 2008
@@ -5,7 +5,7 @@
 use Carp;
 
 use base qw/App::CLI::Command Class::Accessor::Fast Shipwright::Script/;
-__PACKAGE__->mk_accessors(qw/repository log_level log_file name/);
+__PACKAGE__->mk_accessors(qw/name/);
 
 use Shipwright;
 use File::Spec;

Modified: Shipwright/trunk/lib/Shipwright/Script/Flags.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Flags.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Flags.pm	Thu Jun 26 18:21:07 2008
@@ -6,7 +6,7 @@
 
 use base qw/App::CLI::Command Class::Accessor::Fast Shipwright::Script/;
 __PACKAGE__->mk_accessors(
-    qw/repository log_level log_file name add delete set mandatary/);
+    qw/name add delete set mandatary/);
 
 use Shipwright;
 use List::MoreUtils qw/uniq/;

Modified: Shipwright/trunk/lib/Shipwright/Script/Import.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Import.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Import.pm	Thu Jun 26 18:21:07 2008
@@ -6,9 +6,8 @@
 
 use base qw/App::CLI::Command Class::Accessor::Fast Shipwright::Script/;
 __PACKAGE__->mk_accessors(
-    qw/repository log_level comment source no_follow build_script require_yml
-      name test_script extra_tests overwrite min_perl_version skip log_file
-      version/
+    qw/comment source no_follow build_script require_yml
+      name test_script extra_tests overwrite min_perl_version skip version/
 );
 
 use Shipwright;

Modified: Shipwright/trunk/lib/Shipwright/Script/Ktf.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Ktf.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Ktf.pm	Thu Jun 26 18:21:07 2008
@@ -5,7 +5,7 @@
 use Carp;
 
 use base qw/App::CLI::Command Class::Accessor::Fast Shipwright::Script/;
-__PACKAGE__->mk_accessors(qw/repository log_level log_file name set delete/);
+__PACKAGE__->mk_accessors(qw/name set delete/);
 
 use Shipwright;
 use List::MoreUtils qw/uniq/;

Modified: Shipwright/trunk/lib/Shipwright/Script/List.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/List.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/List.pm	Thu Jun 26 18:21:07 2008
@@ -6,7 +6,7 @@
 
 use base qw/App::CLI::Command Class::Accessor::Fast Shipwright::Script/;
 __PACKAGE__->mk_accessors(
-    qw/repository log_level log_file name with_latest_version only_update/);
+    qw/name with_latest_version only_update/);
 
 use Shipwright;
 

Modified: Shipwright/trunk/lib/Shipwright/Script/Maintain.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Maintain.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Maintain.pm	Thu Jun 26 18:21:07 2008
@@ -6,8 +6,8 @@
 
 use base qw/App::CLI::Command Class::Accessor::Fast Shipwright::Script/;
 __PACKAGE__->mk_accessors(
-    qw/repository log_level update_order keep_recommends
-      keep_build_requires keep_requires for_dists log_file/
+    qw/update_order keep_recommends
+      keep_build_requires keep_requires for_dists/
 );
 
 use Shipwright;

Modified: Shipwright/trunk/lib/Shipwright/Script/Rename.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Rename.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Rename.pm	Thu Jun 26 18:21:07 2008
@@ -5,7 +5,7 @@
 use Carp;
 
 use base qw/App::CLI::Command Class::Accessor::Fast Shipwright::Script/;
-__PACKAGE__->mk_accessors(qw/repository log_level log_file name new_name/);
+__PACKAGE__->mk_accessors(qw/name new_name/);
 
 use Shipwright;
 use File::Spec;

Modified: Shipwright/trunk/lib/Shipwright/Script/Update.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Update.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Update.pm	Thu Jun 26 18:21:07 2008
@@ -6,7 +6,7 @@
 
 use base qw/App::CLI::Command Class::Accessor::Fast Shipwright::Script/;
 __PACKAGE__->mk_accessors(
-    qw/repository log_level name all follow log_file builder utility version/);
+    qw/name all follow builder utility version/);
 
 use Shipwright;
 use File::Spec;