##
no strict 'refs';
no warnings 'redefine';
##
##
my $warnings = \&warnings::import;
local *warnings::import = sub {
&{$warnings};
unimport warnings "redefine";
};
##
##
eval { require $PM };
}