File Coverage

lib/App/mio.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 15 16 93.7


line stmt bran cond sub pod time code
1             package App::mio;
2             BEGIN {
3 2     2   110031 $App::mio::AUTHORITY = 'cpan:DBR';
4             }
5             {
6             $App::mio::VERSION = '0.1.0';
7             }
8              
9 2     2   180 use strict;
  2         7  
  2         88  
10 2     2   11 use warnings;
  2         5  
  2         310  
11              
12             # sub commify straight from Perl Cookbook,
13             # Chapter 2.17. "Putting Commas in Numbers"
14             sub commify {
15 1     1 0 661 my $self = shift;
16 1         4 my $text = reverse $_[0];
17 1         15 $text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
18 1         9 return scalar reverse $text;
19             }
20              
21             'true will do';
22              
23              
24             __END__