Parent Directory
| 
Revision Log
| 
Patch
| revision 886 by dpavlin, Wed Dec 10 19:34:08 2008 UTC | revision 887 by dpavlin, Wed Dec 24 13:51:59 2008 UTC | |
|---|---|---|
| # | Line 172 sub class_methods { | Line 172 sub class_methods { |
| 172 | ||
| 173 | =cut | =cut |
| 174 | ||
| 175 | sub class_runnable_re { m{^as_} || m{_as_} || m{sql} } | |
| 176 | ||
| 177 | sub class_runnable { | sub class_runnable { |
| 178 | my ( $self, $class ) = @_; | my ( $self, $class ) = @_; |
| 179 | my @methods = grep { m{^as_} || m{_as_} } $self->class_methods( $class ); | my @methods = grep { class_runnable_re } $self->class_methods( $class ); |
| 180 | return @methods if wantarray; | return @methods if wantarray; |
| 181 | return \@methods; | return \@methods; |
| 182 | } | } |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |