File Coverage

lib/Net/API/Stripe/Issuing/Dispute/Evidence/Fraudulent.pm
Criterion Covered Total %
statement 19 23 82.6
branch n/a
condition n/a
subroutine 7 11 63.6
pod 4 4 100.0
total 30 38 78.9


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