File Coverage

blib/lib/Regexp/Common/whitespace.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 19 19 100.0


line stmt bran cond sub pod time code
1             package Regexp::Common::whitespace;
2              
3 72     72   929 use 5.10.0;
  72         310  
4              
5 72     72   449 use strict;
  72         187  
  72         2238  
6 72     72   379 use warnings;
  72         165  
  72         1978  
7 72     72   381 no warnings 'syntax';
  72         185  
  72         2592  
8              
9 72     72   390 use Regexp::Common qw /pattern clean no_defaults/;
  72         233  
  72         518  
10              
11             our $VERSION = '2017060201';
12              
13             pattern name => [qw (ws crop)],
14             create => '(?:^\s+|\s+$)',
15             subs => sub {$_[1] =~ s/^\s+//; $_[1] =~ s/\s+$//;}
16             ;
17              
18              
19             1;
20              
21             __END__