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 ); |
269 |
|
|
270 |
$self->store( $introspect_path, $introspect ); |
$self->store( $introspect_path, $introspect ); |
271 |
|
|
|
$self->title( $class ); |
|
|
|
|
272 |
my $has_tests = ''; |
my $has_tests = ''; |
273 |
my @tests = grep { defined $_ } $self->has_tests; |
my @tests = grep { defined $_ } $self->has_tests; |
274 |
if ( @tests ) { |
if ( @tests ) { |