File Coverage

blib/lib/WebService/Coincheck/Leverage.pm
Criterion Covered Total %
statement 12 16 75.0
branch n/a
condition n/a
subroutine 4 5 80.0
pod 0 2 0.0
total 16 23 69.5


line stmt bran cond sub pod time code
1             package WebService::Coincheck::Leverage;
2 2     2   522758 use strict;
  2         6  
  2         87  
3 2     2   14 use warnings;
  2         9  
  2         139  
4             use Class::Accessor::Lite (
5 2         21 ro => [qw/
6             client
7             /],
8 2     2   568 );
  2         1087  
9              
10             sub new {
11 1     1 0 32 my $class = shift;
12 1         2 my $client = shift;
13              
14 1         7 bless {
15             client => $client,
16             }, $class;
17             }
18              
19             sub info {
20 0     0 0   my ($self, %params) = @_;
21              
22 0           my $req_params;
23              
24 0           my $res = $self->client->request(
25             'GET' => 'api/exchange/leverage/positions',
26             $req_params,
27             );
28              
29 0           return $res;
30             }
31              
32             1;