24 |
default => 0, |
default => 0, |
25 |
); |
); |
26 |
|
|
|
sub path_size { |
|
|
my $path = shift; |
|
|
$path .= ' ' . ( -s $path ) . ' bytes'; |
|
|
warn "# path_size: $path"; |
|
|
return $path; |
|
|
} |
|
|
|
|
27 |
sub create_class_source_as_markup { |
sub create_class_source_as_markup { |
28 |
my ($self) = @_; |
my ($self) = @_; |
29 |
|
|
37 |
$test_path =~ s{::}{-}; |
$test_path =~ s{::}{-}; |
38 |
$test_path = "t/30-$test_path.t"; |
$test_path = "t/30-$test_path.t"; |
39 |
|
|
40 |
die qq|class "$class" exists |, path_size($class_path) if -e $class_path; |
die qq|class "$class" exists as |, $self->path_size($class_path) if -e $class_path; |
41 |
die qq|test for "$class" exists |, path_size($class_path) if -e $class_path; |
die qq|class "$class" test exists as |, $self->path_size($test_path) if -e $test_path; |
42 |
|
|
43 |
warn "## path $class_path"; |
warn "## path $class_path"; |
44 |
$self->mkbasepath( $class_path ); |
$self->mkbasepath( $class_path ); |
48 |
my $code = read_file( 'lib/Frey/Skeleton.pm' ); |
my $code = read_file( 'lib/Frey/Skeleton.pm' ); |
49 |
$code =~ s{$skeleton}{$class}g; |
$code =~ s{$skeleton}{$class}g; |
50 |
write_file( $class_path, $code ); |
write_file( $class_path, $code ); |
51 |
warn "# created class $class at ", path_size($class_path); |
warn "# created class $class at ", $self->path_size($class_path); |
52 |
system "svk add $class_path" if $self->svk_add; |
system "svk add $class_path" if $self->svk_add; |
53 |
|
|
54 |
$code = read_file( 't/30-frey-skeleton.t' ); |
$code = read_file( 't/30-frey-skeleton.t' ); |
55 |
$code =~ s{$skeleton}{$class}g; |
$code =~ s{$skeleton}{$class}g; |
56 |
write_file( $test_path, $code ); |
write_file( $test_path, $code ); |
57 |
chmod 0755, $test_path; |
chmod 0755, $test_path; |
58 |
warn "# created class $class at ", path_size($test_path); |
warn "# created class $class at ", $self->path_size($test_path); |
59 |
system "svk add $test_path" if $self->svk_add; |
system "svk add $test_path" if $self->svk_add; |
60 |
|
|
61 |
my $html |
my $html |
62 |
= qq|Created "$class" and $test_path| |
= qq|Created class "$class" at | |
63 |
|
. $self->path_size($class_path) |
64 |
|
. qq| and test | |
65 |
|
. $self->path_size($test_path) |
66 |
; |
; |
67 |
|
|
68 |
$html = $self->editor_links( $html ); |
$html = $self->html_links( $html ); |
69 |
|
|
70 |
return $html; |
return $html; |
71 |
} |
} |