1 #! /usr/local/bin/perl -w
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);
16 sub Demo :ATTR(SCALAR) { print STDERR "tada\n" }
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);
26 my Demo $dother : Demo :This($this) = "okay";
27 my Named $nother : Demo :This($this) = "okay";