#!/usr/bin/perl

package LoudDecl;
use Attribute::Handlers;

sub Loud :ATTR(ARRAY) {
    my ($package, $symbol, $referent, $attr, $data, $phase, $filename,
+ $linenum) = @_;
    warn $symbol, ' = ', *{$symbol}{NAME};
    warn join ' | ', @_;
}

my @foo: Loud;
our @FOO: Loud;

__END__
GLOB(0x185774c) = FOO at temp.pl line 8.
LoudDecl | GLOB(0x185774c) | ARRAY(0x185768c) | Loud |  | CHECK at tem
+p.pl line 9.
LEXICAL = LEXICAL at temp.pl line 8.
LoudDecl | LEXICAL | ARRAY(0x182f750) | Loud |  | CHECK at temp.pl lin
+e 9.
[download]