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; |
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 |