File Coverage

blib/lib/Finance/Bank/JP/MUFG/Account.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 16 17 94.1


line stmt bran cond sub pod time code
1             package Finance::Bank::JP::MUFG::Account;
2              
3 10     10   898 use strict;
  10         23  
  10         349  
4 10     10   49 use warnings;
  10         23  
  10         708  
5             our $VERSION = '0.02';
6              
7             BEGIN {
8 10     10   385 my @columns = qw/ branch account_kind account_no balance withdrawal_limit /;
9 13     13 0 1326 sub columns { @columns }
10             }
11              
12             use Class::Accessor::Lite (
13 10         41 new => 1,
14             ro => [ &columns ],
15 10     10   9493 );
  10         12092  
16              
17             1;
18             __END__