File Coverage

lib/Spreadsheet/Engine/Function/TRIM.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 19 19 100.0


line stmt bran cond sub pod time code
1             package Spreadsheet::Engine::Function::TRIM;
2              
3 28     28   156 use strict;
  28         60  
  28         949  
4 28     28   154 use warnings;
  28         59  
  28         806  
5              
6 28     28   157 use base 'Spreadsheet::Engine::Fn::text';
  28         62  
  28         6907  
7              
8             sub calculate {
9 15     15 1 512 my ($self, $string) = @_;
10 15         101 $string =~ s/^ *//;
11 15         110 $string =~ s/ *$//;
12 15         63 $string =~ s/ +/ /g;
13 15         91 return $string;
14             }
15              
16             1;
17              
18             __END__