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