lib/Attribute/Handlers/demo/demo.pl

   1 #! /usr/local/bin/perl -w
   2
   3 use v5.6.0;
   4 use base Demo;
   5
   6 my $y : Demo :This($this) = sub : Demo(1,2,3) {};
   7 sub x : Demo(4,5,6) :Multi {}
   8 my %z : Demo(hash) :Multi(method,maybe);
   9 # my %a : NDemo(hash);
  10
  11 {
  12         package Named;
  13
  14         use base Demo;
  15
  16         sub Demo :ATTR(SCALAR) { print STDERR "tada\n" }
  17
  18         my $y : Demo :This($this) = sub : Demo(1,2,3) {};
  19         sub x : ExplMulti :Demo(4,5,6) {}
  20         my %z : ExplMulti :Demo(hash);
  21         my Named $q : Demo;
  22 }
  23
  24 package Other;
  25
  26 my Demo $dother : Demo :This($this) = "okay";
  27 my Named $nother : Demo :This($this) = "okay";
  28
  29 # my $unnamed : Demo;
  30
  31 # sub foo : Demo();