lib/Attribute/Handlers/demo/demo_phases.pl

   1 #! /usr/local/bin/perl -w
   2
   3 use Attribute::Handlers;
   4 use Data::Dumper 'Dumper';
   5
   6 sub UNIVERSAL::Beginner : ATTR(SCALAR,BEGIN,END)
   7         { print STDERR "Beginner: ", Dumper \@_}
   8
   9 sub UNIVERSAL::Checker : ATTR(CHECK,SCALAR)
  10         { print STDERR "Checker: ", Dumper \@_}
  11
  12 sub UNIVERSAL::Initer : ATTR(SCALAR,INIT)
  13         { print STDERR "Initer: ", Dumper \@_}
  14
  15 package Other;
  16
  17 my $x :Initer(1) :Checker(2) :Beginner(3);
  18 my $y :Initer(4) :Checker(5) :Beginner(6);