3 |
|
|
4 |
has 'debug' => ( |
has 'debug' => ( |
5 |
is => 'rw', |
is => 'rw', |
6 |
isa => 'Int', |
isa => 'Bool', |
7 |
default => 1, |
default => 1, |
8 |
); |
); |
9 |
|
|
38 |
return; |
return; |
39 |
} |
} |
40 |
warn ">> $_ ",dump( @a ) if $self->debug; |
warn ">> $_ ",dump( @a ) if $self->debug; |
41 |
warn "## $a[1]::$a[2]\n"; |
my $package = "$a[1]::$a[2]"; |
42 |
push @$classes, join('::', @a); |
warn "## $package\n"; |
43 |
|
push @$classes, $package; |
44 |
} }, 'lib'); |
} }, 'lib'); |
45 |
warn "## classes = ",dump( $classes ) if $self->debug; |
warn "## classes = ",dump( $classes ) if $self->debug; |
46 |
$classes; |
$classes; |