Parent Directory | Revision Log
r3584@llin (orig r703): dpavlin | 2008-12-03 22:24:09 +0100 rename r3585@llin (orig r704): dpavlin | 2008-12-03 22:26:29 +0100 document bin/log.sh r3586@llin (orig r705): dpavlin | 2008-12-03 22:36:12 +0100 fix paths for created class r3587@llin (orig r706): dpavlin | 2008-12-03 22:52:49 +0100 http://upload.wikimedia.org/wikipedia/commons/0/05/WikEd_fix_html.png r3588@llin (orig r707): dpavlin | 2008-12-03 23:20:46 +0100 last point for 0.24 and forward r3589@llin (orig r708): dpavlin | 2008-12-03 23:23:26 +0100 dump html content in textarea r3590@llin (orig r709): dpavlin | 2008-12-03 23:24:19 +0100 Cleanup all attributes from html r3591@llin (orig r710): dpavlin | 2008-12-04 14:26:57 +0100 added cookie killer described on my blog at https://blog.rot13.org/2006/11/clean_all_http_cookies_and_kill_session.html r3592@llin (orig r711): dpavlin | 2008-12-04 17:02:09 +0100 add created classes to svk by default r3593@llin (orig r712): dpavlin | 2008-12-04 17:02:57 +0100 convert form to post, so we don't have double action on next submit (one from get, one from post) r3594@llin (orig r713): dpavlin | 2008-12-04 17:17:48 +0100 add SlideShare favourites url r3595@llin (orig r714): dpavlin | 2008-12-04 17:28:31 +0100 fix dependency display r3596@llin (orig r715): dpavlin | 2008-12-04 18:33:39 +0100 hide _private attributes r3597@llin (orig r716): dpavlin | 2008-12-04 18:35:12 +0100 separate results_as_data from as_markup to make data reusable r3598@llin (orig r717): dpavlin | 2008-12-04 18:55:27 +0100 Split run to own line r3599@llin (orig r718): dpavlin | 2008-12-04 19:33:25 +0100 use_ok correct test r3600@llin (orig r719): dpavlin | 2008-12-04 19:39:37 +0100 wrap File::Slurp into Frey::File r3601@llin (orig r720): dpavlin | 2008-12-04 21:20:45 +0100 move checkbox to Frey::Web, fix multiple file commit r3602@llin (orig r721): dpavlin | 2008-12-04 23:31:06 +0100 fix Frey::File r3603@llin (orig r722): dpavlin | 2008-12-04 23:37:26 +0100 concepts r3604@llin (orig r723): dpavlin | 2008-12-05 00:09:52 +0100 mode pod r3605@llin (orig r724): dpavlin | 2008-12-05 18:25:05 +0100 display pod table of content r3606@llin (orig r725): dpavlin | 2008-12-05 18:33:01 +0100 fix warnings and take title for icon if it's not specified r3607@llin (orig r726): dpavlin | 2008-12-05 18:34:10 +0100 Fix output wrapping r3608@llin (orig r727): dpavlin | 2008-12-05 18:34:43 +0100 sort methods and attributes r3609@llin (orig r728): dpavlin | 2008-12-06 01:19:32 +0100 support check of single file r3610@llin (orig r729): dpavlin | 2008-12-06 01:20:20 +0100 more documentation, unfinished r3611@llin (orig r730): dpavlin | 2008-12-06 01:21:36 +0100 version bump [0.24] r3612@llin (orig r731): dpavlin | 2008-12-06 01:25:19 +0100 implement CSS2 form layout and support for undef (action support is still broken) r3613@llin (orig r732): dpavlin | 2008-12-06 01:26:12 +0100 simple two step action as still non-working prototype r3614@llin (orig r733): dpavlin | 2008-12-06 01:43:29 +0100 change yaml dump format, cleanup r3615@llin (orig r734): dpavlin | 2008-12-06 01:57:49 +0100 turn short lists to radio boxes r3616@llin (orig r735): dpavlin | 2008-12-06 13:22:36 +0100 css for documentation, always re-create introspect yaml r3617@llin (orig r736): dpavlin | 2008-12-06 15:34:41 +0100 put documentation in own line r3618@llin (orig r737): dpavlin | 2008-12-06 15:35:15 +0100 make commit form transparent so we can see diff behind it
1 | package Frey::ClassCreator; |
2 | use Moose; |
3 | |
4 | extends 'Frey'; |
5 | with 'Frey::Web'; |
6 | with 'Frey::Path'; |
7 | #with 'Frey::Storage'; |
8 | |
9 | use File::Slurp; |
10 | |
11 | has class => ( |
12 | documentation => 'Name of class to create', |
13 | is => 'rw', |
14 | isa => 'Str', |
15 | required => 1, |
16 | default => 'Frey::Skeleton', |
17 | ); |
18 | |
19 | has svk_add => ( |
20 | documentation => 'Add created files to SVK', |
21 | is => 'rw', |
22 | isa => 'Bool', |
23 | required => 1, |
24 | default => 1, |
25 | ); |
26 | |
27 | sub create_class_source_as_markup { |
28 | my ($self) = @_; |
29 | |
30 | my $class = $self->class; |
31 | |
32 | my $class_path = $class; |
33 | $class_path =~ s{::}{/}g; |
34 | $class_path = "lib/$class_path.pm"; |
35 | |
36 | my $test_path = $class; |
37 | $test_path =~ s{::}{-}g; |
38 | $test_path = "t/30-$test_path.t"; |
39 | |
40 | die qq|class "$class" exists as |, $self->path_size($class_path) if -e $class_path; |
41 | die qq|class "$class" test exists as |, $self->path_size($test_path) if -e $test_path; |
42 | |
43 | warn "## path $class_path"; |
44 | $self->mkbasepath( $class_path ); |
45 | |
46 | my $skeleton = 'Frey::Skeleton'; |
47 | |
48 | my $code = read_file( 'lib/Frey/Skeleton.pm' ); |
49 | $code =~ s{$skeleton}{$class}g; |
50 | write_file( $class_path, $code ); |
51 | warn "# created class $class at ", $self->path_size($class_path); |
52 | system "svk add $class_path" if $self->svk_add; |
53 | |
54 | $code = read_file( 't/30-frey-skeleton.t' ); |
55 | $code =~ s{$skeleton}{$class}g; |
56 | write_file( $test_path, $code ); |
57 | chmod 0755, $test_path; |
58 | warn "# created class $class at ", $self->path_size($test_path); |
59 | system "svk add $test_path" if $self->svk_add; |
60 | |
61 | my $html |
62 | = 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->html_links( $html ); |
69 | |
70 | return $html; |
71 | } |
72 | |
73 | =head1 DESCRIPTION |
74 | |
75 | Create Frey class based on L<Frey::Skeleton>. |
76 | |
77 | Blame this on my Smalltalk influence, because creating classes there is just |
78 | interface and message sends wrapped in GUI, but that makes Smalltalk books |
79 | much harder to read... |
80 | |
81 | On the other hand, having handy class creator within L<Frey> makes sense. |
82 | |
83 | =cut |
84 | |
85 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |