/[A3C]/lib/JiftyModelCreator.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/JiftyModelCreator.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 179 by dpavlin, Mon Jun 16 19:40:21 2008 UTC revision 180 by dpavlin, Mon Jun 16 19:42:44 2008 UTC
# Line 12  sub write { Line 12  sub write {
12          my ( $ModelName, $model, $create ) = @_;          my ( $ModelName, $model, $create ) = @_;
13    
14  my $model_path = "lib/A3C/Model/$ModelName.pm";  my $model_path = "lib/A3C/Model/$ModelName.pm";
15    
16    $model_path .= '.orig' if -e $model_path;
17    
18  write_file( $model_path, $model );  write_file( $model_path, $model );
19  print "Created $model_path\n";  print "Created $model_path\n";
20    
# Line 81  foreach my $round ( 1 .. 2 ) { Line 84  foreach my $round ( 1 .. 2 ) {
84  }  }
85    
86  my $test_path = "t/00-model-$ModelName.t";  my $test_path = "t/00-model-$ModelName.t";
87    $test_path .= '.orig' if -e $test_path;
88  write_file( $test_path, $test );  write_file( $test_path, $test );
89  print "Created $test_path\n";  print "Created $test_path\n";
90  chmod 0755, $test_path;  chmod 0755, $test_path;
Legend:
Removed from v.179  
changed lines
  Added in v.180
  ViewVC Help
Powered by ViewVC 1.1.26