1package Business::TW::TSIB::VirtualAccount::Entry; 2use strict; 3use warnings; 4 5use base qw(Class::Accessor::Fast); 6__PACKAGE__->mk_accessors( 7 qw( 8 response_code 9 account 10 date 11 seqno 12 flag 13 time 14 txn_type 15 amount 16 postive 17 entry_type 18 virtual_account 19 id 20 from_bank 21 comment 22 preserved 23 status 24 ) 25); 26 27sub new { 28 my $class = shift; 29 my $self = shift; 30 return bless $self , $class; 31} 32 33sub ar_id { 34 my $self = shift; 35 return substr( $self->{virtual_account} , 9 , 4 ); 36} 37 381; 39 40