| 124 |
$loaded_class; |
$loaded_class; |
| 125 |
} |
} |
| 126 |
|
|
| 127 |
|
=head2 class_methods |
| 128 |
|
|
| 129 |
|
my @methods = $o->class_methods( $class ); |
| 130 |
|
|
| 131 |
|
=cut |
| 132 |
|
|
| 133 |
|
sub class_methods { |
| 134 |
|
my ( $self, $class ) = @_; |
| 135 |
|
|
| 136 |
|
confess "need class" unless $class; |
| 137 |
|
if ( ! $class->can('meta') ) { |
| 138 |
|
warn "$class doesn't have meta (isn't Moose class)"; |
| 139 |
|
return; |
| 140 |
|
} |
| 141 |
|
my $meta = $class->meta; |
| 142 |
|
|
| 143 |
|
my $attr; |
| 144 |
|
$attr->{$_}++ foreach $meta->get_attribute_list; |
| 145 |
|
my @methods = grep { ! defined($attr->{$_}) } $meta->get_method_list; |
| 146 |
|
warn "# methods = ",dump( @methods ) if $self->debug; |
| 147 |
|
|
| 148 |
|
return @methods; |
| 149 |
|
} |
| 150 |
|
|
| 151 |
|
|
| 152 |
1; |
1; |
Parent Directory
| 
Revision Log
| 
Patch