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