Mixins
file: examples/Twop.pm1: package Twop; 2: use Data::Dumper; 3: 4: sub import { 5: my $caller=caller(); 6: *{"$caller\::dump"}=\&dump;; 7: } 8: 9: sub dump { 10: my $self=shift; 11: return Dumper($self); 12: } 13: 1;
dump
$self
mittels Data::Dumper
dumped.