sub count
{
    my $self=shift;
    if (@_) { $self->{count} += shift }
    return $self->{count};
}