File Coverage

blib/lib/String/StringLib.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package String::StringLib;
2              
3 1     1   513 use strict;
  1         2  
  1         28  
4 1     1   4 use vars qw($VERSION @ISA @EXPORT);
  1         2  
  1         55  
5 1     1   595 use String::Strip;
  1         2850  
  1         184  
6              
7             require Exporter;
8              
9             @ISA = qw(Exporter DynaLoader);
10              
11             @EXPORT = qw(
12             StripLSpace
13             StripTSpace
14             StripLTSpace
15             StripSpace
16             );
17             $VERSION = '1.02';
18              
19             1;
20              
21 4     4   119 sub StripLSpace ( $ ) { String::Strip::StripLSpace($_[0]); }
22              
23 4     4   118 sub StripTSpace ( $ ) { String::Strip::StripTSpace($_[0]); }
24              
25 7     7   331 sub StripLTSpace ( $ ) { String::Strip::StripLTSpace($_[0]); }
26              
27 14     14   405 sub StripSpace ( $ ) { String::Strip::StripSpace($_[0]); }
28              
29             __END__