summaryrefslogtreecommitdiff
path: root/lib/Attribute/Handlers/demo/demo_call.pl
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-06-03 16:50:33 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-06-03 16:50:33 +0000
commit04070b925af8464d3aedecd339180269e7246ebd (patch)
treeef805865fbcbe5c1b0fe742efda419b0759588ac /lib/Attribute/Handlers/demo/demo_call.pl
parentfd3f0ae2eb3d54d08e1e42a7b715a312f9a9efda (diff)
downloadperl-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-xlib/Attribute/Handlers/demo/demo_call.pl11
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) { };