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