File Coverage

blib/lib/WebService/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 WebService::Braintree::AdvancedSearch;
$WebService::Braintree::AdvancedSearch::VERSION = '0.92';

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;