| line |
true |
false |
branch |
|
16
|
4 |
0 |
if (defined &{"B::$func";}) { } |
|
27
|
1 |
0 |
if (defined &B::perlstring) { } |
|
63
|
0 |
0 |
if (defined(my $dict_file = $$p{'unknown_dict_file'})) { } |
|
64
|
0 |
0 |
unless open my $fh, '<', $dict_file |
|
74
|
0 |
0 |
unless defined $module |
|
76
|
0 |
0 |
if $@ |
|
84
|
0 |
0 |
unless ($dict_data) |
|
90
|
0 |
0 |
unless length $a <=> length $b |
|
97
|
0 |
0 |
unless (scalar @{$$p{'unknown_dict_data'};}) |
|
111
|
0 |
0 |
unless ($sym) |
|
125
|
0 |
0 |
unless ($sym) |
|
137
|
0 |
0 |
unless $config_file |
|
139
|
0 |
0 |
unless (-f $config_file) |
|
147
|
0 |
0 |
if ($$config{'dictionary'}) |
|
150
|
0 |
0 |
if ($$config{'global_regex'}) |
|
159
|
0 |
0 |
unless (defined $$symt{$symt_key}) |
|
173
|
0 |
0 |
unless defined $sigil |
|
174
|
0 |
0 |
unless defined $name |
|
181
|
0 |
0 |
if exists $$k{$name} or "$sigil$name" =~ /^\$?\d+\z/ |
|
184
|
0 |
0 |
if (exists $$p{'gv_symbols'}{$name} or $name =~ /$$p{'gv_match'}/) |
|
196
|
0 |
0 |
unless my($sigil) = $name =~ /^(\W+)/ |
|
200
|
0 |
0 |
if $$dict{$name} |
|
205
|
0 |
0 |
unless ($$dict{$name}) |
|
214
|
0 |
0 |
$rv =~ /(?:gv|gelem|rv2gv)\z/ ? : |
|
|
0 |
0 |
$rv =~ /rv2cv\z/ ? : |
|
|
0 |
0 |
$rv =~ /(?:padhv|rv2hv|helem|hslice)\z/ ? : |
|
|
0 |
0 |
$rv =~ /(?:gvav|padav|av2arylen|rv2av|aelemfast|aelem|aslice)\z/ ? : |
|
|
0 |
0 |
$rv =~ /(?:gv|pad|rv2)sv\z/ ? : |
|
235
|
0 |
0 |
unless ($rv) |
|
246
|
0 |
0 |
unless (defined $sigil) |
|
251
|
0 |
0 |
unless $self->gv_should_be_renamed($sigil, $name) |
|
256
|
0 |
0 |
if exists $$dict{$sname} |
|
259
|
0 |
0 |
unless ($$dict{$sname}) |
|
284
|
0 |
0 |
if ($arg =~ /^-d([^,]+)/) { } |
|
|
0 |
0 |
elsif ($arg =~ /^-D([^,]+)/) { } |
|
|
0 |
0 |
elsif ($arg =~ /^-c([^,]+)/) { } |
|
|
0 |
0 |
elsif ($arg =~ m[^-m/([^/]+)/]) { } |
|
|
0 |
0 |
elsif ($arg =~ /^-y/) { } |
|
315
|
0 |
0 |
if (defined $^I) |
|
318
|
0 |
0 |
if ($^W) |
|
322
|
0 |
0 |
if ($/ ne "\n" or defined $O::savebackslash) |
|
330
|
0 |
0 |
if ($] >= 5.008) { } |
|
331
|
0 |
0 |
if (defined &begin_av and begin_av()->isa('B::AV')) |
|
336
|
0 |
0 |
if (defined &check_av and check_av()->isa('B::AV')) |
|
341
|
0 |
0 |
if (defined &init_av and init_av()->isa('B::AV')) |
|
346
|
0 |
0 |
if (defined &end_av and end_av()->isa('B::AV')) |
|
367
|
0 |
0 |
unless B::Deparse::null(main_root()) |
|
374
|
0 |
0 |
if @text |
|
378
|
0 |
0 |
defined $$self{'curcop'} ? : |
|
386
|
0 |
0 |
if (defined *{$laststash . '::DATA';}) |
|
387
|
0 |
0 |
if (eof do {
$laststash . '::DATA'
}) |
|
411
|
0 |
0 |
if ($$p{'output_yaml'}) { } |