lib/Attribute/Handlers/demo/demo_call.pl

   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) { };