--- trunk/lib/Frey/ClassLoader.pm	2008/11/08 16:12:39	331
+++ trunk/lib/Frey/ClassLoader.pm	2008/11/17 19:21:06	382
@@ -17,6 +17,8 @@
 
 =head2 classes
 
+Return all local classes by reading from disk
+
   my @classes = $o->classes;
 
 =cut
@@ -40,6 +42,8 @@
 
 =head2 class_path
 
+Return any local or loaded class
+
   $path = $o->class_path( $class );
 
 =cut
@@ -47,7 +51,14 @@
 sub class_path {
 	my ( $self, $class ) = @_;
 	$self->classes unless $class_path;
-	confess "can't find path for class $class" unless defined $class_path->{$class};
+	if ( ! defined $class_path->{$class} ) {
+		my $path = $class;
+		$path =~ s{::}{/}g;
+		$path .= '.pm';
+		$path = $INC{$path};
+		warn "# $class from INC $path";
+		$class_path->{$class} = $path;
+	}
 	return $class_path->{$class};
 }