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