Select Code to Download

use warnings;
use strict;
...
#before { print 'abc'; } call 'main::def';

def();

Signal SEGV at /usr/local/lib/perl5/site_perl/5.10.0/Aspect/Advice/Bef
+ore.pm line 53
        Aspect::Advice::Before::_install('Aspect::Advice::Before=HASH(
+0x793b38)') called at /usr/local/lib/perl5/site_perl/5.10.0/Aspect/Ad
+vice.pm line 13
        Aspect::Advice::new('Aspect::Advice::Before', 'code', 'CODE(0x
+1592a8)', 'pointcut', 'Aspect::Pointcut::Call=ARRAY(0x75f980)', 'lexi
+cal', '') called at /usr/local/lib/perl5/site_perl/5.10.0/Aspect.pm l
+ine 64
        Aspect::before('CODE(0x1592a8)', 'Aspect::Pointcut::Call=ARRAY
+(0x75f980)') called at test.pl line 10
Abort (core dumped)

Watchpoint 0:   $key changed:
    old value:  'COMPRESSION_STORED'
...
    new value:  ''
Aspect::Pointcut::match_all(/usr/local/lib/perl5/5.10.0/Carp.pm:28):
28:     sub longmess  { goto &longmess_jmp }