1*b39c5158Smillert#! /usr/local/bin/perl -w 2*b39c5158Smillert 3*b39c5158Smillertuse Attribute::Handlers; 4*b39c5158Smillert 5*b39c5158Smillertsub Call : ATTR { 6*b39c5158Smillert use Data::Dumper 'Dumper'; 7*b39c5158Smillert print Dumper [ @_ ]; 8*b39c5158Smillert} 9*b39c5158Smillert 10*b39c5158Smillert 11*b39c5158Smillertsub x : Call(some,data) { }; 12