demo_call.pl revision 7c478bd95313f5f23a4c958a745db2134aa03244
#! /usr/local/bin/perl -w
use Attribute::Handlers;
sub Call : ATTR {
use Data::Dumper 'Dumper';
print Dumper [ @_ ];
}
sub x : Call(some,data) { };