#moo.pm
package moo;

BEGIN {
    warn "moo ".join'',caller(1);
}

sub import {
    warn "import ".join'',caller(1);
}

1;
__END__
E:\new>perl -e"use moo;"
moo mainmoo.pm5(eval)000             at moo.pm line 4.
import mainmoo.pm1main::BEGIN100             at moo.pm line 8.

E:\new>perl -e"require moo;"
moo mainmoo.pm5(eval)000             at moo.pm line 4.