Move Attribute::Handlers from ext/ to dist/
[perl.git] / dist / Attribute-Handlers / demo / demo2.pl
1 #! /usr/local/bin/perl -w
2
3 use 5.006;
4 use base Demo;
5 no warnings 'redefine';
6
7 my %z1 :Multi(method?maybe);
8 my %z2 :Multi(method,maybe);
9 my %z3 :Multi(qw(method,maybe));
10 my %z4 :Multi(qw(method maybe));
11 my %z5 :Multi('method','maybe');
12
13 sub foo :Demo(till=>ears=>are=>bleeding) {}
14 sub foo :Demo(['till','ears','are','bleeding']) {}
15 sub foo :Demo(qw/till ears are bleeding/) {}
16 sub foo :Demo(till,ears,are,bleeding) {}
17
18 sub foo :Demo(my,ears,are,bleeding) {}
19 sub foo :Demo(my=>ears=>are=>bleeding) {}
20 sub foo :Demo(qw/my, ears, are, bleeding/) {}
21 sub foo :Demo(qw/my ears are bleeding) {}