/[Frey]/trunk/lib/Frey/ClassCreator.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 /trunk/lib/Frey/ClassCreator.pm

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

revision 679 by dpavlin, Tue Dec 2 02:31:58 2008 UTC revision 680 by dpavlin, Tue Dec 2 10:39:06 2008 UTC
# Line 31  sub path_size { Line 31  sub path_size {
31          return $path;          return $path;
32  }  }
33    
34  sub create_class_source_as_data {  sub create_class_source_as_markup {
35          my ($self) = @_;          my ($self) = @_;
36    
37          my $class = $self->class;          my $class = $self->class;
# Line 61  sub create_class_source_as_data { Line 61  sub create_class_source_as_data {
61          $code = read_file( 't/30-frey-skeleton.t' );          $code = read_file( 't/30-frey-skeleton.t' );
62          $code =~ s{$skeleton}{$class}g;          $code =~ s{$skeleton}{$class}g;
63          write_file( $test_path, $code );          write_file( $test_path, $code );
64            chmod 0755, $test_path;
65          warn "# created class $class at ", path_size($test_path);          warn "# created class $class at ", path_size($test_path);
66          system "svk add $test_path" if $self->svk_add;          system "svk add $test_path" if $self->svk_add;
67    
68          return $code;          my $html
69                    = qq|Created "$class" and $test_path|
70                    ;
71    
72            $html = $self->editor_links( $html );
73    
74            return $html;
75  }  }
76    
77  =head1 DESCRIPTION  =head1 DESCRIPTION

Legend:
Removed from v.679  
changed lines
  Added in v.680

  ViewVC Help
Powered by ViewVC 1.1.26