| line |
true |
false |
branch |
|
39
|
0 |
0 |
unless @_ == 3 |
|
63
|
14 |
0 |
@_ ? : |
|
68
|
3 |
5 |
if @_ < 2 or @_ > 3 |
|
76
|
2 |
3 |
@_ == 2 ? : |
|
79
|
2 |
3 |
if $warning ne "" |
|
85
|
0 |
3 |
if @_ != 2 |
|
89
|
0 |
3 |
unless $n =~ /^\+?[0-9]+$/ |
|
98
|
2 |
6 |
if $arg eq "" |
|
100
|
2 |
1 |
@_ ? : |
|
106
|
3 |
5 |
if $arg ne "" |
|
113
|
0 |
6 |
if @_ < 2 or @_ > 3 |
|
114
|
3 |
3 |
$_[0] ne '' ? : |
|
119
|
1 |
9 |
if @_ < 3 or @_ > 4 |
|
124
|
2 |
7 |
unless $mods =~ /^[gimsx]*$/ |
|
126
|
2 |
5 |
if $pattern =~ /\(\?\??\{/ |
|
129
|
4 |
1 |
$mods eq '' ? : |
|
130
|
0 |
5 |
if $@ |
|
132
|
2 |
3 |
if ($global) { } |
|
147
|
5 |
0 |
unless grep {index($_ // "", $delim) != -1;} @values |
|
154
|
1 |
7 |
if @_ < 3 or @_ > 4 |
|
159
|
2 |
5 |
unless $mods =~ /^[cds]*$/ |
|
163
|
0 |
5 |
unless eval "$code; 1" |
|
170
|
0 |
6 |
if @_ < 2 or @_ > 3 |
|
175
|
0 |
6 |
unless $mods =~ /^[imsx]*$/ |
|
176
|
0 |
6 |
if $pattern =~ /\(\?\??\{/ |
|
178
|
6 |
0 |
$mods eq '' ? : |
|
179
|
0 |
6 |
if $@ |
|
181
|
4 |
2 |
$str =~ /$re/ ? : |
|
186
|
0 |
1 |
if @_ != 1 |
|
187
|
1 |
0 |
$_[0] eq '' ? : |
|
192
|
0 |
1 |
if @_ != 2 |
|
193
|
1 |
0 |
$_[0] eq $_[1] ? : |