(my $file = $class) =~ s^::^/^g;
require "$file.pm";

##</code><code>##

my $file = File::Spec->catfile( split /::/, $class ) . ".pm";