1# avoid cut-n-paste exhaustion with this mixin 2 3package MyCustom; 4use strict; 5use warnings; 6 7sub custom { 8 my $self = shift; 9 $main::CUSTOM{ ref($self) || $self }++; 10 return $self; 11} 12 131; 14