File Coverage

lib/WebService/Braintree/CreditCardVerificationSearch.pm
Criterion Covered Total %
statement 14 15 93.3
branch n/a
condition n/a
subroutine 5 6 83.3
pod 0 1 0.0
total 19 22 86.3


line stmt bran cond sub pod time code
1             package WebService::Braintree::CreditCardVerificationSearch;
2             $WebService::Braintree::CreditCardVerificationSearch::VERSION = '0.94';
3 20     20   366 use 5.010_001;
  20         88  
4 20     20   104 use strictures 1;
  20         130  
  20         4050  
5              
6 20     20   1998 use Moose;
  20         38  
  20         101  
7 20     20   130728 use WebService::Braintree::CreditCard::CardType;
  20         47  
  20         477  
8 20     20   96 use WebService::Braintree::AdvancedSearch;
  20         34  
  20         2465  
9              
10             my $field = WebService::Braintree::AdvancedSearchFields->new(metaclass => __PACKAGE__->meta);
11             $field->text("id");
12             $field->text("credit_card_cardholder_name");
13             $field->equality("credit_card_expiration_date");
14             $field->partial_match("credit_card_number");
15             $field->multiple_values("ids");
16              
17             $field->multiple_values("credit_card_card_type", @{WebService::Braintree::CreditCard::CardType::All()});
18              
19             $field->range("created_at");
20              
21             sub to_hash {
22 0     0 0   WebService::Braintree::AdvancedSearch->search_to_hash(shift);
23             }
24              
25             __PACKAGE__->meta->make_immutable;
26              
27             1;
28             __END__