--- trunk/lib/Frey.pm	2008/06/29 16:29:09	24
+++ trunk/lib/Frey.pm	2008/07/06 11:59:58	56
@@ -3,8 +3,8 @@
 
 has 'debug' => (
 	is => 'rw',
-	isa => 'Int',
-	default => 1,
+	isa => 'Bool',
+	default => 0,
 );
 
 =head1 NAME
@@ -38,8 +38,9 @@
 				return;
 			}
 			warn ">> $_ ",dump( @a ) if $self->debug;
-			warn "## $a[1]::$a[2]\n";
-			push @$classes, join('::', @a);
+			my $package = "$a[1]::$a[2]";
+			warn "## $package\n";
+			push @$classes, { $package => "$_.pm" };
 		} }, 'lib');
 		warn "## classes = ",dump( $classes ) if $self->debug;
 		$classes;