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