Select Code to Download

use Carp qw(confess cluck);
BEGIN {
...
        main::bar() called at - line 7
        main::foo() called at - line 10
        eval {...} called at - line 10

use Carp qw(confess cluck);
BEGIN {
...

in bar
ack: $main1 = bless( { akey => 'a string' }, 'main' );