File Coverage

blib/lib/Business/Westpac/PaymentsPlus/Australian/Payment/Import/Payment/RemittanceOnly.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 2 50.0
total 24 25 96.0


line stmt bran cond sub pod time code
1             package Business::Westpac::PaymentsPlus::Australian::Payment::Import::Payment::RemittanceOnly;
2              
3             =head1 NAME
4              
5             Business::Westpac::PaymentsPlus::Australian::Payment::Import::Payment::RemittanceOnly
6              
7             =head1 SYNOPSIS
8              
9             use Business::Westpac::PaymentsPlus::Australian::Payment::Import::Payment::RemittanceOnly;
10              
11             my $RemittanceOnly = Business::Westpac::PaymentsPlus::Australian::Payment::Import::Payment::RemittanceOnly->new(
12             payer_payment_reference => 'REF00006',
13             payment_amount => '16.35',
14             recipient_reference => 'REF00006',
15             );
16              
17             =head1 DESCRIPTION
18              
19             Class for modeling Remittance Only payments in the context of Westpac CSV files.
20              
21             Extends L<Business::Westpac::PaymentsPlus::Australian::Payment::Import::Payment>.
22              
23             =cut
24              
25 2     2   402147 use feature qw/ signatures /;
  2         4  
  2         274  
26              
27 2     2   637 use Moose;
  2         608196  
  2         14  
28             extends 'Business::Westpac::PaymentsPlus::Australian::Payment::Import::Payment';
29 2     2   15532 no warnings qw/ experimental::signatures /;
  2         6  
  2         101  
30              
31 2         332 use Business::Westpac::Types qw/
32             add_max_string_attribute
33 2     2   863 /;
  2         7  
34              
35 2     2 0 8 sub record_type { 'RO' }
36              
37             =head1 ATTRIBUTES
38              
39             All are inherited from L<Business::Westpac::PaymentsPlus::Australian::Payment::Import::Payment>
40              
41             =cut
42              
43             =head1 METHODS
44              
45             =head2 to_csv
46              
47             Convert the attributes to CSV line(s):
48              
49             my @csv = $RemittanceOnly->to_csv;
50              
51             =cut
52              
53 2     2 1 9 sub to_csv ( $self ) {
  2         6  
  2         5  
54              
55 2         27 return $self->attributes_to_csv(
56             qw/
57             record_type
58             recipient_number
59             payer_payment_reference
60             recipient_reference
61             payment_amount
62             /
63             );
64             }
65              
66             =head1 SEE ALSO
67              
68             L<Business::Westpac::PaymentsPlus::Australian::Payment::Import::Payment>
69              
70             L<Business::Westpac::Types>
71              
72             =cut
73              
74             __PACKAGE__->meta->make_immutable;