| line |
true |
false |
branch |
|
573
|
0 |
5 |
if $DO_NOTHING |
|
575
|
0 |
5 |
if $RET_CACHE |
|
582
|
0 |
5 |
if %COMMENTS |
|
587
|
0 |
5 |
if ($DUMP) |
|
594
|
0 |
5 |
if ($BUILD) |
|
612
|
0 |
5 |
if $DO_NOTHING or not $_ =~ /\S/s |
|
614
|
0 |
5 |
if ($CACHE{'X'} == 50) |
|
616
|
0 |
5 |
if ($CACHE{$_}) |
|
627
|
0 |
5 |
if ($_ =~ /(.*)\n__END__\n.*?$/s) |
|
633
|
5 |
0 |
!$BUILD ? : |
|
654
|
5 |
0 |
unless ($BUILD or $NICE) |
|
665
|
1 |
1 |
if $3 ne '' |
|
675
|
1 |
4 |
if %HTML |
|
678
|
1 |
1 |
if ($HTML{$Key}{'a'} ne '') |
|
721
|
1 |
0 |
if ($init =~ /(?:^|\W)(?:tr|s|y)\s*$/s) { } |
|
|
0 |
0 |
elsif ($init =~ /(?:^|\W)(?:q|qq|qr|qw|qx|m)\s*$/s or $init =~ /(?:[=!]~|\()\s*$/s) { } |
|
|
0 |
0 |
elsif ($data =~ /^=/s) { } |
|
749
|
0 |
5 |
if $DO_NOTHING or $RET_CACHE or not $_ =~ /\S/s |
|
759
|
0 |
5 |
if (%CLASSES) |
|
763
|
3 |
2 |
unless $syntax =~ /\s*1\s*;\s*$/ |
|
807
|
7 |
0 |
if ($ret[0] ne '') |
|
814
|
0 |
7 |
if ($is_subclass) |
|
842
|
71 |
71 |
if ($2 eq '{') { } |
|
|
71 |
0 |
elsif ($2 eq '}') { } |
|
844
|
22 |
120 |
if ($level <= 0) |
|
847
|
0 |
22 |
if ($level != 0) |
|
848
|
0 |
0 |
unless $DUMP |
|
864
|
0 |
0 |
defined $2 ? : |
|
|
0 |
0 |
defined $1 ? : |
|
916
|
3 |
4 |
if (@extends) { } |
|
924
|
0 |
7 |
if ($version) |
|
969
|
1 |
6 |
$add_attr ? : |
|
988
|
1 |
6 |
$add_attr ? : |
|
991
|
1 |
6 |
$ADD_HTML_EVAL ? : |
|
997
|
6 |
1 |
unless $ALL_OO |
|
999
|
0 |
7 |
if ref $extra_vars and @$extra_vars |
|
1002
|
6 |
1 |
if (@local_vars) |
|
1008
|
0 |
7 |
if $version |
|
1011
|
7 |
0 |
if (@global_vars) |
|
1017
|
3 |
4 |
$USE_BASE ? : |
|
1021
|
0 |
7 |
if ($NICE or $BUILD) { } |
|
1023
|
0 |
0 |
if $sub_html_eval |
|
1024
|
0 |
0 |
if $sub_attr |
|
1029
|
0 |
0 |
if $global_vars |
|
1031
|
0 |
0 |
if ($version) |
|
1036
|
0 |
0 |
if $extends |
|
1038
|
0 |
0 |
if $local_vars |
|
1042
|
0 |
0 |
unless $USE_BASE |
|
1044
|
0 |
0 |
if $sub_html_eval |
|
1046
|
0 |
0 |
if not $USE_BASE and $sub_attr |
|
1048
|
0 |
0 |
if $use_base_ref |
|
1051
|
3 |
4 |
if $USE_BASE |
|
1052
|
3 |
4 |
if $USE_BASE |
|
1071
|
0 |
0 |
unless ($sub) |
|
1087
|
0 |
0 |
unless ($code) |
|
1130
|
5 |
10 |
unless ($FIRST_SUB_IDENT) |
|
1137
|
15 |
0 |
if ($ret[0] ne '') |
|
1156
|
0 |
0 |
unless ($@) |
|
1208
|
0 |
15 |
if ($code =~ /^\s*sub\[\w+\]/) { } |
|
1212
|
0 |
0 |
if ($header eq '__INLINE_CODE__') { } |
|
1217
|
0 |
0 |
if ($language eq 'C') |
|
1232
|
0 |
15 |
$sub_type eq 'static' ? : |
|
1235
|
5 |
10 |
if ($prototype) |
|
1236
|
0 |
5 |
if ($prototype =~ /^\(\s*\*\s*\)$/) { } |
|
1242
|
5 |
0 |
if ($my_args) { } |
|
|
0 |
0 |
elsif (not $no_sub_oo) { } |
|
1247
|
15 |
0 |
!$no_sub_oo ? : |
|
1249
|
0 |
15 |
if ($NICE or $BUILD) |
|
1283
|
6 |
0 |
if ($args =~ /\(
\s*
(
(?:[\$\@\%]|\\[\@\%])\w[\w:]*\s*
(?:,\s*(?:[\$\@\%]|\\[\@\%])\w[\w:]*\s*)*
)
\s*,?\s*
\)/sx) |
|
1299
|
0 |
10 |
if ($clean_args) |
|
1301
|
4 |
6 |
if ($ref) { } |
|
|
1 |
5 |
elsif ($type ne '$') { } |
|
1304
|
2 |
2 |
if ($ref_type eq 'ARRAY') { } |
|
|
2 |
0 |
elsif ($ref_type eq 'HASH') { } |
|
1317
|
1 |
5 |
if ($clean_args) |
|
1339
|
0 |
0 |
if ($file_data =~ /(.*)(\n__END__\n)(.*?)$/s) { } |
|
1381
|
0 |
0 |
if $sec < 10 |
|
1382
|
0 |
0 |
if $min < 10 |
|
1383
|
0 |
0 |
if $hour < 10 |
|
1384
|
0 |
0 |
if $mday < 10 |
|
1385
|
0 |
0 |
if $mon < 10 |
|
1401
|
0 |
0 |
unless ($@) |
|
1403
|
0 |
0 |
if ($file_end ne '' and $epod and $epod->VERSION >= 0.03 and $epod->is_epod($file_end)) |