File Coverage

blib/lib/Net/Braintree/AdvancedSearch.pm

Criterion	Covered	Total	%
statement	9	16	56.2
branch	0	2	0.0
condition			n/a
subroutine	3	4	75.0
pod	0	1	0.0
total	12	23	52.1

package Net::Braintree::AdvancedSearch;

use strict;
use vars qw(@ISA @EXPORT_OK);
use Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(search_to_hash);

sub search_to_hash {
  my ($self,$search) = @_;
  my $hash = {};
  for my $attribute ($search->meta()->get_all_attributes) {
    my $field = $attribute->name;
    if ($search->$field->active()) {
      $hash->{$field} = $search->$field->criteria;
    }
  }
  return $hash;
}

1;