[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / 5.8.0 / 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
86530b38 AT	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) { };