Changeset 8492 for lang/perl/App-Starter

Timestamp:

03/29/08 12:28:40 (8 months ago)

Author:

tomyhero

Message:

lang/perl/App-Starter : pod fix

Location:

lang/perl/App-Starter/trunk

Files:

• bin/app-starter-catalyst.pl (added)
• bin/app-starter.pl (modified) (2 diffs)
• lib/App/Starter.pm (modified) (5 diffs)
• sample/skel/app-catalyst (moved) (moved from lang/perl/App-Starter/trunk/sample/skel/oreore-catalyst)

lang/perl/App-Starter/trunk/bin/app-starter.pl

@@ -6 +6 @@
 use App::Starter;
 use Getopt::Long;
+use Pod::Usage;
 
-my %opt;
-GetOptions( \%opt, 'config=s' , 'name=s' , 'template=s' );
+
+GetOptions( \my %opt, 'config=s' , 'name=s' , 'template=s' );
+
 App::Starter->new( { config => $opt{config} , name => $opt{name} , template => $opt{template}  } )->create;
 
@@ -22 +24 @@
  app-script.pl --config conf/your-config.yml --name my_application
 
- #or even 
+ #or you can use ~/.app-starter/skell/your_skel  ~/.app-starter/conf/your_skel.yml with --template setting
  
  app-script.pl --template your_skel  --name my_application

lang/perl/App-Starter/trunk/lib/App/Starter.pm

@@ -13 +13 @@
 use base qw/Class::Accessor/;
 
-our $VERSION = '0.04';
+our $VERSION = '0.06';
 
 my $DIR = {};
 
-__PACKAGE__->mk_accessors(qw/config name from replace ignore tag_style template/);
+__PACKAGE__->mk_accessors(
+    qw/config name from replace ignore tag_style template/);
 
 sub create {
@@ -29 +30 @@
     $config->{name}      = $self->{name}      if $self->{name};
     $config->{tag_style} = $self->{tag_style} if $self->{tag_style};
-    $config->{template}  = $self->{template} if $self->{template};
+    $config->{template}  = $self->{template}  if $self->{template};
 
     if ( $config->{template} ) {
-        $config->{from}     = File::Spec->catfile( $ENV{HOME} , '/.app-starter/skel', $config->{template} ) ;
-        $self->{config} =  File::Spec->catfile( $ENV{HOME} , '/.app-starter/conf' , $config->{template} . '.yml' );
-    };
+        $config->{from}
+            = File::Spec->catfile( $ENV{HOME}, '/.app-starter/skel',
+            $config->{template} );
+
+        my $conf_file = '';
+        if (-e  File::Spec->catfile( $ENV{HOME}, '/.app-starter/conf', $config->{template} . '.yml' ) ) {
+            $conf_file =  File::Spec->catfile( $ENV{HOME}, '/.app-starter/conf', $config->{template} . '.yml' ) ;    
+        }
+        else {
+            $conf_file = File::Spec->catfile(  $ENV{HOME}, '/.app-starter/conf', $config->{template} . '.yaml' );
+        }
+
+        $self->{config} = $conf_file ;
+    }
 
     if ( $self->{config} ) {
@@ -44 +56 @@
     my $name      = $config->{name};
     my $tag_style = $config->{tag_style} || 'template';
-
-
 
     # check
@@ -121 +131 @@
 =head1 SYNPSYS
 
- my $app = App::Starter->new( { config => ' /home/tomyhero/work/App-Starter/conf/config.yaml' } )->create;
+
+ my $app = App::Starter->new( { config => ' /home/tomyhero/work/App-Starter/conf/config.yml' } )->create;
+
+ # or
+ # from = 'tmp/a' , replace => { module => 'MyApp' } overwrite config.yml setting.
+ my $app = App::Starter->new( { config => ' /home/tomyhero/work/App-Starter/conf/config.yml' ,  from => '/tmp/a' , name => 'my_app' , replace => { module => 'MyApp' } } )->create;
  
- # or
+ # or even you can use ~/.app-sterter 
 
- my $app = App::Starter->new( { config => ' /home/tomyhero/work/App-Starter/conf/config.yaml' ,  from => '/tmp/a' , name => 'my_app' , replace => { module => 'MyApp' } } )->create;
- 
- # or
- # This setting map to ~/.app-starter/skell/pand/* as from and ~/.app-starter/conf/panda.yml  as config
- my $app = App::Starter->new( { template => 'panda' , name =>'foo'  } )->create;
+ #~/.app-starter
+ #|-- conf
+ #|   `-- sample.conf
+ #`-- skel
+ #    `-- sample
+ #        |-- bin
+ #        |   `-- __app__.pl
+ #        `-- lib
+ #            `-- __app__
+ #                `-- Foo.pm
+ my $app = App::Starter->new( { template => 'sample' , name =>'foo'  } )->create;
 
 =head1 DESCRIPTION
 
-you can start your project easier once you craete start files with this module. This module only does is rename key to value. in your template file , you can set like this  [% key_name %]
+you can start your application quickly once you craete skelton with this module. This module only does is rename key to value. in your template file , you can set like this  [% key_name %]
 which replace with value you set in config. and also you can use __key_name__ format as file or directory name which replace as rule you set at config
 
 =head1 CONFIG
 
- name    : my_app
- from    : /foo/bar/my-skell
- # tag_style : star # SEE ALSO L<Template> TAG_STYLE OPTION
- ignore  :
+ name    : my_app  # ${current_dir}/my_app is created as new appication skelton
+ from    : /foo/bar/my-skell # where to fine your skel setup. if you use ~/.app-starter then you do not need this.
+ tag_style : star # SEE ALSO L<Template> TAG_STYLE OPTION
+ ignore  :   # you want to ignore some of files or directories
     - \.svn
     - \.cvs
- replace :
+ replace :   # rule for replace key : value 
     module : MyApp
 
@@ -151 +172 @@
 =head2 new
 
-constractor
+ constractor
 
 =head2 create