1*b39c5158Smillertpackage Selfish; 2*b39c5158Smillert 3*b39c5158Smillertsub TIESCALAR { 4*b39c5158Smillert use Data::Dumper 'Dumper'; 5*b39c5158Smillert print Dumper [ \@_ ]; 6*b39c5158Smillert bless [ @_[1..$#_] ], $_[0]; 7*b39c5158Smillert} 8*b39c5158Smillert 9*b39c5158Smillertsub FETCH { 10*b39c5158Smillert use Data::Dumper 'Dumper'; 11*b39c5158Smillert Dumper [ @{$_[0]} ]; 12*b39c5158Smillert} 13*b39c5158Smillert 14*b39c5158Smillertpackage main; 15*b39c5158Smillert 16*b39c5158Smillertuse Attribute::Handlers autotieref => { Selfish => Selfish }; 17*b39c5158Smillert 18*b39c5158Smillertmy $next : Selfish("me"); 19*b39c5158Smillertprint "$next\n"; 20*b39c5158Smillert 21*b39c5158Smillertmy $last : Selfish("you","them","who?"); 22*b39c5158Smillertprint "$last\n"; 23*b39c5158Smillert 24*b39c5158Smillertmy $other : Selfish(["you","them","who?"]); 25*b39c5158Smillertprint "$other\n"; 26