sub add { my $self = shift; my $thing = shift; return undef if $self->contains($thing); return $self->SUPER::add($thing); }