File Coverage

blib/lib/WebService/Braintree/SubscriptionSearch.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 WebService::Braintree::SubscriptionSearch;
2             $WebService::Braintree::SubscriptionSearch::VERSION = '0.92';
3 1     1   9 use Moose;
  1         4  
  1         7  
4 1     1   5704 use WebService::Braintree::AdvancedSearch;
  1         3  
  1         162  
5              
6             my $field = WebService::Braintree::AdvancedSearchFields->new(metaclass => __PACKAGE__->meta);
7              
8             $field->text("id");
9             $field->text("transaction_id");
10             $field->text("plan_id");
11              
12             $field->multiple_values("in_trial_period");
13             $field->multiple_values("status", WebService::Braintree::Subscription::Status::All);
14             $field->multiple_values("merchant_account_id");
15             $field->multiple_values("ids");
16              
17             $field->range("price");
18             $field->range("days_past_due");
19             $field->range("billing_cycles_remaining");
20             $field->range("next_billing_date");
21              
22             sub to_hash {
23 0     0 0   WebService::Braintree::AdvancedSearch->search_to_hash(shift);
24             }
25              
26             __PACKAGE__->meta->make_immutable;
27             1;
28