Changeset 19992

Show
Ignore:
Timestamp:
09/27/08 03:45:38 (5 years ago)
Author:
vkgtaro
Message:
  • yaml で key を設定すると name の引数で置き換えられるように変更
    • ex) kry: module とすると [* module *] や module が $config->{name} に置き換わる
  • こんなんでよかったですか
Location:
lang/perl/App-Starter/trunk
Files:
19 added
2 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/App-Starter/trunk/Changes

    r9022 r19992  
    11Revision history for App-Starter 
     2 
     30.14    2008-09-27T03:33:47+09:00 
     4        - yaml で key を設定すると name の引数で置き換えられるように変更 
     5          ex) kry: module とすると [* module *] や __module__ が $config->{name} に置き換わる 
     6        - 日本語で書いちゃってるけど、適当に置き換えて！ >_< 
     7        - added test for created directory list. 
    28 
    390.13    2008-04-06/23:26 

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

    r9022 r19992  
    2727    $config->{replace} = $self->{replace} ? $self->{replace} : {}; 
    2828    $config->{ignore}  = $self->{ignore}  ? $self->{ignore}  : []; 
    29     $config->{from}      = $self->{from}      if $self->{from}; 
    30     $config->{name}      = $self->{name}      if $self->{name}; 
     29    $config->{from}    = $self->{from}      if $self->{from}; 
     30    $config->{name}    = $self->{name}      if $self->{name}; 
    3131    $config->{tag_style} = $self->{tag_style} if $self->{tag_style}; 
    3232    $config->{template}  = $self->{template}  if $self->{template}; 
    … …  
    6767        push @{ $config->{ignore} }, @{ $config_from_file->{ignore} } 
    6868            if $config_from_file->{ignore}; 
     69    } 
     70 
     71    if ( $config->{name} && $config->{key} ) { 
     72        $config->{replace}->{$config->{key}} = $config->{name}; 
    6973    } 
    7074 
    … …  
    188192 
    189193 name    : my_app  # ${current_dir}/my_app is created as new appication skeleton 
     194 key     : app     # override to replace key to name. $config->{replace}->{$config->{key}} = $config->{name} 
    190195 from    : /foo/bar/my-skell # where to fine your skel setup. if you use ~/.app-starter then you do not need this. 
    191196 tag_style : star # SEE ALSO L<Template> TAG_STYLE OPTION