home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 December / PCpro_2006_12.ISO / ossdvd / server / Perl2 / lib / Attribute / Handlers / demo / demo2.pl < prev    next >
Encoding:
Perl Script  |  2002-06-19  |  609 b   |  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.