package RememberingSet;

use Moo;
use Set;

has '_count' => (is => 'ro', default => sub { {  } });
has '_set'   => (is => 'ro', default => sub { Set->new });

no Moo;

sub has {
    my ($self, $e) = @_;

    $self->_count->{ $e }++;
    $self->_set->has($e);
}

sub add {
    my ($self, $e) = @_;

    $self->_count->{ $e }++;
    $self->_set->add($e);
}

sub seen {
    my ($self, $e) = @_;

    exists $self->_count->{ $e }
      ? $self->_count->{ $e }
      : 0;
}

1;