File Coverage

blib/lib/Rex/Helper/Array.pm

Criterion	Covered	Total	%
statement	11	21	52.3
branch	0	4	0.0
condition	0	3	0.0
subroutine	4	6	66.6
pod	0	2	0.0
total	15	36	41.6

#
# (c) Jan Gehring
#

package Rex::Helper::Array;

use v5.12.5;
use warnings;

our $VERSION = '1.14.2.3'; # TRIAL VERSION

require Exporter;
use base qw(Exporter);
use vars qw(@EXPORT);

@EXPORT = qw(array_uniq in_array);

sub array_uniq {
  my (@array) = @_;

  my %all = ();
  @all{@array} = 1;
  return keys %all;
}

sub in_array {
  my ( $needle, @haystack ) = @_;

  my ($ret) = grep {
    if ( ref $needle eq "RegExp" && $_ =~ $needle ) {
      return $_;
    }
    elsif ( $_ eq $needle ) {
      return $_;
    }
  } @haystack;

  return $ret;
}

1;