File Coverage

blib/lib/Finance/Bank/SCSB/TW/CurrencyExchangeRateCollection.pm
Criterion Covered Total %
statement 6 13 46.1
branch 0 2 0.0
condition n/a
subroutine 2 3 66.6
pod 1 1 100.0
total 9 19 47.3


line stmt bran cond sub pod time code
1             package Finance::Bank::SCSB::TW::CurrencyExchangeRateCollection;
2 3     3   23 use strict;
  3         14  
  3         96  
3 3     3   16 use warnings;
  3         7  
  3         379  
4              
5             sub for_currency {
6 0     0 1   my $self = shift;
7 0           my $currency_name = shift;
8              
9 0           my @ret = ();
10 0           for my $c (@$self) {
11 0 0         if ($c->{en_currency_name} =~ /\Q${currency_name}\E/i) {
12 0           push @ret, $c;
13             }
14             }
15              
16 0           return \@ret;
17             }
18              
19              
20             1;
21              
22             __END__