config_sh.PL need to scan dist/ as well as cpan/ and ext/
[perl.git] / ext / 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);