--- trunk/lib/Frey.pm	2008/07/11 18:09:30	99
+++ trunk/lib/Frey.pm	2008/07/11 19:19:42	100
@@ -20,28 +20,4 @@
 
 =cut
 
-use Data::Dump qw/dump/;
-use File::Find;
-
-has 'classes' => (
-	is => 'ro',
-#	isa => 'HashRef[Str]',
-	default => sub {
-		my $self = shift;
-		# FIXME there must be better way to do this in Moose style
-		my $classes;
-		finddepth({ no_chdir => 1, wanted => sub {
-			return unless s/\.pm$//;
-			my @a = split(m!/!,$_);
-			warn ">> $_ ",dump( @a ) if $self->debug;
-			my $package = join('::', @a[ 1 .. $#a ]);
-			warn "## $package\n";
-			push @$classes, { $package => "$_.pm" };
-		} }, 'lib');
-		warn "## classes = ",dump( $classes ) if $self->debug;
-		$classes;
-	},
-	lazy => 1,
-);
-
 1;