File Coverage

blib/lib/Acme/Currency.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 24 24 100.0


line stmt bran cond sub pod time code
1              
2             package Acme::Currency;
3              
4 2     2   32575 use 5.006;
  2         7  
  2         78  
5 2     2   11 use strict;
  2         3  
  2         70  
6 2     2   9 use warnings;
  2         2  
  2         63  
7              
8 2     2   8 use vars '$VERSION';
  2         2  
  2         134  
9             $VERSION = '3.01';
10              
11 2     2   1904 use Filter::Simple;
  2         107647  
  2         15  
12              
13 2     2   100 use vars '$String';
  2         3  
  2         286  
14             $String = '€';
15              
16             FILTER_ONLY
17             code =>
18             sub {
19             s/\Q$String\E/\$/g;
20             };
21              
22             sub import {
23             my $class = shift;
24             my $str = shift;
25             $String = $str if defined $str and $str !~ /^\s*$/;
26             }
27              
28              
29             1;
30             __END__