demo_call.pl

来自「source of perl for linux application,」· PL 代码 · 共 12 行

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

use Attribute::Handlers;

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


sub x : Call(some,data) { };