1#! /usr/local/bin/perl -w 2 3use 5.006; 4use base Demo; 5 6my $y : Demo :This($this) = sub : Demo(1,2,3) {}; 7sub x : Demo(4, 5, 6) :Multi {} 8my %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 24package Other; 25 26my Demo $dother : Demo :This($this) = "okay"; 27my Named $nother : Demo :This($this) = "okay"; 28 29# my $unnamed : Demo; 30 31# sub foo : Demo(); 32