package TestPCS;
use base qw/Exporter/;
our @EXPORT = qw/check_done get_sent get_seen set_sent set_seen/;
sub get_sent { ++$_[0]->{get_sent} }
sub get_seen { ++$_[0]->{get_seen} }
sub set_sent { ++$_[0]->{set_sent} }
sub set_seen { ++$_[0]->{set_seen} }
sub check_done {
no warnings;
# $_[0]->{set_seen} and
$_[0]->{set_sent} == $_[0]->{set_seen}
and
# $_[0]->{get_seen} and
$_[0]->{get_sent} == $_[0]->{get_seen}
}
1;