package Mixin;
use base 'Exporter';
our @EXPORT_OK = qw(frobnicate);

sub frobnicate { 
    my($self) = @_;

    $self->frobnerize(); 
}

sub frobnerize {
    my($self) = @_;
    print "frobnerizing!\n";
}

1;