Move Attribute::Handlers from ext/ to dist/
[perl.git] / dist / Attribute-Handlers / demo / demo.pl
1 #! /usr/local/bin/perl -w
2
3 use 5.006;
4 use base Demo;
5
6 my $y : Demo :This($this) = sub : Demo(1,2,3) {};
7 sub x : Demo(4, 5, 6) :Multi {}
8 my %z : Demo(hash) :Multi(method,maybe);
9 # my %a : NDemo(hash);
10
11 {
12         package Named;
13
14         use base Demo;
15
16         sub Demo :ATTR(SCALAR) { print STDERR "tada\n" }
17
18         my $y : Demo :This($this) = sub : Demo(1,2,3) {};
19         sub x : ExplMulti :Demo(4,5,6) {}
20         my %z : ExplMulti :Demo(hash);
21         my Named $q : Demo;
22 }
23
24 package Other;
25
26 my Demo $dother : Demo :This($this) = "okay";
27 my Named $nother : Demo :This($this) = "okay";
28
29 # my $unnamed : Demo;
30
31 # sub foo : Demo();