sub reload {
    my ($PM) = @_ or return;
    $PM =~ s!::!/!g;
    $PM .= ".pm";
    delete $INC{$PM};

##</code><code>##

    no strict 'refs';
    no warnings 'redefine';

##</code><code>##

    my $warnings = \&warnings::import;
    local *warnings::import = sub {
      &{$warnings};
      unimport warnings "redefine";
    };

##</code><code>##

    eval { require $PM };
}