>> hmm.pl:18: a();
Trace begun at hmm.pl line 18
>> hmm.pl:6:   my $fish = 5;
Trace begun at hmm.pl line 6
main::a at hmm.pl line 18
$VAR1 = [
          bless( {
                   'wantarray' => 1,
                   'subroutine' => 'DB::DB',
                   'hints' => 1538,
                   'args' => [],
                   'lexicals' => {},
                   'hasargs' => 0,
                   'bitmask' => '            ',
                   'max_arg_length' => undef,
                   'evaltext' => undef,
                   'package' => 'main',
                   'filename' => 'hmm.pl',
                   'is_require' => undef,
                   'respect_overload' => undef,
                   'line' => 6
                 }, 'Devel::StackTrace::WithLexicals::Frame' ),
          bless( {
                   'wantarray' => undef,
                   'subroutine' => 'main::a',
                   'hints' => 1794,
                   'args' => [],
                   'lexicals' => {},
                   'hasargs' => 1,
                   'bitmask' => '            ',
                   'max_arg_length' => undef,
                   'evaltext' => undef,
                   'package' => 'main',
                   'filename' => 'hmm.pl',
                   'is_require' => undef,
                   'respect_overload' => undef,
                   'line' => 18
                 }, 'Devel::StackTrace::WithLexicals::Frame' )
        ];
>> /usr/lib/perl/5.10/Data/Dumper.pm:187: sub DESTROY {}
Trace begun at /usr/lib/perl/5.10/Data/Dumper.pm line 187
Data::Dumper::DESTROY('Data::Dumper=HASH(0x82c0460)') called at hmm.pl line 7
eval {...} at hmm.pl line 7
main::a at hmm.pl line 18
>> hmm.pl:7:   print "Hello";
Trace begun at hmm.pl line 7
main::a at hmm.pl line 18
$VAR1 = [
          bless( {
                   'wantarray' => 1,
                   'subroutine' => 'DB::DB',
                   'hints' => 1538,
                   'args' => [],
                   'lexicals' => {
                                   '$fish' => \5
                                 },
                   'hasargs' => 0,
                   'bitmask' => '            ',
                   'max_arg_length' => undef,
                   'evaltext' => undef,
                   'package' => 'main',
                   'filename' => 'hmm.pl',
                   'is_require' => undef,
                   'respect_overload' => undef,
                   'line' => 7
                 }, 'Devel::StackTrace::WithLexicals::Frame' ),
          bless( {
                   'wantarray' => undef,
                   'subroutine' => 'main::a',
                   'hints' => 1794,
                   'args' => [],
                   'lexicals' => {},
                   'hasargs' => 1,
                   'bitmask' => '            ',
                   'max_arg_length' => undef,
                   'evaltext' => undef,
                   'package' => 'main',
                   'filename' => 'hmm.pl',
                   'is_require' => undef,
                   'respect_overload' => undef,
                   'line' => 18
                 }, 'Devel::StackTrace::WithLexicals::Frame' )
        ];
>> /usr/lib/perl/5.10/Data/Dumper.pm:187: sub DESTROY {}
Trace begun at /usr/lib/perl/5.10/Data/Dumper.pm line 187
Data::Dumper::DESTROY('Data::Dumper=HASH(0x82c0460)') called at hmm.pl line 8
eval {...} at hmm.pl line 8
main::a at hmm.pl line 18
>> hmm.pl:8:   b();
Trace begun at hmm.pl line 8
main::a at hmm.pl line 18
$VAR1 = [
          bless( {
                   'wantarray' => 1,
                   'subroutine' => 'DB::DB',
                   'hints' => 1794,
                   'args' => [],
                   'lexicals' => {
                                   '$fish' => \5
                                 },
                   'hasargs' => 0,
                   'bitmask' => '            ',
                   'max_arg_length' => undef,
                   'evaltext' => undef,
                   'package' => 'main',
                   'filename' => 'hmm.pl',
                   'is_require' => undef,
                   'respect_overload' => undef,
                   'line' => 8
                 }, 'Devel::StackTrace::WithLexicals::Frame' ),
          bless( {
                   'wantarray' => undef,
                   'subroutine' => 'main::a',
                   'hints' => 1794,
                   'args' => [],
                   'lexicals' => {},
                   'hasargs' => 1,
                   'bitmask' => '            ',
                   'max_arg_length' => undef,
                   'evaltext' => undef,
                   'package' => 'main',
                   'filename' => 'hmm.pl',
                   'is_require' => undef,
                   'respect_overload' => undef,
                   'line' => 18
                 }, 'Devel::StackTrace::WithLexicals::Frame' )
        ];
