lib/Attribute/Handlers/demo/demo2.pl

   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) {}