home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 June / PCWorld_2005-06_cd.bin / software / vyzkuste / firewally / firewally.exe / framework-2.3.exe / demo2.pl < prev    next >
Perl Script  |  2003-11-07  |  588b  |  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.