--- trunk/lib/Frey/MapReduce.pm	2009/01/09 18:09:17	971
+++ trunk/lib/Frey/MapReduce.pm	2009/01/09 19:33:26	972
@@ -21,15 +21,15 @@
 	my $introspect;
 
 	my @files = map {
-		my $class = $_;
-		my $path = $self->path . '/' . $_;
+		my $path = $_;
 		my $data = LoadFile( $path );
 		$data = [ keys %{ $data->{ 'runnable' } } ];
 
-		$class =~ s{\.ya?ml$}{};
+		my $class = $path;
+		$class =~ s{^(.*/)?([^/]+)\.ya?ml$}{$2};
 		$introspect->{ $class } = $data;
 		$_;
-	} $self->dir_extension( $self->path, '\.(ya?ml)$' );
+	} $self->dir_extension( $self->path, qr{\.(ya?ml)$} );
 
 	warn "# introspect ", $self->dump( $introspect );