| line |
true |
false |
branch |
|
57
|
14 |
0 |
@_ ? : |
|
62
|
3 |
5 |
if @_ < 2 or @_ > 3 |
|
70
|
2 |
3 |
@_ == 2 ? : |
|
73
|
2 |
3 |
if $warning ne "" |
|
79
|
0 |
3 |
if @_ != 2 |
|
83
|
0 |
3 |
unless $n =~ /^\+?[0-9]+$/ |
|
92
|
2 |
6 |
if $arg eq "" |
|
94
|
2 |
1 |
@_ ? : |
|
100
|
3 |
5 |
if $arg ne "" |
|
107
|
0 |
6 |
if @_ < 2 or @_ > 3 |
|
108
|
3 |
3 |
$_[0] ne '' ? : |
|
113
|
1 |
9 |
if @_ < 3 or @_ > 4 |
|
118
|
2 |
7 |
unless $mods =~ /^[gimsx]*$/ |
|
120
|
2 |
5 |
if $pattern =~ /\(\?\??\{/ |
|
123
|
4 |
1 |
$mods eq '' ? : |
|
124
|
0 |
5 |
if $@ |
|
126
|
2 |
3 |
if ($global) { } |
|
141
|
5 |
0 |
unless grep {index($_ // "", $delim) != -1;} @values |
|
148
|
1 |
7 |
if @_ < 3 or @_ > 4 |
|
153
|
2 |
5 |
unless $mods =~ /^[cds]*$/ |
|
157
|
0 |
5 |
unless eval "$code; 1" |
|
164
|
0 |
6 |
if @_ < 2 or @_ > 3 |
|
169
|
0 |
6 |
unless $mods =~ /^[imsx]*$/ |
|
170
|
0 |
6 |
if $pattern =~ /\(\?\??\{/ |
|
172
|
6 |
0 |
$mods eq '' ? : |
|
173
|
0 |
6 |
if $@ |
|
175
|
4 |
2 |
$str =~ /$re/ ? : |
|
180
|
0 |
1 |
if @_ != 1 |
|
181
|
1 |
0 |
$_[0] eq '' ? : |
|
186
|
0 |
1 |
if @_ != 2 |
|
187
|
1 |
0 |
$_[0] eq $_[1] ? : |