perl-5.16.2/cpan/Test-Harness/t/lib/MyCustom.pm

# avoid cut-n-paste exhaustion with this mixin

package MyCustom;
use strict;

sub custom {
    my $self = shift;
    $main::CUSTOM{ ref($self) || $self }++;
    return $self;
}

1;