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