File Coverage

blib/lib/Acme/Hyde.pm
Criterion Covered Total %
statement 12 18 66.6
branch n/a
condition n/a
subroutine 4 6 66.6
pod 0 2 0.0
total 16 26 61.5


line stmt bran cond sub pod time code
1             package Acme::Hyde;
2              
3 2     2   2127 use warnings;
  2         5  
  2         98  
4 2     2   10 use strict;
  2         5  
  2         55  
5 2     2   3923 use POSIX;
  2         30993  
  2         18  
6              
7 2     2   12426 use base qw/Exporter/;
  2         4  
  2         281  
8             our @EXPORT = qw/to_hyde from_hyde/;
9             our $VERSION = 0.04;
10              
11             sub to_hyde {
12 0     0 0   my $cm = shift;
13 0           my $hyde = sprintf("%.2f",$cm/156);
14 0           return $hyde;
15             }
16              
17             sub from_hyde {
18 0     0 0   my $hyde = shift;
19 0           my $cm = ceil($hyde*156);
20 0           return $cm;
21             }
22              
23             1;
24             __END__