The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

LEEJO / Business-TrueLayer-0.05 / lib / Business / TrueLayer / Payment.pm 

            

              
1
—
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
—
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
—
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
—
122
123
124
125
126
127
128
129
130
131
132
133

              
package Business::TrueLayer::Payment;
=head1 NAME
Business::TrueLayer::Payment - class representing a payment
as used in the TrueLayer v3 API.
Business::TrueLayer::Payment uses the Status role.
=head1 SYNOPSIS
    my $Payment = Business::TrueLayer::Payment->new(
        amount_in_minor => ...
    );
=cut
use strict;
use warnings;
use feature qw/ signatures postderef /;
use Moose;
extends 'Business::TrueLayer::Request';
with 'Business::TrueLayer::Role::Status';
use Moose::Util::TypeConstraints;
no warnings qw/ experimental::signatures experimental::postderef /;
with 'Business::TrueLayer::Types::User';
use Business::TrueLayer::Payment::Method;
use namespace::autoclean;
=head1 ATTRIBUTES
=over
=item id (Str)
=item resource_token (Str)
=item amount_in_minor (Int)
=item currency (Str)
=item payment_method
A L<Business::TrueLayer::Payment::Method> object. Hash refs will be coerced.
=item user
A L<Business::TrueLayer::User> object. Hash refs will be coerced.
=back
=cut
has [ qw/ status id resource_token metadata related_products / ] => (
    is       => 'ro',
    isa      => 'Str',
    required => 0,
);
has [ qw/ currency / ] => (
    is       => 'ro',
    isa      => 'Str',
    required => 1,
);
has [ qw/
    amount_in_minor
/ ] => (
    is       => 'ro',
    isa      => 'Int',
    required => 1,
);
coerce 'Business::TrueLayer::Payment::Method'
    => from 'HashRef'
    => via {
        Business::TrueLayer::Payment::Method->new( %{ $_ } );
    }
;
has payment_method => (
    is       => 'ro',
    isa      => 'Business::TrueLayer::Payment::Method',
    coerce   => 1,
    required => 1,
);
=head1 METHODS
=head2 hosted_payment_page_link
Returns the TrueLayer hosted payment page URI, allowing you to redirect
a user to it to complete the payment.
    my $link = $Payment->hosted_payment_page_link(
        $return_uri, # must be one of those set in the TrueLayer console
    );
It only makes sense to do this after you have created a payment, so the
object will check some of its attributes and throw an exception if it is
not in the correct state.
=cut
sub hosted_payment_page_link (
    $self,
    $return_uri = undef
) {
    ( $self->id && $self->resource_token )
        || confess( "Payment lacks an id and resource_token" );
    return 'https://' . $self->payment_host
        . '/payments#'
        . 'payment_id=' . $self->id
        . '&resource_token=' . $self->resource_token
        . ( $return_uri ? ( '&return_uri=' . $return_uri ) : '' )
}
=head1 SEE ALSO
L<Business::TrueLayer::Payment::Method>
L<Business::TrueLayer::User>
L<Business::TrueLayer::Role::Status>
=cut
1;