File Coverage

blib/lib/Net/API/Stripe/Connect/Transfer/Reversals.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 10 100.0


line stmt bran cond sub pod time code
1             ##----------------------------------------------------------------------------
2             ## Stripe API - ~/lib/Net/API/Stripe/Connect/Transfer/Reversals.pm
3             ## Version v0.100.0
4             ## Copyright(c) 2019 DEGUEST Pte. Ltd.
5             ## Author: Jacques Deguest <@sitael.tokyo.deguest.jp>
6             ## Created 2019/11/02
7             ## Modified 2020/05/15
8             ##
9             ##----------------------------------------------------------------------------
10             package Net::API::Stripe::Connect::Transfer::Reversals;
11             BEGIN
12             {
13 1     1   857 use strict;
  1         2  
  1         30  
14 1     1   5 use parent qw( Net::API::Stripe::List );
  1         2  
  1         5  
15 1     1   84 our( $VERSION ) = 'v0.100.0';
16             };
17              
18             # Inherited
19             # sub object { shift->_set_get_scalar( 'object', @_ ); }
20              
21             ## Array of Net::API::Stripe::Connect::Transfer::Reversal
22             ## sub data { shift->_set_get_object_array( 'data', 'Net::API::Stripe::Connect::Transfer::Reversal', @_ ); }
23              
24             # Inherited
25             # sub has_more { shift->_set_get_scalar( 'has_more', @_ ); }
26              
27             # Inherited
28             # sub total_count { shift->_set_get_scalar( 'total_count', @_ ); }
29              
30             # Inherited
31             # sub url { shift->_set_get_uri( 'url', @_ ); }
32              
33             1;
34              
35             __END__
36              
37             =encoding utf8
38              
39             =head1 NAME
40              
41             Net::API::Stripe::Connect::Transfer::Reversals - A list of Transfer Reversal as Object
42              
43             =head1 SYNOPSIS
44              
45             my $list = $stripe->reversals( 'list' ) || die( $stripe->error );
46             while( my $rev = $list->next )
47             {
48             printf( <<EOT, $rev->amount->format_money( 0, 'Â¥' ), $rev->currency, $rev->created->iso8601 );
49             Amount: %s
50             Currency: %s
51             Created: %s
52             EOT
53             }
54              
55             Would produce:
56              
57             Amount: Â¥2,000
58             Currency: jpy
59             Created: 2020-04-06T06:00:00
60              
61             =head1 VERSION
62              
63             v0.100.0
64              
65             =head1 DESCRIPTION
66              
67             A list of reversals that have been applied to the transfer.
68              
69             This module inherits from L<Net::API::Stripe::List> and overrides only the B<data> method.
70              
71             =head1 CONSTRUCTOR
72              
73             =over 4
74              
75             =item B<new>( %ARG )
76              
77             Creates a new L<Net::API::Stripe::Connect::Transfer::Reversals> object.
78              
79             =item B<has_more> boolean
80              
81             True if this list has another page of items after this one that can be fetched.
82              
83             =item B<url> string
84              
85             The URL where this list can be accessed.
86              
87             =back
88              
89             =head1 API SAMPLE
90              
91             {
92             "object": "list",
93             "url": "/v1/transfers/tr_fake123456789/reversals",
94             "has_more": false,
95             "data": [
96             {
97             "id": "trr_fake123456789",
98             "object": "transfer_reversal",
99             "amount": 1100,
100             "balance_transaction": "txn_fake123456789",
101             "created": 1571480456,
102             "currency": "jpy",
103             "destination_payment_refund": null,
104             "metadata": {},
105             "source_refund": null,
106             "transfer": "tr_fake123456789"
107             },
108             {...},
109             {...}
110             ]
111             }
112              
113             =head1 HISTORY
114              
115             =head2 v0.1
116              
117             Initial version
118              
119             =head1 AUTHOR
120              
121             Jacques Deguest E<lt>F<jack@deguest.jp>E<gt>
122              
123             =head1 SEE ALSO
124              
125             Stripe API documentation:
126              
127             L<https://stripe.com/docs/api/transfer_reversals/list>
128              
129             =head1 COPYRIGHT & LICENSE
130              
131             Copyright (c) 2019-2020 DEGUEST Pte. Ltd.
132              
133             You can use, copy, modify and redistribute this package and associated
134             files under the same terms as Perl itself.
135              
136             =cut