[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / 5.8.0 / Attribute / Handlers / demo / demo2.pl

#! /usr/local/bin/perl -w

use v5.6.0;
use base Demo;
no warnings 'redefine';

my %z1 :Multi(method?maybe);
my %z2 :Multi(method,maybe);
my %z3 :Multi(qw(method,maybe));
my %z4 :Multi(qw(method maybe));
my %z5 :Multi('method','maybe');

sub foo :Demo(till=>ears=>are=>bleeding) {}
sub foo :Demo(['till','ears','are','bleeding']) {}
sub foo :Demo(qw/till ears are bleeding/) {}
sub foo :Demo(till,ears,are,bleeding) {}

sub foo :Demo(my,ears,are,bleeding) {}
sub foo :Demo(my=>ears=>are=>bleeding) {}
sub foo :Demo(qw/my, ears, are, bleeding/) {}
sub foo :Demo(qw/my ears are bleeding) {}
Commit	Line	Data
86530b38 AT	1	#! /usr/local/bin/perl -w
	2
	3	use v5.6.0;
	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) {}