1#! /usr/local/bin/perl -w
2
3use Attribute::Handlers;
4
5sub Call : ATTR {
6	use Data::Dumper 'Dumper';
7	print Dumper [ @_ ];
8}
9
10
11sub x : Call(some,data) { };
12