/usr/local/CPAN/Business-TW-TSIB-CStorePayment/Business/TW/TSIB/CStorePayment/Entry.pm

• package Business::TW::TSIB::CStorePayment::Entry
  • ar_id
• EOF

package Business::TW::TSIB::CStorePayment::Entry;
use strict;
use base qw(Class::Accessor::Fast);
__PACKAGE__->mk_accessors( qw/
                debit_date
                paid_date
                payment_id
                amount
                due
                collection_agent
                payee_account/
);

sub ar_id {
    my $self = shift;
    return int( substr( $self->payment_id , 4 , 12 ) );
}

1;