- or download this
package A;
use lib '.';
...
A-> new;
moo;
1;
- or download this
package B;
use strict;
...
@EXPORT_OK = qw(moo);
sub moo { print "B::moo\n" }
1;
- or download this
package C;
use strict;
...
sub new { bless({}, shift)-> moo };
sub moo { print "C::moo\n"; }
1;