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