Select Code to Download

package pragmatic;
use 5.10.0;
...
    }
}
1;

package Foo;
use 5.10.0;
...

sub foo { say "Foo::foo at line ".(caller)[2] }
1;

#!/usr/bin/perl
use 5.10.0;
...
Foo::foo at line 9
main::foo at line 11
Foo::foo at line 13