File Coverage

lib/Finance/GDAX/API/Time.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 25 25 100.0


line stmt bran cond sub pod time code
1             package Finance::GDAX::API::Time;
2             our $VERSION = '0.01';
3 1     1   21974 use 5.20.0;
  1         5  
4 1     1   9 use warnings;
  1         3  
  1         37  
5 1     1   607 use Moose;
  1         469139  
  1         6  
6 1     1   6946 use Finance::GDAX::API;
  1         3  
  1         42  
7 1     1   9 use namespace::autoclean;
  1         3  
  1         9  
8              
9             extends 'Finance::GDAX::API';
10              
11             sub get {
12 1     1 1 6 my $self = shift;
13 1         31 $self->method('GET');
14 1         20 $self->path('/time');
15 1         10 return $self->send;
16             }
17              
18             __PACKAGE__->meta->make_immutable;
19             1;
20              
21             =head1 NAME
22              
23             Finance::GDAX::API::Time - Time
24              
25             =head1 SYNOPSIS
26              
27             use Finance::GDAX::API::Time;
28              
29             $time = Finance::GDAX::API::Time->new;
30              
31             # Get current time
32             $time_hash = $time->get;
33              
34             =head2 DESCRIPTION
35              
36             Gets the time reported by GDAX.
37              
38             =head1 METHODS
39              
40             =head2 C<get>
41              
42             Returns a hash representing the GDAX API server's notion of current
43             time.
44              
45             From the GDAX API:
46              
47             {
48             "iso": "2015-01-07T23:47:25.201Z",
49             "epoch": 1420674445.201
50             }
51              
52             =cut
53              
54              
55             =head1 AUTHOR
56              
57             Mark Rushing <mark@orbislumen.net>
58              
59             =head1 COPYRIGHT AND LICENSE
60              
61             This software is copyright (c) 2017 by Home Grown Systems, SPC.
62              
63             This is free software; you can redistribute it and/or modify it under
64             the same terms as the Perl 5 programming language system itself.
65              
66             =cut
67