File Coverage

blib/lib/Net/Braintree/Util.pm

Criterion	Covered	Total	%
statement	12	55	21.8
branch	0	16	0.0
condition	0	3	0.0
subroutine	4	15	26.6
pod	0	11	0.0
total	16	100	16.0

package Net::Braintree::Util;
use strict;

use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS );
use URI::Query;
use Exporter qw(import);
our @ISA = qw(Exporter);
our @EXPORT = qw(to_instance_array flatten is_hashref is_arrayref hash_to_query_string equal_arrays difference_arrays validate_id contains);

sub flatten {
  my($hash, $namespace) = @_;
  my %flat_hash = ();
  while (my ($key, $value) = each(%$hash)) {
    if (is_hashref($value)) {
      my $sub_entries = flatten($value, add_namespace($key, $namespace));
      %flat_hash = (%flat_hash, %$sub_entries);
    } else {
      $flat_hash{add_namespace($key, $namespace)} = $value;
    }
  }
  return \%flat_hash;
}

sub add_namespace {
  my ($key, $namespace) = @_;
  return $key unless $namespace;
  return "${namespace}[${key}]";
}

sub is_hashref {
  ref(shift) eq 'HASH';
}

sub is_arrayref {
  ref(shift) eq 'ARRAY';
}

sub equal_arrays {
  my ($first, $second) = @_;
  return 0 unless @$first == @$second;
  for (my $i = 0; $i < @$first; $i++) {
    return 0 if $first->[$i] ne $second->[$i];
  }
  return 1;
}

sub difference_arrays {
  my ($array1, $array2) = @_;
  my @diff;
  foreach my $element (@$array1) {
    push(@diff, $element) unless contains($element, $array2);
  }
  return \@diff;
}

sub hash_to_query_string {
  my $query = URI::Query -> new(flatten(shift));
  return $query->stringify();
}

sub to_instance_array {
  my ($attrs, $class) = @_;
  my @result = ();
  if(ref $attrs ne "ARRAY") {
    push(@result, $class->new($attrs));
  } else {
    for(@$attrs) {
      push(@result, $class->new($_));
    }
  }
  return \@result;
}
sub trim {
  my $string = shift;
  $string =~ s/^\s+//;
  $string =~ s/\s+$//;
  return $string;
}

sub validate_id {
  my $id = shift;
  return 0 if(!defined($id) || trim($id) eq "");
  return 1;
}

sub contains {
  my ($element, $array) = @_;
  for (@$array) {
    return 1 if $_ eq $element;
  }
  return 0;
}
1;