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

    # The initial comment improves error messages.
    eval qq{# line 1 "Loaded by $compiled_in\::import"
        package $package;
        sub $methodname {
            return shift->SUPER::blah();
        }
    };
    die $@ if $@;
}