CODE foo1 (CODE(0x8eba020)) was just declared and ascribed the Loud attribute with data ()
in phase CHECK
in file /home/lanx/perl/exp/tell.pl at line 23
> sub foo1 :Loud {print "HAHA"};
Can't use an undefined value as an ARRAY reference at /usr/share/perl/5.10/Attribute/Handlers.pm line 185, <DATA> line 31.
INIT failed--call queue aborted, <DATA> line 31.
Can't use an undefined value as an ARRAY reference at /usr/share/perl/5.10/Attribute/Handlers.pm line 185, <DATA> line 31.
END failed--call queue aborted, <DATA> line 31.