File Coverage

blib/lib/Net/Braintree/CustomerSearch.pm
Criterion Covered Total %
statement 6 7 85.7
branch n/a
condition n/a
subroutine 2 3 66.6
pod 0 1 0.0
total 8 11 72.7


line stmt bran cond sub pod time code
1             package Net::Braintree::CustomerSearch;
2 1     1   5 use Moose;
  1         2  
  1         14  
3 1     1   5892 use Net::Braintree::AdvancedSearch qw(search_to_hash);
  1         3  
  1         200  
4             my $meta = __PACKAGE__->meta();
5              
6             my $field = Net::Braintree::AdvancedSearchFields->new(metaclass => $meta);
7             $field->text("address_country_name");
8             $field->text("address_extended_address");
9             $field->text("address_first_name");
10             $field->text("address_last_name");
11             $field->text("address_locality");
12             $field->text("address_postal_code");
13             $field->text("address_region");
14             $field->text("address_street_address");
15             $field->text("cardholder_name");
16             $field->text("company");
17             $field->text("email");
18             $field->text("fax");
19             $field->text("first_name");
20             $field->text("id");
21             $field->text("last_name");
22             $field->text("payment_method_token");
23             $field->text("paypal_account_email");
24             $field->text("phone");
25             $field->text("website");
26              
27             $field->is("payment_method_token_with_duplicates");
28             $field->equality("credit_card_expiration_date");
29             $field->partial_match("credit_card_number");
30             $field->multiple_values("ids");
31             $field->range("created_at");
32              
33             sub to_hash {
34 0     0 0   Net::Braintree::AdvancedSearch->search_to_hash(shift);
35             }
36              
37             1;
38