Sign in
android
/
toolchain
/
perl
/
85598a3a597441edb4af308243cc9ff5f9666330
/
.
/
perl-5.16.2
/
dist
/
Attribute-Handlers
/
demo
/
demo_call.pl
blob: 1a97342116954abc85f26451c2621123a648bf20 [
file
] [
log
] [
blame
]
#! /usr/local/bin/perl -w
use
Attribute
::
Handlers
;
sub
Call
:
ATTR
{
use
Data
::
Dumper
'Dumper'
;
print
Dumper
[
@_
];
}
sub
x
:
Call
(
some
,
data
)
{
};