#######

package Modulino::A;

use strict;
use Exporter qw(import);

# buy() will be useful to others...
our @EXPORT_OK = qw( buy );

__PACKAGE__->run(@ARGV) unless caller;

sub run {
    my ($class, $arg) = (@_);
    $class->perform_modulino_specific_stuff;
    buy($arg);
}

sub perform_modulino_specific_stuff {
    my $class = shift;
    print "[special stuff for Modulino::As]\n";
}

sub buy {
    print "[very useful purchasing algorithm to buy ", $_[0], "]\n";
}

#######