Parent Directory | Revision Log | Patch
revision 566 by dpavlin, Thu Nov 27 21:01:39 2008 UTC | revision 567 by dpavlin, Thu Nov 27 21:32:36 2008 UTC | |
---|---|---|
# | Line 8 Load L<Frey> classes | Line 8 Load L<Frey> classes |
8 | =cut | =cut |
9 | ||
10 | extends 'Frey'; | extends 'Frey'; |
11 | with 'Frey::Session'; | |
12 | ||
13 | use Data::Dump qw/dump/; | use Data::Dump qw/dump/; |
14 | use File::Find; | use File::Find; |
# | Line 35 sub classes { | Line 36 sub classes { |
36 | $class =~ s{\.pm$}{}; | $class =~ s{\.pm$}{}; |
37 | $class =~ s{/}{::}g; | $class =~ s{/}{::}g; |
38 | if ( $class =~ m{Mojo} ) { | if ( $class =~ m{Mojo} ) { |
39 | warn "# skip Mojo class $class"; | $self->TODO( "Mojo support" ); |
40 | return; | return; |
41 | } | } |
42 | $class_path->{ $class } = $_; | $class_path->{ $class } = $_; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |