1 |
package Frey::ClassLoader; |
package Frey::Class::Loader; |
2 |
use Moose; |
use Moose; |
3 |
|
|
4 |
=head1 DESCRIPTION |
=head1 DESCRIPTION |
65 |
$path = $INC{$path}; |
$path = $INC{$path}; |
66 |
warn "# $class from INC $path"; |
warn "# $class from INC $path"; |
67 |
$class_path->{$class} = $path; |
$class_path->{$class} = $path; |
68 |
|
} elsif ( $path =~ s{\.pm$}{} && -e "lib/${path}.pod" ) { |
69 |
|
return "lib/${path}.pod"; |
70 |
} else { |
} else { |
71 |
confess "can't find path for $class"; |
confess "can't find $class at $path"; |
72 |
} |
} |
73 |
} |
} |
74 |
return $class_path->{$class}; |
return $class_path->{$class}; |