use base "Factory";
use strict;
use warnings;

my $m = main->new;
my $code = $m->can('foo');
my $amt = $m-$code;

sub foo{1}