--- trunk/lib/Frey.pm 2008/07/02 22:30:19 50 +++ trunk/lib/Frey.pm 2008/07/06 11:59:58 56 @@ -4,7 +4,7 @@ has 'debug' => ( is => 'rw', isa => 'Bool', - default => 1, + default => 0, ); =head1 NAME @@ -40,7 +40,7 @@ warn ">> $_ ",dump( @a ) if $self->debug; my $package = "$a[1]::$a[2]"; warn "## $package\n"; - push @$classes, $package; + push @$classes, { $package => "$_.pm" }; } }, 'lib'); warn "## classes = ",dump( $classes ) if $self->debug; $classes;