1N/A#! /usr/local/bin/perl -w
1N/A
1N/Ause Attribute::Handlers;
1N/Ause Data::Dumper 'Dumper';
1N/A
1N/Asub UNIVERSAL::Beginner : ATTR(SCALAR,BEGIN,END)
1N/A { print STDERR "Beginner: ", Dumper \@_}
1N/A
1N/Asub UNIVERSAL::Checker : ATTR(CHECK,SCALAR)
1N/A { print STDERR "Checker: ", Dumper \@_}
1N/A
1N/Asub UNIVERSAL::Initer : ATTR(SCALAR,INIT)
1N/A { print STDERR "Initer: ", Dumper \@_}
1N/A
1N/Apackage Other;
1N/A
1N/Amy $x :Initer(1) :Checker(2) :Beginner(3);
1N/Amy $y :Initer(4) :Checker(5) :Beginner(6);