--- trunk/lib/Frey.pm	2008/06/29 16:29:09	24
+++ trunk/lib/Frey.pm	2008/07/08 12:18:33	58
@@ -3,8 +3,8 @@
 
 has 'debug' => (
 	is => 'rw',
-	isa => 'Int',
-	default => 1,
+	isa => 'Bool',
+	default => 0,
 );
 
 =head1 NAME
@@ -33,13 +33,10 @@
 		finddepth({ no_chdir => 1, wanted => sub {
 			return unless s/\.pm$//;
 			my @a = split(m!/!,$_);
-			if ( $#a != 2 ) {
-				warn "SKIP $_ [$#a]" if $self->debug;
-				return;
-			}
 			warn ">> $_ ",dump( @a ) if $self->debug;
-			warn "## $a[1]::$a[2]\n";
-			push @$classes, join('::', @a);
+			my $package = join('::', @a[ 1 .. $#a ]);
+			warn "## $package\n";
+			push @$classes, { $package => "$_.pm" };
 		} }, 'lib');
 		warn "## classes = ",dump( $classes ) if $self->debug;
 		$classes;