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