- or download this
package Foo;
use Mixin qw(frobnicate);
...
my $foo = Foo->new();
$foo->frobnicate();
- or download this
package Mixin;
use base 'Exporter';
our @EXPORT_OK = qw(frobnicate);
sub frobnicate { print "frobnicating!\n"; }
- or download this
package Mixin;
use base 'Exporter';
...
}
1;
- or download this
use Mixin qw(frobnicate frobnerize);