Select Code to Download

package Maker;

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

package Foo;

...
sub new { return bless { }, $_[0] }

Maker->make;

package main;

my $o = Bar->new;
$o->go;

w00t
Can't locate object method "go" via package "Maker" at mm.pl line 11.