Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | #! /usr/local/bin/perl -w |
2 | ||
3 | use v5.6.0; | |
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(); |