Mixins
file: examples/027_twop.pl 1: 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;
~/examples$ perl 027_twop.pl $VAR1 = bless( { 'bloop' => 'Woman Tightening Her Husband\'s Leather Belt' }, 'Krunch' );
dump
wurde aus der package Twop
in die package Krunch
exportiert