#!/usr/bin/perl

package LoudDecl;
use Attribute::Handlers;

sub Loud :ATTR(ARRAY) {
    my ($package, $symbol, $referent, $attr, $data, $phase, $filename, $linenum) = @_;
    print STDERR
        ref($referent), " ",
            *{$symbol}{NAME}, " ",
                "($referent) ", "was just declared ",
                    "and ascribed the ${attr} attribute ",
                "with data ($data)\n",
                    "in phase $phase\n",
                        "in file $filename at line $linenum\n";
}

my @foo: Loud;