File Coverage

blib/lib/Finance/CaVirtex/API/Request/TradeBook.pm
Criterion Covered Total %
statement 34 35 97.1
branch n/a
condition n/a
subroutine 16 17 94.1
pod 0 10 0.0
total 50 62 80.6


line stmt bran cond sub pod time code
1             package Finance::CaVirtex::API::Request::TradeBook;
2 1     1   5 use base qw(Finance::CaVirtex::API::Request);
  1         1  
  1         121  
3 1     1   6 use strict;
  1         2  
  1         42  
4              
5 1     1   5 use constant URL => 'https://cavirtex.com/api2/trades.json';
  1         1  
  1         53  
6 1     1   5 use constant ATTRIBUTES => qw(currencypair days startdate enddate);
  1         1  
  1         50  
7 1     1   4 use constant DATA_KEY => [qw(orders trades)];
  1         2  
  1         36  
8 1     1   4 use constant REQUEST_TYPE => 'GET';
  1         6  
  1         39  
9 1     1   5 use constant IS_PRIVATE => 0;
  1         1  
  1         298  
10              
11 1     1 0 5 sub url { URL }
12 2     2 0 8 sub attributes { ATTRIBUTES }
13 3     3 0 15 sub request_type { REQUEST_TYPE }
14 0     0 0 0 sub data_key { DATA_KEY }
15 2     2 0 11 sub is_private { IS_PRIVATE }
16 4     4 0 6 sub currencypair { my $self = shift; $self->get_set(@_) }
  4         15  
17 1     1 0 2 sub days { my $self = shift; $self->get_set(@_) }
  1         11  
18 1     1 0 3 sub startdate { my $self = shift; $self->get_set(@_) }
  1         4  
19 1     1 0 3 sub enddate { my $self = shift; $self->get_set(@_) }
  1         6  
20             # Valid currencypair: BTCCAD, LTCCAD, BTCLTC
21 1     1 0 3 sub is_ready_to_send { defined shift->currencypair }
22              
23             1;
24              
25             __END__