--- trunk/lib/Frey.pm	2008/06/29 20:49:42	31
+++ 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
@@ -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;