File Coverage

blib/lib/Finance/CaVirtex/API/Request/OrderHistory.pm
Criterion Covered Total %
statement 15 27 55.5
branch n/a
condition n/a
subroutine 5 13 38.4
pod 0 8 0.0
total 20 48 41.6


line stmt bran cond sub pod time code
1             package Finance::CaVirtex::API::Request::OrderHistory;
2 1     1   4 use base qw(Finance::CaVirtex::API::Request);
  1         1  
  1         62  
3 1     1   5 use strict;
  1         66  
  1         28  
4              
5 1     1   5 use constant URL => 'https://cavirtex.com/api2/user/orders.json';
  1         7  
  1         43  
6 1     1   4 use constant ATTRIBUTES => qw(currencypair days startdate enddate);
  1         1  
  1         42  
7 1     1   5 use constant DATA_KEY => 'orders';
  1         1  
  1         180  
8              
9 0     0 0   sub url { URL }
10 0     0 0   sub attributes { ATTRIBUTES }
11 0     0 0   sub data_key { DATA_KEY }
12 0     0 0   sub currencypair { my $self = shift; $self->get_set(@_) }
  0            
13 0     0 0   sub days { my $self = shift; $self->get_set(@_) }
  0            
14 0     0 0   sub startdate { my $self = shift; $self->get_set(@_) }
  0            
15 0     0 0   sub enddate { my $self = shift; $self->get_set(@_) }
  0            
16 0     0 0   sub is_ready_to_send { defined shift->currencypair }
17              
18             1;
19              
20             __END__