lib/Attribute/Handlers/demo/demo_cycle.pl

   1 package Selfish;
   2
   3 sub TIESCALAR {
   4         use Data::Dumper 'Dumper';
   5         print Dumper [ \@_ ];
   6         bless {}, $_[0];
   7 }
   8
   9 package main;
  10
  11 use Attribute::Handlers autotieref => { Selfish => Selfish };
  12
  13 my $next : Selfish("me");
  14
  15 print "$next\n";