File Coverage

lib/Net/API/Stripe/Issuing/Dispute/Evidence/Other.pm

Criterion	Covered	Total	%
statement	19	25	76.0
branch			n/a
condition			n/a
subroutine	7	13	53.8
pod	6	6	100.0
total	32	44	72.7

##----------------------------------------------------------------------------
## Stripe API - ~/lib/Net/API/Stripe/Issuing/Dispute/Evidence/Other.pm
## Version v0.101.0
## Copyright(c) 2020 DEGUEST Pte. Ltd.
## Author: Jacques Deguest <[e-mail]>
## Created 2019/11/02
## Modified 2020/11/30
## All rights reserved
##
## This program is free software; you can redistribute  it  and/or  modify  it
## under the same terms as Perl itself.
##----------------------------------------------------------------------------
package Net::API::Stripe::Issuing::Dispute::Evidence::Other;
BEGIN
{
    use strict;
    use warnings;
    use parent qw( Net::API::Stripe::Generic );
    use vars qw( $VERSION );
    our( $VERSION ) = 'v0.101.0';
};

use strict;
use warnings;

sub additional_documentation { return( shift->_set_get_scalar_or_object( 'additional_documentation', 'Net::API::Stripe::File', @_ ) ); }

sub dispute_explanation { return( shift->_set_get_scalar( 'dispute_explanation', @_ ) ); }

sub explanation { return( shift->_set_get_scalar( 'explanation', @_ ) ); }

sub product_description { return( shift->_set_get_scalar( 'product_description', @_ ) ); }

sub product_type { return( shift->_set_get_scalar( 'product_type', @_ ) ); }

sub uncategorized_file { return( shift->_set_get_scalar_or_object( 'uncategorized_file', 'Net::API::Stripe::File', @_ ) ); }

1;

__END__

=encoding utf8

=head1 NAME

Net::API::Stripe::Issuing::Dispute::Evidence::Other - A Stripe Issued Card Evidence Object

=head1 SYNOPSIS

    my $other = $stripe->issuing_evidence->other({
        dispute_explanation => 'Service was not provided',
        uncategorized_file => $file_object,
    });

=head1 VERSION

    v0.101.0

=head1 DESCRIPTION

Evidence to support an uncategorized dispute. This will only be present if your dispute’s reason is other.

This is instantiated by method B<other> in module L<Net::API::Stripe::Issuing::Dispute::Evidence>

=head1 CONSTRUCTOR

=head2 new( %ARG )

Creates a new L<Net::API::Stripe::Issuing::Dispute::Evidence::Other> object.
It may also take an hash like arguments, that also are method of the same name.

=head1 METHODS

=head2 additional_documentation expandable

(ID of a L<file upload|https://stripe.com/docs/guides/file-upload>) Additional documentation supporting the dispute.

When expanded this is an L<Net::API::Stripe::File> object.

=head2 dispute_explanation string

Brief freeform text explaining why you are disputing this transaction.

=head2 explanation string

Explanation of why the cardholder is disputing this transaction.

=head2 product_description string

Description of the merchandise or service that was purchased.

=head2 product_type string

Whether the product was a merchandise or service.

=head2 uncategorized_file string (expandable)

(ID of a file upload) Additional file evidence supporting your dispute.

When expanded, this is a L<Net::API::Stripe::File> object.

=head1 API SAMPLE

    {
      "id": "idp_fake123456789",
      "object": "issuing.dispute",
      "amount": 100,
      "created": 1571480456,
      "currency": "usd",
      "disputed_transaction": "ipi_fake123456789",
      "evidence": {
        "fraudulent": {
          "dispute_explanation": "Fraud; card reported lost on 10/19/2019",
          "uncategorized_file": null
        },
        "other": null
      },
      "livemode": false,
      "metadata": {},
      "reason": "fraudulent",
      "status": "under_review"
    }

=head1 HISTORY

=head2 v0.1

Initial version

=head1 AUTHOR

Jacques Deguest E<lt>F<[e-mail]>E<gt>

=head1 SEE ALSO

Stripe API documentation:

L<https://stripe.com/docs/api/issuing/disputes>, L<https://stripe.com/docs/issuing/disputes>

=head1 COPYRIGHT & LICENSE

Copyright (c) 2019-2020 DEGUEST Pte. Ltd.

You can use, copy, modify and redistribute this package and associated
files under the same terms as Perl itself.

=cut