Select Code to Download

Select or download this

package LoudDecl;
use Attribute::Handlers;
no warnings;
...
__DATA__
  
huhu

Select or download this

 CODE foo1 (CODE(0x8eba020)) was just declared and ascribed the Loud a
+ttribute with data ()
in phase CHECK
...
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.