File Coverage

lib/Net/API/Stripe/Payment/GeneratedFrom.pm
Criterion Covered Total %
statement 19 22 86.3
branch n/a
condition n/a
subroutine 7 10 70.0
pod 3 3 100.0
total 29 35 82.8


line stmt bran cond sub pod time code
1             ##----------------------------------------------------------------------------
2             ## Stripe API - ~/usr/local/src/perl/Net-API-Stripe/lib/Net/API/Stripe/Payment/GeneratedFrom.pm
3             ## Version v0.101.0
4             ## Copyright(c) 2020 DEGUEST Pte. Ltd.
5             ## Author: Jacques Deguest <jack@deguest.jp>
6             ## Created 2019/11/02
7             ## Modified 2020/11/28
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::Payment::GeneratedFrom;
14             BEGIN
15             {
16 1     1   1010 use strict;
  1         2  
  1         33  
17 1     1   4 use warnings;
  1         2  
  1         29  
18 1     1   6 use parent qw( Net::API::Stripe::Generic );
  1         2  
  1         6  
19 1     1   64 use vars qw( $VERSION );
  1         2  
  1         46  
20 1     1   33 our( $VERSION ) = 'v0.101.0';
21             };
22              
23 1     1   7 use strict;
  1         2  
  1         22  
24 1     1   6 use warnings;
  1         2  
  1         137  
25              
26 0     0 1   sub charge { return( shift->_set_get_scalar_or_object( 'charge', 'Net::API::Stripe::Charge', @_ ) ); }
27              
28 0     0 1   sub payment_method_details { return( shift->_set_get_object( 'payment_method_details', 'Net::API::Stripe::Payment::Method::Details', @_ ) ); }
29              
30 0     0 1   sub setup_attempt { return( shift->_set_get_scalar_or_object( 'setup_attempt', 'Net::API::Stripe::SetupAttempt', @_ ) ); }
31              
32             1;
33              
34             __END__
35              
36             =encoding utf8
37              
38             =head1 NAME
39              
40             Net::API::Stripe::Payment::GeneratedFrom - A Stripe Payment Method Origin Object
41              
42             =head1 SYNOPSIS
43              
44             my $form = $stripe->card->generated_from({
45             ## Net::API::Stripe::Charge
46             charge => 'ch_fake1234567890',
47             ## Net::API::Stripe::Payment::Method::Details
48             payment_method_details => $payment_method_details_object,
49             ## Net::API::Stripe::SetupAttempt
50             setup_attempt => $setup_attempt_object,
51             });
52              
53             =head1 VERSION
54              
55             v0.101.0
56              
57             =head1 DESCRIPTION
58              
59             Details of the original PaymentMethod that created this object.
60              
61             This is used in L<Net::API::Stripe::Connect::ExternalAccount::Card> itself used in L<Net::API::Stripe::Payment::Method>
62              
63             =head1 CONSTRUCTOR
64              
65             =head2 new( %ARG )
66              
67             Creates a new L<Net::API::Stripe::Payment::GeneratedFrom> object.
68             It may also take an hash like arguments, that also are method of the same name.
69              
70             =head1 METHODS
71              
72             =head2 charge string expandable
73              
74             The charge that created this object.
75              
76             This is a L<Net::API::Stripe::Charge> object.
77              
78             =head2 payment_method_details hash
79              
80             Transaction-specific details of the payment method used in the payment.
81              
82             This is a L<Net::API::Stripe::Payment::Method::Details> object.
83              
84             =head2 setup_attempt string expandable
85              
86             The ID of the SetupAttempt that generated this PaymentMethod, if any.
87              
88             This is a L<Net::API::Stripe::SetupAttempt> object.
89              
90             =head1 HISTORY
91              
92             =head2 v0.1
93              
94             Initial version
95              
96             =head1 AUTHOR
97              
98             Jacques Deguest E<lt>F<jack@deguest.jp>E<gt>
99              
100             =head1 SEE ALSO
101              
102             Stripe API documentation:
103              
104             L<https://stripe.com/docs/api>
105              
106             =head1 COPYRIGHT & LICENSE
107              
108             Copyright (c) 2019-2020 DEGUEST Pte. Ltd.
109              
110             You can use, copy, modify and redistribute this package and associated
111             files under the same terms as Perl itself.
112              
113             =cut