Commit | Line | Data |
---|---|---|
04070b92 | 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); |