--- trunk/lib/Frey.pm	2008/07/06 11:59:58	56
+++ trunk/lib/Frey.pm	2008/07/08 12:18:33	58
@@ -33,12 +33,8 @@
 		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;
-			my $package = "$a[1]::$a[2]";
+			my $package = join('::', @a[ 1 .. $#a ]);
 			warn "## $package\n";
 			push @$classes, { $package => "$_.pm" };
 		} }, 'lib');