File Coverage

blib/lib/Business/TW/TSIB/VirtualAccount/Entry.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 2 50.0
total 20 21 95.2


line stmt bran cond sub pod time code
1             package Business::TW::TSIB::VirtualAccount::Entry;
2 3     3   23 use strict;
  3         7  
  3         98  
3 3     3   18 use warnings;
  3         5  
  3         95  
4              
5 3     3   16 use base qw(Class::Accessor::Fast);
  3         6  
  3         7127  
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              
27             sub new {
28 10     10 1 19 my $class = shift;
29 10         12 my $self = shift;
30 10         44 return bless $self , $class;
31             }
32              
33             sub ar_id {
34 1     1 0 5990 my $self = shift;
35 1         7 return substr( $self->{virtual_account} , 9 , 4 );
36             }
37              
38             1;
39