Mixins
file: examples/027_twop.pl1: package Krunch; 2: use base 'Class::Accessor'; 3: use rlib '.'; 4: use Twop; 5: 6: package main; 7: 8: my $krunch=Krunch->new({ 9: bloop=>"Woman Tightening Her Husband's Leather Belt" 10: }); 11: 12: print $krunch->dump;
Krunch
,use Twop
in it.main
we initiate an object of this class.