1a97342116954abc85f26451c2621123a648bf20
[perl.git] / ext / 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) { };