home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _ad3e89b7554b4eee5524bae81f78efe4 < prev    next >
Text File  |  2004-06-01  |  609b  |  22 lines
  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) {}
  22.