diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-03 16:50:33 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-03 16:50:33 +0000 |
commit | 04070b925af8464d3aedecd339180269e7246ebd (patch) | |
tree | ef805865fbcbe5c1b0fe742efda419b0759588ac /lib/Attribute/Handlers/demo/demo_call.pl | |
parent | fd3f0ae2eb3d54d08e1e42a7b715a312f9a9efda (diff) | |
download | perl-04070b925af8464d3aedecd339180269e7246ebd.tar.gz |
Upgrade to Attribute::Handlers 0.70.
NOTE: this unearthed the "too late for CHECK block" bug,
that's why the 1_compile.t change.
p4raw-id: //depot/perl@10407
Diffstat (limited to 'lib/Attribute/Handlers/demo/demo_call.pl')
-rwxr-xr-x | lib/Attribute/Handlers/demo/demo_call.pl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lib/Attribute/Handlers/demo/demo_call.pl b/lib/Attribute/Handlers/demo/demo_call.pl new file mode 100755 index 0000000000..1a97342116 --- /dev/null +++ b/lib/Attribute/Handlers/demo/demo_call.pl @@ -0,0 +1,11 @@ +#! /usr/local/bin/perl -w + +use Attribute::Handlers; + +sub Call : ATTR { + use Data::Dumper 'Dumper'; + print Dumper [ @_ ]; +} + + +sub x : Call(some,data) { }; |