Select Code to Download

package My;

...
my $mya = My::A->new({name => 'Dave'});
$mya->greet();

my %subs = (
    new   => sub { # constructor goes here... },
...
    no strict 'refs';
    *{$pkg_sub . '::' . $name} = $code;
}

{
    # ...
...
      *{"$class"."::"."$name"} = $code;
    }
  }