File Coverage

lib/WebService/Braintree/SubscriptionSearch.pm
Criterion Covered Total %
statement 11 12 91.6
branch n/a
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 15 18 83.3


line stmt bran cond sub pod time code
1             package WebService::Braintree::SubscriptionSearch;
2             $WebService::Braintree::SubscriptionSearch::VERSION = '0.94';
3 20     20   341 use 5.010_001;
  20         61  
4 20     20   96 use strictures 1;
  20         115  
  20         702  
5              
6 20     20   1739 use Moose;
  20         40  
  20         96  
7 20     20   114773 use WebService::Braintree::AdvancedSearch;
  20         49  
  20         2707  
8              
9             my $field = WebService::Braintree::AdvancedSearchFields->new(metaclass => __PACKAGE__->meta);
10              
11             $field->text("id");
12             $field->text("transaction_id");
13             $field->text("plan_id");
14              
15             $field->multiple_values("in_trial_period");
16             $field->multiple_values("status", WebService::Braintree::Subscription::Status::All);
17             $field->multiple_values("merchant_account_id");
18             $field->multiple_values("ids");
19              
20             $field->range("price");
21             $field->range("days_past_due");
22             $field->range("billing_cycles_remaining");
23             $field->range("next_billing_date");
24              
25             sub to_hash {
26 0     0 0   WebService::Braintree::AdvancedSearch->search_to_hash(shift);
27             }
28              
29             __PACKAGE__->meta->make_immutable;
30              
31             1;
32             __END__