package B;
use strict;
use warnings;
use Exporter;
use vars qw(@ISA @EXPORT_OK);
@ISA = qw(Exporter);
@EXPORT_OK = qw(moo);
sub moo { print "B::moo\n" }
1;