7 |
use File::Find; |
use File::Find; |
8 |
|
|
9 |
our $package_path; |
our $package_path; |
10 |
|
our @classes; |
11 |
|
|
12 |
sub classes { |
sub classes { |
13 |
my $self = shift; |
my $self = shift; |
14 |
return keys %$package_path if $package_path; |
return @classes if @classes; |
15 |
|
|
16 |
# FIXME there must be better way to do this in Moose style |
# FIXME there must be better way to do this in Moose style |
17 |
finddepth({ no_chdir => 1, wanted => sub { |
finddepth({ no_chdir => 1, wanted => sub { |
23 |
} }, 'lib'); |
} }, 'lib'); |
24 |
warn "## package_path = ",dump( $package_path ) if $self->debug; |
warn "## package_path = ",dump( $package_path ) if $self->debug; |
25 |
|
|
26 |
return keys %$package_path; |
@classes = sort keys %$package_path; |
27 |
} |
} |
28 |
|
|
29 |
sub package_path { |
sub package_path { |