>> hmm.pl:13:   my $goo = 23;
Trace begun at hmm.pl line 13
main::b at hmm.pl line 8
main::a at hmm.pl line 18
$VAR1 = [
          bless( {
                   'wantarray' => 1,
                   'subroutine' => 'DB::DB',
                   'hints' => 1538,
                   'args' => [],
                   'lexicals' => {},
                   'hasargs' => 0,
                   'bitmask' => '            ',
                   'max_arg_length' => undef,
                   'evaltext' => undef,
                   'package' => 'main',
                   'filename' => 'hmm.pl',
                   'is_require' => undef,
                   'respect_overload' => undef,
                   'line' => 13
                 }, 'Devel::StackTrace::WithLexicals::Frame' ),
          bless( {
                   'wantarray' => undef,
                   'subroutine' => 'main::b',
                   'hints' => 1794,
                   'args' => [],
                   'lexicals' => {
                                   '$fish' => \5
                                 },
                   'hasargs' => 1,
                   'bitmask' => '            ',
                   'max_arg_length' => undef,
                   'evaltext' => undef,
                   'package' => 'main',
                   'filename' => 'hmm.pl',
                   'is_require' => undef,
                   'respect_overload' => undef,
                   'line' => 8
                 }, 'Devel::StackTrace::WithLexicals::Frame' ),
          bless( {
                   'wantarray' => undef,
                   'subroutine' => 'main::a',
                   'hints' => 1794,
                   'args' => [],
                   'lexicals' => {},
                   'hasargs' => 1,
                   'bitmask' => '            ',
                   'max_arg_length' => undef,
                   'evaltext' => undef,
                   'package' => 'main',
                   'filename' => 'hmm.pl',
                   'is_require' => undef,
                   'respect_overload' => undef,
                   'line' => 18
                 }, 'Devel::StackTrace::WithLexicals::Frame' )
        ];
>> /usr/lib/perl/5.10/Data/Dumper.pm:187: sub DESTROY {}
Trace begun at /usr/lib/perl/5.10/Data/Dumper.pm line 187
Data::Dumper::DESTROY('Data::Dumper=HASH(0x82c26e8)') called at hmm.pl line 14
eval {...} at hmm.pl line 14
main::b at hmm.pl line 8
main::a at hmm.pl line 18
>> hmm.pl:14:   print " world\n";
Trace begun at hmm.pl line 14
main::b at hmm.pl line 8
main::a at hmm.pl line 18
$VAR1 = [
          bless( {
                   'wantarray' => 1,
                   'subroutine' => 'DB::DB',
                   'hints' => 1538,
                   'args' => [],
                   'lexicals' => {
                                   '$goo' => \23
                                 },
                   'hasargs' => 0,
                   'bitmask' => '            ',
                   'max_arg_length' => undef,
                   'evaltext' => undef,
                   'package' => 'main',
                   'filename' => 'hmm.pl',
                   'is_require' => undef,
                   'respect_overload' => undef,
                   'line' => 14
                 }, 'Devel::StackTrace::WithLexicals::Frame' ),
          bless( {
                   'wantarray' => undef,
                   'subroutine' => 'main::b',
                   'hints' => 1794,
                   'args' => [],
                   'lexicals' => {
                                   '$fish' => \5
                                 },
                   'hasargs' => 1,
                   'bitmask' => '            ',
                   'max_arg_length' => undef,
                   'evaltext' => undef,
                   'package' => 'main',
                   'filename' => 'hmm.pl',
                   'is_require' => undef,
                   'respect_overload' => undef,
                   'line' => 8
                 }, 'Devel::StackTrace::WithLexicals::Frame' ),
          bless( {
                   'wantarray' => undef,
                   'subroutine' => 'main::a',
                   'hints' => 1794,
                   'args' => [],
                   'lexicals' => {},
                   'hasargs' => 1,
                   'bitmask' => '            ',
                   'max_arg_length' => undef,
                   'evaltext' => undef,
                   'package' => 'main',
                   'filename' => 'hmm.pl',
                   'is_require' => undef,
                   'respect_overload' => undef,
                   'line' => 18
                 }, 'Devel::StackTrace::WithLexicals::Frame' )
        ];
