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

              
package Business::TrueLayer::Remitter;
=head1 NAME
Business::TrueLayer::Remitter - class representing a remitter
as used in the TrueLayer v3 API.
=head1 SYNOPSIS
    my $Remitter = Business::TrueLayer::Remitter->new(
        type => ...
    );
=cut
use strict;
use warnings;
use feature qw/ signatures postderef /;
use Moose;
extends 'Business::TrueLayer::Request';
use Moose::Util::TypeConstraints;
no warnings qw/ experimental::signatures experimental::postderef /;
use namespace::autoclean;
use Business::TrueLayer::Address;
use Business::TrueLayer::Account::Identifier;
=head1 ATTRIBUTES
=over
=item account_holder_name (Str)
=cut
has [ qw/ account_holder_name / ] => (
    is       => 'ro',
    isa      => 'Str',
    required => 1,
);
coerce 'Business::TrueLayer::Address'
    => from 'HashRef'
    => via {
        Business::TrueLayer::Address->new( %{ $_ } );
    }
;
has address => (
    is       => 'ro',
    isa      => 'Business::TrueLayer::Address',
    coerce   => 1,
    required => 0,
);
coerce 'Business::TrueLayer::Account::Identifier'
    => from 'HashRef'
    => via {
        Business::TrueLayer::Account::Identifier->new( %{ $_ } );
    }
;
has account_identifier => (
    is       => 'ro',
    isa      => 'Business::TrueLayer::Account::Identifier',
    coerce   => 1,
    required => 1,
);
=head1 SEE ALSO
L<Business::TrueLayer::Beneficiary>
=cut
1;