108 |
my ( $meta, $is_role ) = $self->class_meta; |
my ( $meta, $is_role ) = $self->class_meta; |
109 |
|
|
110 |
my $class = $self->class; |
my $class = $self->class; |
111 |
|
$self->title( $class ); |
112 |
|
|
113 |
my $introspect_path = "var/introspect/$class.yaml"; |
my $introspect_path = "var/introspect/$class.yaml"; |
114 |
$self->mkbasepath( $introspect_path ); |
$self->mkbasepath( $introspect_path ); |
161 |
$introspect->{methods}->{$name} = {}; |
$introspect->{methods}->{$name} = {}; |
162 |
} |
} |
163 |
qq|<td class="m">$name</td>| |
qq|<td class="m">$name</td>| |
164 |
} sort $self->class_methods( $class ); |
} sort { |
165 |
|
lc($a) cmp lc($b) |
166 |
|
} $self->class_methods( $class ); |
167 |
|
|
168 |
my @attributes; |
my @attributes; |
169 |
if ( $meta->get_attribute_list ) { |
if ( $meta->get_attribute_list ) { |
271 |
|
|
272 |
$self->store( $introspect_path, $introspect ); |
$self->store( $introspect_path, $introspect ); |
273 |
|
|
|
$self->title( $class ); |
|
|
|
|
274 |
my $has_tests = ''; |
my $has_tests = ''; |
275 |
my @tests = grep { defined $_ } $self->has_tests; |
my @tests = grep { defined $_ } $self->has_tests; |
276 |
if ( @tests ) { |
if ( @tests ) { |