| line |
true |
false |
branch |
|
171
|
0 |
0 |
if ($type =~ /scalar|item|text/i) { } |
|
|
0 |
0 |
elsif ($type =~ /array|list/i) { } |
|
|
0 |
0 |
elsif ($type =~ /hash/i) { } |
|
|
0 |
0 |
elsif ($type =~ /filter/i) { } |
|
180
|
0 |
96 |
unless defined $str |
|
181
|
6 |
90 |
unless defined $pat |
|
183
|
6 |
90 |
@_ ? : |
|
189
|
6 |
21 |
unless defined $pat |
|
190
|
12 |
15 |
unless defined $sep |
|
193
|
6 |
21 |
@_ ? : |
|
198
|
9 |
21 |
unless defined $pat |
|
199
|
15 |
15 |
unless defined $sep |
|
203
|
3 |
6 |
@_ == 1 ? : |
|
|
21 |
9 |
!@_ ? : |
|
210
|
3 |
3 |
if ($size < 0) { } |
|
221
|
0 |
12 |
unless defined $str |
|
222
|
3 |
9 |
unless defined $pre |
|
223
|
9 |
3 |
if $pre =~ /^\d+$/ |
|
229
|
0 |
18 |
unless defined $str |
|
230
|
0 |
18 |
unless defined $pat |
|
231
|
9 |
9 |
if (@_) { } |
|
240
|
0 |
12 |
unless $what and $what =~ /^(keys|values|each|pairs)$/ |
|
247
|
0 |
39 |
unless defined $str and defined $pat |
|
248
|
6 |
33 |
$global ? : |
|
249
|
36 |
3 |
@res ? : |
|
255
|
0 |
0 |
UNIVERSAL::can($_, $field) ? : |
|
|
6 |
0 |
ref $_ eq 'HASH' ? : |
|
258
|
3 |
3 |
defined $field ? : |
|
265
|
6 |
3 |
if $n < 1 |
|
267
|
6 |
3 |
$n == 1 ? : |
|
272
|
0 |
99 |
unless defined $str and length $str |
|
273
|
6 |
93 |
unless defined $n and length $n |
|
274
|
93 |
6 |
unless defined $join |
|
282
|
0 |
37 |
unless defined $text |
|
283
|
0 |
37 |
unless defined $pattern |
|
284
|
0 |
37 |
unless defined $replace |
|
285
|
28 |
9 |
unless defined $global |
|
289
|
0 |
6 |
$2 > $#$start || $2 == 0 ? : |
|
|
0 |
6 |
$1 ? : |
|
295
|
34 |
3 |
if ($global) { } |
|
310
|
54 |
6 |
if (not defined $field) { } |
|
|
3 |
3 |
elsif (UNIVERSAL::isa($field, 'CODE')) { } |
|
315
|
0 |
0 |
UNIVERSAL::can($_, $field) ? : |
|
|
6 |
0 |
ref $_ eq 'HASH' ? : |
|
323
|
0 |
12 |
if @replace == 1 and ref $replace[0] eq 'ARRAY' |
|
324
|
6 |
6 |
if (defined $len) { } |
|
|
3 |
3 |
elsif (defined $i) { } |
|
335
|
0 |
18 |
unless defined $str |
|
336
|
3 |
3 |
defined $pat ? : |
|
|
6 |
12 |
if (defined $lim) { } |
|
337
|
3 |
9 |
defined $pat ? : |
|
343
|
0 |
27 |
unless defined $str |
|
344
|
0 |
27 |
unless defined $len |
|
345
|
27 |
0 |
unless defined $replace |
|
352
|
0 |
6 |
unless defined $str |
|
353
|
6 |
0 |
if defined &utf8::upgrade |
|
360
|
0 |
2 |
unless defined $str |
|
361
|
2 |
0 |
if defined &utf8::upgrade |
|
369
|
0 |
0 |
if $file =~ m[(^|/)\.\./] |
|
372
|
0 |
0 |
unless (-d $path) |
|
374
|
0 |
0 |
unless File::Path::mkpath($path) |
|
376
|
0 |
0 |
unless open my $fh, '>', "$path/$file" |
|
377
|
0 |
0 |
ref $options ? : |
|
|
0 |
0 |
!$options ? : |
|
|
0 |
0 |
if (my $bm = !$options ? 0 : (ref $options ? $$options{'binmode'} : $options)) |
|
378
|
0 |
0 |
if ($bm == 1) { } |