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