File Coverage

blib/lib/Hash/Unique.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	4	4	100.0
condition			n/a
subroutine	4	4	100.0
pod	1	2	50.0
total	29	30	96.6

package Hash::Unique;
use strict;
use warnings;

our $VERSION = "0.06";

sub get_unique_hash {
  my $class = shift;
  my ($array_hash, $key) = @_;

  my @tmp;
  my @return_hash = ();

  foreach my $hash (@$array_hash) {
    if (!in_array($hash->{$key}, \@tmp)) {
      push (@return_hash, $hash);
      push (@tmp, $hash->{$key});
    }
  }

  return @return_hash;
}

sub in_array {
  my ($val, $array_ref) = @_;

  foreach my $elem (@$array_ref) {
    if ($val eq $elem) {
      return 1;
    }
  }

  return 0;
}

1;
__END__