Move Attribute::Handlers from ext/ to dist/
[perl.git] / dist / 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