t/lib/MyCustom.pm

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