| line |
true |
false |
branch |
|
30
|
0 |
4683 |
unless defined $_[0] |
|
35
|
1754 |
1734 |
if defined $item |
|
42
|
197 |
172 |
if defined $_[0] |
|
45
|
576 |
0 |
unless not defined $_[0] |
|
50
|
1892 |
94 |
ref $name_or_glob ? : |
|
62
|
0 |
154 |
unless (@_ == 2) |
|
67
|
146 |
8 |
unless (*{$globref;}{$kind}) |
|
79
|
97 |
12192 |
unless defined $symtab->{$name} |
|
83
|
21 |
11116 |
unless my $sym = look_for_globref(shift(), 'FIELDS') |
|
90
|
2 |
0 |
do {
ref $_[0] eq 'HASH'
} ? : |
|
|
1271 |
2 |
do {
ref $_[0] eq 'ARRAY'
} ? : |
|
|
881 |
1273 |
do {
not ref $_[0]
} ? : |
|
|
2154 |
1087 |
defined $_[0] ? : |
|
91
|
1085 |
2 |
wantarray ? : |
|
99
|
0 |
0 |
wantarray ? : |
|
106
|
0 |
0 |
if &$sub($_) |
|
111
|
0 |
0 |
if $fn =~ s/\.(\w+)$// |
|
118
|
38 |
0 |
if $fn =~ /(\w+)$/ |
|
124
|
345 |
0 |
unless ${^TAINT} |
|
125
|
0 |
0 |
if (defined $_[0] and not &Scalar::Util::tainted($_[0])) { } |
|
126
|
0 |
0 |
$DEBUG_INJECT_TAINTED ? : |
|
133
|
0 |
3184 |
&Scalar::Util::tainted($_) ? : |
|
|
3184 |
0 |
if defined $_ |
|
136
|
0 |
696 |
if ($] < 5.014) { } |
|
137
|
0 |
0 |
if (wantarray) { } |
|
142
|
0 |
0 |
if $@ |
|
145
|
0 |
696 |
if (wantarray) { } |
|
150
|
1 |
695 |
if $@ |
|
152
|
0 |
695 |
wantarray ? : |
|
160
|
139 |
441 |
if (not exists $dict->{$name}) { } |
|
161
|
19 |
120 |
$loader ? : |
|
163
|
89 |
50 |
if $item and $mark |
|
167
|
34 |
153 |
do {
$refresher
} ? : |
|
|
187 |
254 |
$item && ref $item && !($mark && $$mark{&refaddr($item)}++) ? : |
|
186
|
0 |
35 |
unless ($path =~ /^\Q$startDir\E/gsx) |
|
193
|
39 |
27 |
if (-d _) { } |
|
203
|
35 |
0 |
unless $dir =~ m[/$] |
|
205
|
8 |
27 |
unless (defined $file) |
|
206
|
6 |
2 |
if ($subpath =~ m[^/(\w+)(?:/|$)] and -e "$dir/$1.$default_ext") { } |
|
|
1 |
1 |
elsif (-e "$dir/index.$default_ext") { } |
|
|
1 |
0 |
elsif ($subpath =~ s[^/([^/]+)$][]) { } |
|
220
|
0 |
33 |
unless $loc =~ s[^/[^/]+][] |
|
238
|
0 |
261 |
unless -d $real |
|
239
|
261 |
0 |
wantarray ? : |
|
248
|
301 |
0 |
if defined $_ |
|
255
|
32 |
288 |
$cur =~ s/(\.[^\.]+)$// ? : |
|
259
|
31 |
317 |
if (defined $ext and -r "$base$ext") { } |
|
|
81 |
236 |
elsif ($pi =~ m[^/] and -d $base) { } |
|
|
112 |
124 |
elsif (-r (my $fn = "$base$want_ext")) { } |
|
|
91 |
33 |
elsif ($use_subpath and -r (my $alt = "$dir$loc/$ixfn")) { } |
|
283
|
3 |
28 |
unless $pi =~ m[^/+$] |
|
286
|
1 |
28 |
unless -r "$dir$loc/$ixfn" |
|
295
|
0 |
10 |
unless @_ == 2 |
|
299
|
0 |
25 |
unless (my $slash = rindex($_[1], '/', $cmppos)) >= 0 |
|
301
|
5 |
20 |
unless (my $pos = rindex($from, substr($_[1], $slash, $cmppos - $slash))) >= 0 |
|
313
|
4 |
0 |
unless defined $start |
|
316
|
16 |
16 |
if ($a->[$i] =~ /^\d/ and $b->[$i] =~ /^\d/) { } |
|
321
|
4 |
28 |
unless $result == 0 |
|
342
|
0 |
6 |
unless @_ |
|
344
|
2 |
4 |
if (@rest) { } |
|
355
|
0 |
5 |
unless open my $fh, '>:utf8', \(my $buffer = '') |
|
368
|
0 |
103 |
unless my $symtab = $main::main::{'DB::'} |
|
382
|
8 |
0 |
-e $file ? : |
|
392
|
0 |
3 |
if (-d $file) |
|
396
|
0 |
3 |
unless (defined $sub and ref $sub eq 'CODE') |
|
414
|
1 |
314 |
if wantarray and not @_ |
|
418
|
0 |
0 |
do {
my $sub = UNIVERSAL::can($str, 'cf_pairs')
} ? : |
|
|
7 |
0 |
do {
_is_escapable($str)
} ? : |
|
|
5 |
7 |
do {
ref $str eq 'SCALAR'
} ? : |
|
|
297 |
12 |
do {
not ref $str
} ? : |
|
|
309 |
5 |
defined $str ? : |
|
434
|
0 |
0 |
if (not defined $esc) { } |
|
|
0 |
0 |
elsif ($esc eq '') { } |
|
452
|
313 |
1 |
wantarray ? : |
|
482
|
11 |
1 |
if defined $_ |
|
483
|
1 |
7 |
unless @result |
|
503
|
0 |
0 |
unless defined $in |
|
504
|
0 |
0 |
ref $in ? : |
|
|
0 |
0 |
if (ref $in ? $$in{$value // ''} : $in eq $value) { } |
|
518
|
0 |
0 |
unless defined(my $spec = $input_spec{$type}) |
|
523
|
0 |
0 |
unless (defined $name and $name ne '') |
|
527
|
0 |
0 |
unless (defined $formal_value and $formal_value ne '') |
|
533
|
0 |
0 |
if ($type and $typeid) |
|
537
|
0 |
0 |
if ($typeid) |
|
538
|
0 |
0 |
$has_sfx ? : |
|
542
|
0 |
0 |
if (not $has_sfx) { } |
|
|
0 |
0 |
elsif ($as_value) { } |
|
550
|
0 |
0 |
if (find_value_in($in, $name, $formal_value, $is_default)) |
|
551
|
0 |
0 |
$typeid ? : |
|
561
|
0 |
0 |
if (my $sub = $in->can('param')) { } |
|
|
0 |
0 |
elsif (ref $in eq 'HASH') { } |
|
570
|
0 |
0 |
if (not defined $actual_value) { } |
|
|
0 |
0 |
elsif (not ref $actual_value) { } |
|
|
0 |
0 |
elsif (ref $actual_value eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $actual_value eq 'ARRAY') { } |
|
571
|
0 |
0 |
$is_default ? : |
|
588
|
0 |
0 |
unless defined $decode |
|
597
|
0 |
18 |
unless defined $encode |
|
599
|
3 |
15 |
if (&Encode::is_utf8($encode)) |
|
621
|
0 |
0 |
unless ref $param |
|
623
|
0 |
0 |
if (ref $param eq 'HASH') { } |
|
633
|
0 |
0 |
ref $v ? : |
|
646
|
15 |
4 |
ref $_[0] ? : |
|
647
|
0 |
19 |
unless open my $fh, '>' . ($_[1] // ''), $fn |
|
654
|
0 |
9 |
unless open my $fh, '<' . ($layer // ''), $fn |
|
661
|
0 |
0 |
ref $argSpec ? : |
|
664
|
0 |
0 |
if (ref $item) { } |
|
665
|
0 |
0 |
if @queue |
|
667
|
0 |
0 |
unless my $sub = $this->can('render_' . $prefix . $wname) |
|
674
|
0 |
0 |
if @queue |
|
679
|
0 |
0 |
if (ref $item) { } |
|
681
|
0 |
0 |
unless my $sub = $this->can('render_' . $prefix . $wname) |
|
691
|
1 |
1 |
if ($con->can('raise') and my $sub = $con->can('error')) { } |
|
701
|
13 |
2 |
defined $_ ? : |
|
702
|
2 |
9 |
unless my $sub = $this->can("render_$wname") |
|
718
|
136 |
990 |
unless my $sym = $symtab->{'ISA'} |
|
719
|
0 |
990 |
unless my $isa = *{$sym;}{'ARRAY'} |
|
720
|
959 |
31 |
unless $all |
|
738
|
649 |
76 |
if (defined $obj and my $sub = UNIVERSAL::can($obj, $method)) { } |
|
742
|
14 |
62 |
wantarray ? : |
|
752
|
2 |
2 |
if (ref $_[0] eq 'HASH') { } |
|
|
1 |
1 |
elsif (ref $_[0] eq 'ARRAY') { } |
|
|
0 |
1 |
elsif (not ref $_[0]) { } |
|
|
1 |
0 |
elsif ($_[1]) { } |
|
775
|
39 |
16 |
if (@$list and defined $list->[0] and ref $list->[0] eq 'HASH') { } |
|
786
|
0 |
0 |
if defined $_[0] and not ref $_[0] and $_[0] ne '' and $_[0] =~ /^\d+$/ |
|
793
|
3 |
7 |
$dup{$_}++ ? : |
|
815
|
168 |
78 |
unless defined $_[0] and $_[0] ne '' |
|
818
|
37 |
41 |
if (ref $_[0]) { } |
|
819
|
9 |
28 |
$enc ? : |
|
820
|
37 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
829
|
20 |
109 |
$enc ? : |
|
831
|
66 |
2 |
if defined $k |
|
839
|
2 |
212 |
unless my($k) = $name =~ /\A[\[\]]*([^\[\]]+)\]*/ |
|
844
|
90 |
122 |
if ($after eq '') { } |
|
|
33 |
89 |
elsif ($after eq '[]') { } |
|
|
27 |
62 |
elsif ($after =~ /^\[\]\[([^\[\]]+)\]$/ or $after =~ /^\[\](.+)$/) { } |
|
848
|
1 |
32 |
unless ref $item eq 'ARRAY' |
|
854
|
1 |
26 |
unless ref $item eq 'ARRAY' |
|
856
|
8 |
18 |
if (@$item and ref $item->[-1] eq 'HASH' and not exists $item->[-1]{$child_key}) { } |
|
864
|
1 |
61 |
unless ref $item eq 'HASH' |