| line |
true |
false |
branch |
|
1090
|
1 |
0 |
if defined &$_ |
|
1093
|
0 |
0 |
if /^cache$/i |
|
1096
|
0 |
0 |
if /^global$/i |
|
1099
|
0 |
0 |
if (/^:all$/i) |
|
1124
|
0 |
0 |
unless my $tmp = 'IO::File'->new($f) |
|
|
0 |
0 |
acts_like_fh($f) ? : |
|
1135
|
0 |
0 |
unless defined $pkg |
|
1140
|
0 |
0 |
if exists $INC{$inc_path} and not wantarray |
|
1149
|
0 |
0 |
if (ref $_) |
|
1153
|
0 |
0 |
unless defined $ret |
|
1155
|
0 |
0 |
unless acts_like_fh($ret) |
|
1162
|
0 |
0 |
if -f $fullpath |
|
1165
|
0 |
0 |
unless @paths > 0 |
|
1167
|
0 |
0 |
wantarray ? : |
|
1174
|
0 |
0 |
unless $pkg =~ /$PkgRe/ |
|
1179
|
0 |
0 |
unless $path =~ /\.pm$/ |
|
1187
|
0 |
0 |
UNIVERSAL::can($c, 'INC') ? : |
|
|
0 |
0 |
ref $c eq 'ARRAY' ? : |
|
|
0 |
0 |
ref $c eq 'CODE' ? : |
|
1214
|
0 |
0 |
unless $mod =~ /$PkgRe/ |
|
1232
|
0 |
0 |
unless $pkg =~ /$PkgRe/ |
|
1239
|
0 |
0 |
unless exists $$tbl{$_} |
|
1518
|
0 |
0 |
unless my $tags = $$self{'tags'} |
|
1555
|
0 |
0 |
unless my $tags = $$self{'tags'} |
|
1575
|
0 |
0 |
unless my $outfile = $options{'outfile'} |
|
1577
|
0 |
0 |
unless $$self{'is_dirty'} or not -e $outfile |
|
1579
|
0 |
0 |
unless open my $OUT, '>', $outfile |
|
1582
|
0 |
0 |
unless close $OUT |
|
1605
|
0 |
0 |
ref $files ? : |
|
1626
|
0 |
0 |
unless $$_{'level'} > $$self{'max_level'} |
|
1656
|
0 |
0 |
if ($$self{'seen'}{$file}++) |
|
1657
|
0 |
0 |
unless $options{'refresh'} |
|
1708
|
0 |
0 |
unless $tag->on_register($self) |
|
1812
|
0 |
0 |
unless $$self{'taggers'} |
|
1897
|
0 |
0 |
unless open my $IN, '<', $file |
|
1905
|
0 |
0 |
if /$start/o .. /$end/o |
|
1970
|
0 |
0 |
unless $$self{'do_variables'} |
|
1973
|
0 |
0 |
if ($$self{'var_continues'} or $statement =~ /^(my|our|local)\b/) |
|
2007
|
0 |
0 |
if ($statement =~ /^package\s+((?:\w|:)+)\b/) |
|
2028
|
0 |
0 |
if ($statement =~ /sub\s+(\w+)\b/) |
|
2050
|
0 |
0 |
if ($statement =~ /^\s*use\s+constant\s+([^=[:space:]]+)/) |
|
2074
|
0 |
0 |
if ($statement =~ /^(?:use|require)(_ok\(?)?\s+(.*)/) |
|
2076
|
0 |
0 |
if $1 |
|
2081
|
0 |
0 |
if $1 |
|
2097
|
0 |
0 |
if ($statement =~ /^\s*([a-zA-Z_][a-zA-Z0-9_]*)\s*:(?:[^:]|$)/) |
|
2262
|
0 |
0 |
if ($statement =~ /extends\s+["']?((?:\w+|::)+)\b/) |
|
2279
|
0 |
0 |
if ($statement =~ /\bwith\s+(?:qw.)?\W*([a-zA-Z0-9_: ]+)/) |
|
2301
|
0 |
0 |
if ($statement =~ /\bhas\s+["']?(\w+)\b/) |
|
2322
|
0 |
0 |
if ($statement =~ /around\s+["'](\w+)\b/) |
|
2343
|
0 |
0 |
if ($statement =~ /before\s+["'](\w+)\b/) |
|
2364
|
0 |
0 |
if ($statement =~ /after\s+["'](\w+)\b/) |
|
2385
|
0 |
0 |
if ($statement =~ /override\s+["'](\w+)\b/) |
|
2406
|
0 |
0 |
if ($statement =~ /augment\s+["']?(\w+)\b/) |
|
2427
|
0 |
0 |
if ($statement =~ /class\s+(\w+)\b/) |
|
2448
|
0 |
0 |
if ($statement =~ /method\s+(\w+)\b/) |
|
2469
|
0 |
0 |
if ($statement =~ /role\s+(\w+)\b/) |
|
2908
|
0 |
0 |
unless my $name = $$self{'name'} |
|
2909
|
0 |
0 |
unless my $file = $$self{'file'} |
|
2910
|
0 |
0 |
unless my $line = $$self{'line'} |
|
2917
|
0 |
0 |
if ($$self{'exts'}) |
|
2920
|
0 |
0 |
$$self{'is_static'} ? : |
|
2921
|
0 |
0 |
$$self{'pkg'} ? : |
|
2999
|
0 |
0 |
$$tags{'current'}{'package_name'} || $$tags{'current'}{'has_subs'} ? : |
|
3025
|
0 |
0 |
unless $$tags{'current'}{'package_name'} |
|
3080
|
0 |
0 |
unless $path |
|
3156
|
0 |
1 |
if ($] < 5.008) { } |
|
3158
|
0 |
0 |
if (my $fat = $_[0]{$_[1]}) |
|
3160
|
0 |
0 |
unless length $fat |
|
3172
|
6 |
10 |
if (my $fat = $_[0]{$_[1]}) |
|
3173
|
0 |
6 |
unless open my $fh, '<', \$fat |