- # Find the file to autoload
- my $mapper = $tc->mapper;
- my $pm = $class = $tc->$mapper($class);
- $pm =~ s{::}{/}g;
- $pm .= '.pm';
-
- unless ($INC{$pm}) { # Not loaded yet
- local $@;
- eval {
- # We die often here, even though we're not really interested in the error.
- # However, if a die handler is set (e.g. to \&Carp::confess), this can get
- # very slow. Resetting the handler shows a 10% total time improvement for
- # the geodyn app.
- local $SIG{__DIE__};
- require $pm;
- };
+ $class = $tc->mapper->($tc, $class);
+
+ if (defined $class) {
+ # Find the file to autoload
+ (my $pm = $class) =~ s{::}{/}g;
+ $pm .= '.pm';
+
+ unless ($INC{$pm}) { # Not loaded yet
+ local $@;
+ eval {
+ # We die often here, even though we're not really interested in the error.
+ # However, if a die handler is set (e.g. to \&Carp::confess), this can get
+ # very slow. Resetting the handler shows a 10% total time improvement for
+ # the geodyn app.
+ local $SIG{__DIE__};
+ require $pm;
+ };
+ }