File Coverage

lib/Spreadsheet/Engine/Function/PROPER.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 17 17 100.0


line stmt bran cond sub pod time code
1             package Spreadsheet::Engine::Function::PROPER;
2              
3 28     28   154 use strict;
  28         52  
  28         926  
4 28     28   149 use warnings;
  28         62  
  28         719  
5              
6 28     28   231 use base 'Spreadsheet::Engine::Fn::text';
  28         60  
  28         5260  
7              
8             sub calculate {
9 87     87 1 3037 my ($self, $string) = @_;
10 87         1343 $string =~ s/(\w+)/\u\L$1/g;
11 87         509 return $string;
12             }
13              
14             1;
15              
16             __END__