--- trunk/lib/Frey.pm	2008/06/29 20:49:42	31
+++ trunk/lib/Frey.pm	2008/07/05 15:08:51	52
@@ -3,7 +3,7 @@
 
 has 'debug' => (
 	is => 'rw',
-	isa => 'Int',
+	isa => 'Bool',
 	default => 1,
 );
 
@@ -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;