| line |
true |
false |
branch |
|
15
|
1 |
0 |
if $d[-5] eq "lib" and $d[-6] eq "blib" |
|
58
|
0 |
1 |
if $^O eq "dos" |
|
134
|
0 |
0 |
if (not @ARGV) |
|
159
|
0 |
0 |
if /^(\w+):/ |
|
171
|
0 |
0 |
unless my($domain, $file, $macro) = /^(AC|AU):(.*):([^:]*)$/ |
|
172
|
0 |
0 |
if ($domain eq 'AU') { } |
|
|
0 |
0 |
elsif ($file =~ m[(^|/)m4sugar/(m4sugar|version)\.m4$]) { } |
|
197
|
0 |
0 |
unless keys %ac_macros |
|
199
|
0 |
0 |
unless keys %au_macros |
|
202
|
0 |
0 |
if ($main::debug) |
|
245
|
0 |
0 |
if $main::debug |
|
246
|
0 |
0 |
if $force |
|
247
|
0 |
0 |
if $main::verbose |
|
277
|
0 |
0 |
if ($file eq '-') { } |
|
|
0 |
0 |
elsif (not -r "$file") { } |
|
412
|
0 |
0 |
unless open INPUT_M4, ">", "$main::tmp/input.m4" |
|
414
|
0 |
0 |
unless open FILE, "<", $file |
|
422
|
0 |
0 |
unless close FILE |
|
424
|
0 |
0 |
unless close INPUT_M4 |
|
432
|
0 |
0 |
"$file" eq "$main::tmp/stdin" ? : |