[p5sagit/p5-mst-13.2.git] / lib / Attribute / Handlers / demo / demo_call.pl

#! /usr/local/bin/perl -w

use Attribute::Handlers;

sub Call : ATTR {
	use Data::Dumper 'Dumper';
	print Dumper [ @_ ];
}


sub x : Call(some,data) { };
Commit	Line	Data
04070b92	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) { };