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 | dpavlin | 679 | 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 | dpavlin | 738 | default => 1, |
25 | dpavlin | 679 | ); |
26 | |||
27 | dpavlin | 680 | sub create_class_source_as_markup { |
28 | dpavlin | 679 | my ($self) = @_; |
29 | |||
30 | my $class = $self->class; | ||
31 | |||
32 | my $class_path = $class; | ||
33 | $class_path =~ s{::}{/}g; | ||
34 | dpavlin | 738 | $class_path = "lib/$class_path.pm"; |
35 | dpavlin | 679 | |
36 | my $test_path = $class; | ||
37 | dpavlin | 738 | $test_path =~ s{::}{-}g; |
38 | dpavlin | 679 | $test_path = "t/30-$test_path.t"; |
39 | |||
40 | dpavlin | 682 | 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 | dpavlin | 679 | |
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 | dpavlin | 682 | warn "# created class $class at ", $self->path_size($class_path); |
52 | dpavlin | 679 | 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 | dpavlin | 680 | chmod 0755, $test_path; |
58 | dpavlin | 682 | warn "# created class $class at ", $self->path_size($test_path); |
59 | dpavlin | 679 | system "svk add $test_path" if $self->svk_add; |
60 | |||
61 | dpavlin | 680 | my $html |
62 | dpavlin | 682 | = qq|Created class "$class" at | |
63 | . $self->path_size($class_path) | ||
64 | . qq| and test | | ||
65 | . $self->path_size($test_path) | ||
66 | dpavlin | 680 | ; |
67 | |||
68 | dpavlin | 738 | $html = $self->html_links( $html ); |
69 | dpavlin | 680 | |
70 | return $html; | ||
71 | dpavlin | 679 | } |
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 |