21 |
my $introspect; |
my $introspect; |
22 |
|
|
23 |
my @files = map { |
my @files = map { |
24 |
my $class = $_; |
my $path = $_; |
|
my $path = $self->path . '/' . $_; |
|
25 |
my $data = LoadFile( $path ); |
my $data = LoadFile( $path ); |
26 |
$data = [ keys %{ $data->{ 'runnable' } } ]; |
$data = [ keys %{ $data->{ 'runnable' } } ]; |
27 |
|
|
28 |
$class =~ s{\.ya?ml$}{}; |
my $class = $path; |
29 |
|
$class =~ s{^(.*/)?([^/]+)\.ya?ml$}{$2}; |
30 |
$introspect->{ $class } = $data; |
$introspect->{ $class } = $data; |
31 |
$_; |
$_; |
32 |
} $self->dir_extension( $self->path, '\.(ya?ml)$' ); |
} $self->dir_extension( $self->path, qr{\.(ya?ml)$} ); |
33 |
|
|
34 |
warn "# introspect ", $self->dump( $introspect ); |
warn "# introspect ", $self->dump( $introspect ); |
35 |
|
|