File Coverage

blib/lib/Net/API/Stripe/Issuing/Dispute/Evidence.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 5 60.0
pod 2 2 100.0
total 12 16 75.0


line stmt bran cond sub pod time code
1             ##----------------------------------------------------------------------------
2             ## Stripe API - ~/lib/Net/API/Stripe/Issuing/Dispute/Evidence.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::Issuing::Dispute::Evidence;
11             BEGIN
12             {
13 1     1   818 use strict;
  1         2  
  1         28  
14 1     1   5 use parent qw( Net::API::Stripe::Generic );
  1         1  
  1         5  
15 1     1   118 our( $VERSION ) = 'v0.100.0';
16             };
17              
18 0     0 1   sub fraudulent { return( shift->_set_get_object( 'fraudulent', 'Net::API::Stripe::Issuing::Dispute::Evidence::Fraudulent', @_ ) ); }
19              
20 0     0 1   sub other { return( shift->_set_get_object( 'other', 'Net::API::Stripe::Issuing::Dispute::Evidence::Other', @_ ) ); }
21              
22             1;
23              
24             __END__
25              
26             =encoding utf8
27              
28             =head1 NAME
29              
30             Net::API::Stripe::Issuing::Dispute::Evidence - A Stripe Issued Card Dispute Evidence Object
31              
32             =head1 SYNOPSIS
33              
34             my $ev = $stripe->issuing_dispute->evidence({
35             fraudulent =>
36             {
37             dispute_explanation => 'Service not provided',
38             uncategorized_file => $file_object,
39             },
40             other =>
41             {
42             dispute_explanation => 'Service was not provided',
43             uncategorized_file => $file_object,
44             },
45             });
46              
47             =head1 VERSION
48              
49             v0.100.0
50              
51             =head1 DESCRIPTION
52              
53             Evidence related to the dispute. This hash will contain exactly one non-null value, containing an evidence object that matches its reason
54              
55             This is instantiated by method B<evidence> in module L<Net::API::Stripe::Issuing::Dispute>
56              
57             =head1 CONSTRUCTOR
58              
59             =over 4
60              
61             =item B<new>( %ARG )
62              
63             Creates a new L<Net::API::Stripe::Issuing::Dispute::Evidence> object.
64             It may also take an hash like arguments, that also are method of the same name.
65              
66             =back
67              
68             =head1 METHODS
69              
70             =over 4
71              
72             =item B<fraudulent> hash
73              
74             Evidence to support a fraudulent dispute. This will only be present if your dispute’s reason is fraudulent.
75              
76             This is a L<Net::API::Stripe::Issuing::Dispute::Evidence::Fraudulent> object.
77              
78             =item B<other> hash
79              
80             Evidence to support an uncategorized dispute. This will only be present if your dispute’s reason is other.
81              
82             This is a L<Net::API::Stripe::Issuing::Dispute::Evidence::Other> object.
83              
84             =back
85              
86             =head1 API SAMPLE
87              
88             {
89             "id": "idp_fake123456789",
90             "object": "issuing.dispute",
91             "amount": 100,
92             "created": 1571480456,
93             "currency": "usd",
94             "disputed_transaction": "ipi_fake123456789",
95             "evidence": {
96             "fraudulent": {
97             "dispute_explanation": "Fraud; card reported lost on 10/19/2019",
98             "uncategorized_file": null
99             },
100             "other": null
101             },
102             "livemode": false,
103             "metadata": {},
104             "reason": "fraudulent",
105             "status": "under_review"
106             }
107              
108             =head1 HISTORY
109              
110             =head2 v0.1
111              
112             Initial version
113              
114             =head1 AUTHOR
115              
116             Jacques Deguest E<lt>F<jack@deguest.jp>E<gt>
117              
118             =head1 SEE ALSO
119              
120             Stripe API documentation:
121              
122             L<https://stripe.com/docs/api/issuing/disputes>, L<https://stripe.com/docs/issuing/disputes>
123              
124             =head1 COPYRIGHT & LICENSE
125              
126             Copyright (c) 2019-2020 DEGUEST Pte. Ltd.
127              
128             You can use, copy, modify and redistribute this package and associated
129             files under the same terms as Perl itself.
130              
131             =cut