package Maker;

sub make {
    my $pkg = caller;
    my $sub = sub {
        my $self = shift;
        print "w00t\n";
        $self->SUPER::go;
    };

    no strict 'refs';
    *{ $pkg . '::go' } = $sub;
}