line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
##---------------------------------------------------------------------------- |
2
|
|
|
|
|
|
|
## Stripe API - ~/lib/Net/API/Stripe/Dispute/EvidenceDetails.pm |
3
|
|
|
|
|
|
|
## Version v0.100.0 |
4
|
|
|
|
|
|
|
## Copyright(c) 2019 DEGUEST Pte. Ltd. |
5
|
|
|
|
|
|
|
## Author: Jacques Deguest <jack@deguest.jp> |
6
|
|
|
|
|
|
|
## Created 2019/11/02 |
7
|
|
|
|
|
|
|
## Modified 2020/05/15 |
8
|
|
|
|
|
|
|
## |
9
|
|
|
|
|
|
|
##---------------------------------------------------------------------------- |
10
|
|
|
|
|
|
|
package Net::API::Stripe::Dispute::EvidenceDetails; |
11
|
|
|
|
|
|
|
BEGIN |
12
|
|
|
|
|
|
|
{ |
13
|
2
|
|
|
2
|
|
21271396
|
use strict; |
|
2
|
|
|
|
|
15
|
|
|
2
|
|
|
|
|
63
|
|
14
|
2
|
|
|
2
|
|
10
|
use warnings; |
|
2
|
|
|
|
|
5
|
|
|
2
|
|
|
|
|
59
|
|
15
|
2
|
|
|
2
|
|
10
|
use parent qw( Net::API::Stripe::Generic ); |
|
2
|
|
|
|
|
6
|
|
|
2
|
|
|
|
|
10
|
|
16
|
2
|
|
|
2
|
|
137
|
use vars qw( $VERSION ); |
|
2
|
|
|
|
|
5
|
|
|
2
|
|
|
|
|
114
|
|
17
|
2
|
|
|
2
|
|
38
|
our( $VERSION ) = 'v0.100.0'; |
18
|
|
|
|
|
|
|
}; |
19
|
|
|
|
|
|
|
|
20
|
2
|
|
|
2
|
|
11
|
use strict; |
|
2
|
|
|
|
|
5
|
|
|
2
|
|
|
|
|
39
|
|
21
|
2
|
|
|
2
|
|
9
|
use warnings; |
|
2
|
|
|
|
|
5
|
|
|
2
|
|
|
|
|
662
|
|
22
|
|
|
|
|
|
|
|
23
|
0
|
|
|
0
|
1
|
|
sub due_by { return( shift->_set_get_datetime( 'due_by', @_ ) ); } |
24
|
|
|
|
|
|
|
|
25
|
0
|
|
|
0
|
1
|
|
sub has_evidence { return( shift->_set_get_boolean( 'has_evidence', @_ ) ); } |
26
|
|
|
|
|
|
|
|
27
|
0
|
|
|
0
|
1
|
|
sub past_due { return( shift->_set_get_boolean( 'past_due', @_ ) ); } |
28
|
|
|
|
|
|
|
|
29
|
0
|
|
|
0
|
1
|
|
sub submission_count { return( shift->_set_get_scalar( 'submission_count', @_ ) ); } |
30
|
|
|
|
|
|
|
|
31
|
|
|
|
|
|
|
1; |
32
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
__END__ |
34
|
|
|
|
|
|
|
|
35
|
|
|
|
|
|
|
=encoding utf8 |
36
|
|
|
|
|
|
|
|
37
|
|
|
|
|
|
|
=head1 NAME |
38
|
|
|
|
|
|
|
|
39
|
|
|
|
|
|
|
Net::API::Stripe::Dispute::EvidenceDetails - Dispute Evidence Details Object |
40
|
|
|
|
|
|
|
|
41
|
|
|
|
|
|
|
=head1 SYNOPSIS |
42
|
|
|
|
|
|
|
|
43
|
|
|
|
|
|
|
my $detail = $dispute->evidence_details({ |
44
|
|
|
|
|
|
|
due_by => '2020-04-12', |
45
|
|
|
|
|
|
|
has_evidence => $stripe->true, |
46
|
|
|
|
|
|
|
past_due => '2020-05-01', |
47
|
|
|
|
|
|
|
submission_count => 2, |
48
|
|
|
|
|
|
|
}); |
49
|
|
|
|
|
|
|
|
50
|
|
|
|
|
|
|
=head1 VERSION |
51
|
|
|
|
|
|
|
|
52
|
|
|
|
|
|
|
v0.100.0 |
53
|
|
|
|
|
|
|
|
54
|
|
|
|
|
|
|
=head1 DESCRIPTION |
55
|
|
|
|
|
|
|
|
56
|
|
|
|
|
|
|
This is instantiated by method B<evidence_details> from module L<Net::API::Stripe::Dispute> |
57
|
|
|
|
|
|
|
|
58
|
|
|
|
|
|
|
=head1 CONSTRUCTOR |
59
|
|
|
|
|
|
|
|
60
|
|
|
|
|
|
|
=head2 new( %ARG ) |
61
|
|
|
|
|
|
|
|
62
|
|
|
|
|
|
|
Creates a new L<Net::API::Stripe::Dispute::EvidenceDetails> object. |
63
|
|
|
|
|
|
|
It may also take an hash like arguments, that also are method of the same name. |
64
|
|
|
|
|
|
|
|
65
|
|
|
|
|
|
|
=head1 METHODS |
66
|
|
|
|
|
|
|
|
67
|
|
|
|
|
|
|
=head2 due_by timestamp |
68
|
|
|
|
|
|
|
|
69
|
|
|
|
|
|
|
Date by which evidence must be submitted in order to successfully challenge dispute. Will be null if the customer’s bank or credit card company doesn’t allow a response for this particular dispute. |
70
|
|
|
|
|
|
|
|
71
|
|
|
|
|
|
|
=head2 has_evidence boolean |
72
|
|
|
|
|
|
|
|
73
|
|
|
|
|
|
|
Whether evidence has been staged for this dispute. |
74
|
|
|
|
|
|
|
|
75
|
|
|
|
|
|
|
=head2 past_due boolean |
76
|
|
|
|
|
|
|
|
77
|
|
|
|
|
|
|
Whether the last evidence submission was submitted past the due date. Defaults to false if no evidence submissions have occurred. If true, then delivery of the latest evidence is not guaranteed. |
78
|
|
|
|
|
|
|
|
79
|
|
|
|
|
|
|
=head2 submission_count integer |
80
|
|
|
|
|
|
|
|
81
|
|
|
|
|
|
|
The number of times evidence has been submitted. Typically, you may only submit evidence once. |
82
|
|
|
|
|
|
|
|
83
|
|
|
|
|
|
|
=head1 API SAMPLE |
84
|
|
|
|
|
|
|
|
85
|
|
|
|
|
|
|
{ |
86
|
|
|
|
|
|
|
"object": "balance", |
87
|
|
|
|
|
|
|
"available": [ |
88
|
|
|
|
|
|
|
{ |
89
|
|
|
|
|
|
|
"amount": 0, |
90
|
|
|
|
|
|
|
"currency": "jpy", |
91
|
|
|
|
|
|
|
"source_types": { |
92
|
|
|
|
|
|
|
"card": 0 |
93
|
|
|
|
|
|
|
} |
94
|
|
|
|
|
|
|
} |
95
|
|
|
|
|
|
|
], |
96
|
|
|
|
|
|
|
"connect_reserved": [ |
97
|
|
|
|
|
|
|
{ |
98
|
|
|
|
|
|
|
"amount": 0, |
99
|
|
|
|
|
|
|
"currency": "jpy" |
100
|
|
|
|
|
|
|
} |
101
|
|
|
|
|
|
|
], |
102
|
|
|
|
|
|
|
"livemode": false, |
103
|
|
|
|
|
|
|
"pending": [ |
104
|
|
|
|
|
|
|
{ |
105
|
|
|
|
|
|
|
"amount": 7712, |
106
|
|
|
|
|
|
|
"currency": "jpy", |
107
|
|
|
|
|
|
|
"source_types": { |
108
|
|
|
|
|
|
|
"card": 7712 |
109
|
|
|
|
|
|
|
} |
110
|
|
|
|
|
|
|
} |
111
|
|
|
|
|
|
|
] |
112
|
|
|
|
|
|
|
} |
113
|
|
|
|
|
|
|
|
114
|
|
|
|
|
|
|
=head1 HISTORY |
115
|
|
|
|
|
|
|
|
116
|
|
|
|
|
|
|
=head2 v0.1 |
117
|
|
|
|
|
|
|
|
118
|
|
|
|
|
|
|
Initial version |
119
|
|
|
|
|
|
|
|
120
|
|
|
|
|
|
|
=head1 AUTHOR |
121
|
|
|
|
|
|
|
|
122
|
|
|
|
|
|
|
Jacques Deguest E<lt>F<jack@deguest.jp>E<gt> |
123
|
|
|
|
|
|
|
|
124
|
|
|
|
|
|
|
=head1 SEE ALSO |
125
|
|
|
|
|
|
|
|
126
|
|
|
|
|
|
|
Stripe API documentation: |
127
|
|
|
|
|
|
|
|
128
|
|
|
|
|
|
|
L<https://stripe.com/docs/api/disputes/object> |
129
|
|
|
|
|
|
|
|
130
|
|
|
|
|
|
|
=head1 COPYRIGHT & LICENSE |
131
|
|
|
|
|
|
|
|
132
|
|
|
|
|
|
|
Copyright (c) 2019-2020 DEGUEST Pte. Ltd. |
133
|
|
|
|
|
|
|
|
134
|
|
|
|
|
|
|
You can use, copy, modify and redistribute this package and associated |
135
|
|
|
|
|
|
|
files under the same terms as Perl itself. |
136
|
|
|
|
|
|
|
|
137
|
|
|
|
|
|
|
=cut |
138
|
|
|
|
|
|
|
|