File Coverage

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

Criterion	Covered	Total	%
statement	25	25	100.0
branch			n/a
condition			n/a
subroutine	14	14	100.0
pod	10	10	100.0
total	49	49	100.0

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

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

use Exporter 'import';

our $VERSION = '1.03';


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



sub exists_one_of {
  return !!grep(exists($_[0]->{$_}), @_);
}


sub list_exists {
  return grep(exists($_[0]->{$_}), @_);
}


sub list_exists_unique {
  my %seen;
  return grep(exists($_[0]->{$_}), grep(!$seen{$_}++, @_));
}


sub num_exists {
  return scalar grep(exists($_[0]->{$_}), @_);
}


sub num_exists_unique {
  my %seen;
  return scalar grep(exists($_[0]->{$_}), grep(!$seen{$_}++, @_));
}


sub defined_one_of {
  return !!grep(defined($_[0]->{$_}), @_);
}


sub list_defined {
  return grep(defined($_[0]->{$_}), @_);
}


sub list_defined_unique {
  my %seen;
  return grep(defined($_[0]->{$_}), grep(!$seen{$_}++, @_));
}


sub num_defined {
  return scalar grep(defined($_[0]->{$_}), @_);
}


sub num_defined_unique {
  my %seen;
  return scalar grep(defined($_[0]->{$_}), grep(!$seen{$_}++, @_));
}



1;

__END__