File Coverage

blib/lib/Hash/Unique.pm

Criterion	Covered	Total	%
statement	8	21	38.1
branch	0	4	0.0
condition			n/a
subroutine	3	5	60.0
pod	1	2	50.0
total	12	32	37.5

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

our $VERSION = "0.05";

sub get_unique_hash {
  (my $array_hash, my $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, my $array_ref) = @_;

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

  return 0;
}

1;
__END__