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 |
} |
} |
216 |
my ($self) = @_; |
my ($self) = @_; |
217 |
$self->sponge; |
$self->sponge; |
218 |
} |
} |
219 |
|
|
220 |
|
no Moose::Role; |
221 |
} |
} |
222 |
|
|
223 |
our $syntax_checked_last; |
our $syntax_checked_last; |
265 |
return $instance; |
return $instance; |
266 |
} |
} |
267 |
|
|
268 |
|
__PACKAGE__->meta->make_immutable; |
269 |
|
no Moose; |
270 |
|
|
271 |
1; |
1; |