From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

MAUKE / perl-5.41.10 / dist / Attribute-Handlers / demo / demo3.pl 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

              
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/);