xref: /openbsd-src/gnu/usr.bin/perl/cpan/Test-Harness/t/lib/MyCustom.pm (revision 6fb12b7054efc6b436584db6cef9c2f85c0d7e27)

# avoid cut-n-paste exhaustion with this mixin

package MyCustom;
use strict;
use warnings;

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

1;