sub has { _search(1,@_) }
sub missing { _search(0,@_) }
sub _search {
    my( $what, $self, $p ) = @_;
    ...
}