The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package TM::Synchronizable::Null;

use Class::Trait 'base';
use Class::Trait qw(TM::Synchronizable);

sub source_in {
    my $self = shift;
    $self->{_ins}++;
}

sub source_out {
    my $self = shift;
    $self->{_outs}++;
}

1;