gnu/usr.bin/perl/cpan/Test-Harness/t/lib/MyCustom.pm


1
2
3
4
5
6
7
8
9
10
11
12
13

# 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;