| line |
true |
false |
branch |
|
34
|
576 |
0 |
if @_ |
|
41
|
0 |
2304 |
unless (exists $default{$k}) |
|
44
|
576 |
1728 |
if ($k eq 'test') { } |
|
46
|
0 |
576 |
if (not $v) { } |
|
|
576 |
0 |
elsif (ref $v eq 'Regexp') { } |
|
|
0 |
0 |
elsif (ref $v eq 'CODE') { } |
|
53
|
576 |
1152 |
if $k eq 'length' |
|
63
|
6 |
570 |
unless my $guard = $obj->guard_maker($obj->{'except'} // '', @_) |
|
65
|
0 |
570 |
unless my $match = $obj->{'match'} |
|
68
|
37 |
850 |
unless not $test or &$test($arg) |
|
70
|
849 |
1 |
if (my($replace, $regex, $len) = &$guard(${^MATCH})) { } |
|
83
|
13 |
563 |
unless my(@replace) = @{$obj->{'replace'};} |
|
88
|
594 |
255 |
if (s/$regex/_replace(${^MATCH}, $orig, $len);/epu) |
|
89
|
594 |
0 |
if ($obj->{'ordered'}) { } |
|
104
|
587 |
7 |
if ($width == $len) { } |
|
116
|
6 |
1 |
if ($w <= $width) { } |
|
|
1 |
0 |
elsif ($width == 1) { } |
|
136
|
1458 |
60465 |
unless /\Q$c\E/u |
|
137
|
569 |
61354 |
if $max and @a > $max |
|
139
|
6 |
570 |
if @a < 2 |
|
144
|
1 |
849 |
if $len < 1 |
|
154
|
576 |
0 |
if ($v == 0) { } |
|
|
0 |
0 |
elsif ($v == 1) { } |
|
|
0 |
0 |
elsif ($v == 2) { } |