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


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

# avoid cut-n-paste exhaustion with this mixin

package MyCustom;
use strict;

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

1;