Parent Directory | Revision Log | Patch
revision 558 by dpavlin, Tue Nov 25 17:15:18 2008 UTC | revision 559 by dpavlin, Thu Nov 27 21:01:39 2008 UTC | |
---|---|---|
# | Line 34 sub classes { | Line 34 sub classes { |
34 | $class =~ s{^lib/}{}; | $class =~ s{^lib/}{}; |
35 | $class =~ s{\.pm$}{}; | $class =~ s{\.pm$}{}; |
36 | $class =~ s{/}{::}g; | $class =~ s{/}{::}g; |
37 | if ( $class =~ m{Mojo} ) { | |
38 | warn "# skip Mojo class $class"; | |
39 | return; | |
40 | } | |
41 | $class_path->{ $class } = $_; | $class_path->{ $class } = $_; |
42 | } }, 'lib'); | } }, 'lib'); |
43 | warn "## class_path = ",dump( $class_path ) if $self->debug; | warn "## class_path = ",dump( $class_path ) if $self->debug; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |