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