Select Code to Download

package Example;
use strict;
...
sub with_warn { warn "inside with_warn"; return; }
sub with_carp { carp "inside with_carp"; return; }
1;

#!/usr/bin/perl
use strict;
...
Example::with_warn();
Example::with_carp();
warn "inside main script";

inside with_warn at Example.pm line 5.
inside with_carp at /path/to/warn_carp.pl line 7
inside main script at /path/to/warn_carp.pl line 8.