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

    my $method = sub {
        return super($package, "blah", @_;
    };

    my $symbol = $dest . '::' . $methodname;
    {
        no strict 'refs';
        *$symbol = $method;
    }
}