lib/Attribute/Handlers/demo/demo3.pl

   1 package main;
   2 use MyClass;
   3
   4 my MyClass $x :Good :Bad(1**1-1) :Omni(vorous);
   5
   6 package SomeOtherClass;
   7 use base MyClass;
   8
   9 sub tent { 'acle' }
  10
  11 sub w :Ugly(sister) :Omni('po',tent()) {}
  12
  13 my @y :Good :Omni(s/cie/nt/);
  14
  15 my %y :Good(q/bye) :Omni(q/bus/);
  16