demo3.pl revision 7c478bd95313f5f23a4c958a745db2134aa03244
package main;
use MyClass;
my MyClass $x :Good :Bad(1**1-1) :Omni(vorous);
package SomeOtherClass;
use base MyClass;
sub tent { 'acle' }
sub w :Ugly(sister) :Omni('po',tent()) {}
my @y :Good :Omni(s/cie/nt/);
my %y :Good(q/bye) :Omni(q/bus/);