>> /usr/lib/perl/5.10/Data/Dumper.pm:187: sub DESTROY {}
Trace begun at /usr/lib/perl/5.10/Data/Dumper.pm line 187
Data::Dumper::DESTROY('Data::Dumper=HASH(0x82c2328)') called at hmm.pl line 15
eval {...} at hmm.pl line 15
main::b at hmm.pl line 8
main::a at hmm.pl line 18
>> hmm.pl:15:   print "goo $goo\n";
Trace begun at hmm.pl line 15
main::b at hmm.pl line 8
main::a at hmm.pl line 18
$VAR1 = [
          bless( {
                   'wantarray' => 1,
                   'subroutine' => 'DB::DB',
                   'hints' => 1794,
                   'args' => [],
                   'lexicals' => {
                                   '$goo' => \23
                                 },
                   'hasargs' => 0,
                   'bitmask' => '            ',
                   'max_arg_length' => undef,
                   'evaltext' => undef,
                   'package' => 'main',
                   'filename' => 'hmm.pl',
                   'is_require' => undef,
                   'respect_overload' => undef,
                   'line' => 15
                 }, 'Devel::StackTrace::WithLexicals::Frame' ),
          bless( {
                   'wantarray' => undef,
                   'subroutine' => 'main::b',
                   'hints' => 1794,
                   'args' => [],
                   'lexicals' => {
                                   '$fish' => \5
                                 },
                   'hasargs' => 1,
                   'bitmask' => '            ',
                   'max_arg_length' => undef,
                   'evaltext' => undef,
                   'package' => 'main',
                   'filename' => 'hmm.pl',
                   'is_require' => undef,
                   'respect_overload' => undef,
                   'line' => 8
                 }, 'Devel::StackTrace::WithLexicals::Frame' ),
          bless( {
                   'wantarray' => undef,
                   'subroutine' => 'main::a',
                   'hints' => 1794,
                   'args' => [],
                   'lexicals' => {},
                   'hasargs' => 1,
                   'bitmask' => '            ',
                   'max_arg_length' => undef,
                   'evaltext' => undef,
                   'package' => 'main',
                   'filename' => 'hmm.pl',
                   'is_require' => undef,
                   'respect_overload' => undef,
                   'line' => 18
                 }, 'Devel::StackTrace::WithLexicals::Frame' )
        ];
>> /usr/lib/perl/5.10/Data/Dumper.pm:187: sub DESTROY {}
Trace begun at /usr/lib/perl/5.10/Data/Dumper.pm line 187
Data::Dumper::DESTROY('Data::Dumper=HASH(0x82c2028)') called at hmm.pl line 9
eval {...} at hmm.pl line 9
main::a at hmm.pl line 18
>> /usr/lib/perl/5.10/Data/Dumper.pm:187: sub DESTROY {}
Trace begun at /usr/lib/perl/5.10/Data/Dumper.pm line 187
Data::Dumper::DESTROY('Data::Dumper=HASH(0x82c2528)') called at hmm.pl line 9
eval {...} at hmm.pl line 9
main::a at hmm.pl line 18
>> hmm.pl:9:   print "I like $fish\n";
Trace begun at hmm.pl line 9
main::a at hmm.pl line 18
$VAR1 = [
          bless( {
                   'wantarray' => 1,
                   'subroutine' => 'DB::DB',
                   'hints' => 1794,
                   'args' => [],
                   'lexicals' => {
                                   '$fish' => \5
                                 },
                   'hasargs' => 0,
                   'bitmask' => '            ',
                   'max_arg_length' => undef,
                   'evaltext' => undef,
                   'package' => 'main',
                   'filename' => 'hmm.pl',
                   'is_require' => undef,
                   'respect_overload' => undef,
                   'line' => 9
                 }, 'Devel::StackTrace::WithLexicals::Frame' ),
          bless( {
                   'wantarray' => undef,
                   'subroutine' => 'main::a',
                   'hints' => 1794,
                   'args' => [],
                   'lexicals' => {},
                   'hasargs' => 1,
                   'bitmask' => '            ',
                   'max_arg_length' => undef,
                   'evaltext' => undef,
                   'package' => 'main',
                   'filename' => 'hmm.pl',
                   'is_require' => undef,
                   'respect_overload' => undef,
                   'line' => 18
                 }, 'Devel::StackTrace::WithLexicals::Frame' )
        ];
>> /usr/lib/perl/5.10/Data/Dumper.pm:187: sub DESTROY {}
Trace begun at /usr/lib/perl/5.10/Data/Dumper.pm line 187
Data::Dumper::DESTROY('Data::Dumper=HASH(0x82c1f68)') called at hmm.pl line 0
eval {...} at hmm.pl line 0
	(in cleanup) panic: Context has no CV!
DESTROY created new reference to dead object 'Config' during global destruction.