NAME
Business::NAB::Australian::DirectEntry::Payments::DescriptiveRecord
SYNOPSIS
use Business::NAB::Australian::DirectEntry::Payments::DescriptiveRecord;
# parse
my $Record = Business::NAB::Australian::DirectEntry
::Payments::DescriptiveRecord->new_from_record( $line );
# create
my $Record = Business::NAB::Australian::DirectEntry
::Payments::DescriptiveRecord->new(
reel_sequence_number => '01',
institution_name => 'NAB',
user_name => 'NAB TEST',
user_number => 123456,
description => 'DrDebit',
process_date => DateTime->now,
);
my $line = $Record->to_record;DESCRIPTION
Class for descriptive record in the "Australian Direct Entry Payments and Dishonour report"
ATTRIBUTES
- process_date (NAB::Type::Date, coerced from Str)
- reel_sequence_number (Int, max 99)
- institution_name (Str, max length 3)
- user_name (Str, max length 26)
- user_number (Str, max length 6)
- description (Str, max length 12)
METHODS
new_from_record
Returns a new instance of the class with attributes populated from the result of parsing the passed line:
my $Record = Business::NAB::Australian::DirectEntry
::Payments::DescriptiveRecord->new_from_record( $line );to_record
Returns a string constructed from the object's attributes, representing the record for use in a batch file:
my $line = $Record->to_record;