File Coverage

lib/SVG/Estimate/Role/Round.pm
Criterion Covered Total %
statement 10 10 100.0
branch 1 2 50.0
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 15 16 93.7


line stmt bran cond sub pod time code
1             package SVG::Estimate::Role::Round;
2             $SVG::Estimate::Role::Round::VERSION = '1.0107';
3 31     31   194189 use strict;
  31         43  
  31         741  
4 31     31   89 use Moo::Role;
  31         31  
  31         138  
5              
6             =head1 NAME
7              
8             SVG::Estimate::Role::Round - Round to the nearest thousandth
9              
10             =head1 VERSION
11              
12             version 1.0107
13              
14             =head1 METHODS
15              
16             =head2 round ( value [, significant ] )
17              
18             Rounds to the nearest 1000th of a unit unless you specify a different significant digit.
19              
20             =cut
21              
22             sub round {
23 76     76 1 21851 my ($self, $value, $significant) = @_;
24 76 50       188 unless (defined $significant) {
25 76         90 $significant = 3;
26             }
27 76         883 return sprintf '%.'.$significant.'f', $value;
28             }
29              
30              
31             1;