| line |
true |
false |
branch |
|
34
|
593 |
0 |
if @_ |
|
41
|
0 |
2372 |
unless (exists $default{$k}) |
|
44
|
593 |
1779 |
if ($k eq 'test') { } |
|
46
|
0 |
593 |
if (not $v) { } |
|
|
593 |
0 |
elsif (ref $v eq 'Regexp') { } |
|
|
0 |
0 |
elsif (ref $v eq 'CODE') { } |
|
52
|
593 |
1186 |
if $k eq 'length' |
|
62
|
6 |
587 |
unless my $guard = $obj->guard_maker($obj->{'except'} // '', @_) |
|
64
|
0 |
587 |
unless my $match = $obj->{'match'} |
|
67
|
37 |
867 |
unless not $test or &$test($arg) |
|
69
|
866 |
1 |
if (my($replace, $regex, $len) = &$guard(${^MATCH})) { } |
|
82
|
13 |
580 |
unless my(@replace) = @{$obj->{'replace'};} |
|
87
|
611 |
255 |
if (s/$regex/_replace(${^MATCH}, $orig, $len);/epu) |
|
88
|
611 |
0 |
if ($obj->{'ordered'}) { } |
|
103
|
604 |
7 |
if ($width == $len) { } |
|
115
|
6 |
1 |
if ($w <= $width) { } |
|
|
1 |
0 |
elsif ($width == 1) { } |
|
135
|
1492 |
60465 |
unless /\Q$c\E/u |
|
136
|
586 |
61371 |
if $max and @a > $max |
|
138
|
6 |
587 |
if @a < 2 |
|
143
|
1 |
866 |
if $len < 1 |
|
153
|
593 |
0 |
if ($v == 0) { } |
|
|
0 |
0 |
elsif ($v == 1) { } |
|
|
0 |
0 |
elsif ($v == 2) { } |