LEEJO / Business-TrueLayer-0.05 / lib / Business / TrueLayer / MerchantAccount.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

              
package Business::TrueLayer::MerchantAccount;
=head1 NAME
Business::TrueLayer::MerchantAccount - class representing a merchant account
as used in the TrueLayer v3 API.
https://docs.truelayer.com/docs/merchant-accounts-1
=head1 SYNOPSIS
    my $MerchantAccount = Business::TrueLayer::MerchantAccount->new(
        id => ...
    );
=cut
use strict;
use warnings;
use feature qw/ signatures postderef /;
use Moose;
use Moose::Util::TypeConstraints;
no warnings qw/ experimental::signatures experimental::postderef /;
use Business::TrueLayer::MerchantAccount::Identifier;
=head1 ATTRIBUTES
=over
=item id (Str)
=item currency (Str)
=item account_holder_name (Str)
=item available_balance_in_minor (Num)
=item current_balance_in_minor (Num)
=item account_identifiers
An array ref of L<Business::TrueLayer::MerchantAccount::Identifier> objects
=back
=cut
has [ qw/ id currency account_holder_name / ] => (
    is       => 'ro',
    isa      => 'Str',
    required => 1,
);
has [ qw/
    available_balance_in_minor
    current_balance_in_minor
/ ] => (
    is       => 'ro',
    isa      => 'Num',
    required => 1,
);
subtype 'AccountIdentifier'
    => as 'Object'
    => where {
        $_->isa( 'Business::TrueLayer::MerchantAccount::Identifier' )
    }
;
coerce 'AccountIdentifier'
    => from 'HashRef'
    => via {
        Business::TrueLayer::MerchantAccount::Identifier->new( %{ $_ } );
    }
;
subtype 'AccountIdentifiers'
    => as 'ArrayRef[AccountIdentifier]'
;
coerce 'AccountIdentifiers'
    => from 'ArrayRef'
    => via {
        my @AccountIdentifiers;
        foreach my $item ( $_->@* ) {
            push(
                @AccountIdentifiers,
                Business::TrueLayer::MerchantAccount::Identifier->new( %{ $item } )
            );
        }
        return \@AccountIdentifiers;
    }
;
has 'account_identifiers' => (
    is       => 'ro',
    isa      => 'AccountIdentifiers',
    coerce   => 1,
    required => 1,
);
=head1 METHODS
None yet. TODO:
    transactions
    payment_sources
=head1 SEE ALSO
L<Business::TrueLayer::MerchantAccount::Identifier>
=cut
1;