File Coverage

blib/lib/Hash/Util/Exists/Tiny.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition			n/a
subroutine	10	10	100.0
pod	6	6	100.0
total	39	39	100.0

package Hash::Util::Exists::Tiny;

use 5.010_001;
use strict;
use warnings FATAL => 'all';

use Exporter 'import';

our $VERSION = '0.04';


our @EXPORT_OK   = qw(exists_one_of  list_exists  num_exists
                      defined_one_of list_defined num_defined);
our %EXPORT_TAGS = (all => \@EXPORT_OK);



sub exists_one_of {
  my $href = shift;
  return !!grep(exists($href->{$_}), @_);
}


sub list_exists {
  my $href = shift;
  return grep(exists($href->{$_}), @_);
}


sub num_exists {
  my $href = shift;
  return scalar grep(exists($href->{$_}), @_);
}


sub defined_one_of {
  my $href = shift;
  return !!grep(defined($href->{$_}), @_);
}


sub list_defined {
  my $href = shift;
  return grep(defined($href->{$_}), @_);
}


sub num_defined {
  my $href = shift;
  return scalar grep(defined($href->{$_}), @_);
}



1;

__END__