sub import {
    my $package = shift;
    my $methodname = shift;
    my $dest = caller;

    eval <<END
package $package;
sub $methodname
{
    return shift->SUPER::blah();
};
1;
END
}