File Coverage

blib/lib/Hash/Unique.pm

Criterion	Covered	Total	%
statement	8	24	33.3
branch	0	4	0.0
condition			n/a
subroutine	3	5	60.0
pod	1	2	50.0
total	12	35	34.2

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

our $VERSION = "0.03";

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__