( my $file= $class ) =~ s-::|'-/-g; if( ! eval { require "$file.pm"; 1 } ) { # work-around the failure here } #### if( ! eval "require $class; 1" ) { # work-around the failure here } #### eval "require $class; 1" or die $@; #### ( my $file= $class ) =~ s-::|'-/-g; require "$file.pm";