sub new
{
   my $self = {};
   my $class = shift;

   bless($self, $class);

   $self->{'_counts'} = {};
   return $self;
}