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