my $file = _class_to_pmfile($name); print "$file ****\n"; return $name if try { local $SIG{__DIE__}; require $file; $name->VERSION($options->{-version}) if defined $options->{-version}; return 1; } catch { unless (/^Can't locate \Q$file\E in \@INC/) { confess "Couldn't load class ($name) because: $_"; } return; }; }