| line |
true |
false |
branch |
|
18
|
0 |
1 |
if @main::Changed |
|
27
|
0 |
0 |
unless -e $name |
|
28
|
0 |
0 |
if $main::Needs_Write |
|
29
|
0 |
0 |
unless unlink $name and ++$cnt |
|
39
|
0 |
0 |
$final_name =~ /\.(?:c|h|tab|act)$/ ? : |
|
|
0 |
0 |
$final_name =~ /\.pod$/ ? : |
|
41
|
0 |
0 |
if ($force and -e $final_name) |
|
42
|
0 |
0 |
if $main::Needs_Write |
|
43
|
0 |
0 |
unless unlink $final_name |
|
47
|
0 |
0 |
if (not defined $mode or $mode eq '>') { } |
|
|
0 |
0 |
elsif ($mode eq '>>') { } |
|
48
|
0 |
0 |
if (-f $name) |
|
49
|
0 |
0 |
unless unlink $name |
|
51
|
0 |
0 |
unless open $fh, ">$name" |
|
53
|
0 |
0 |
unless open $fh, ">>$name" |
|
60
|
0 |
0 |
if $header |
|
67
|
0 |
0 |
unless close $fh |
|
69
|
0 |
0 |
if ($main::TAP) |
|
75
|
0 |
0 |
unless open $fh, '<', $name |
|
78
|
0 |
0 |
unless defined $want |
|
80
|
0 |
0 |
unless close $fh |
|
84
|
0 |
0 |
if (not open($fh, '<', $final_name)) { } |
|
88
|
0 |
0 |
if (not defined $have) { } |
|
|
0 |
0 |
elsif (not close $fh) { } |
|
|
0 |
0 |
elsif ($want ne $have) { } |
|
97
|
0 |
0 |
if ($fail) { } |
|
106
|
0 |
0 |
unless ($force) |
|
107
|
0 |
0 |
if (compare($name, $final_name) == 0) |
|
108
|
0 |
0 |
if $main::Verbose > 0 |
|
112
|
0 |
0 |
if $main::Verbose > 0 |
|
113
|
0 |
0 |
unless $main::Verbose < 0 |
|
118
|
0 |
0 |
if $main::Needs_Write |
|
119
|
0 |
0 |
unless rename $name, $final_name |
|
127
|
0 |
0 |
unless defined $lang |
|
128
|
0 |
0 |
unless exists $lang_opener{$lang} |
|
130
|
0 |
0 |
$args{'style'} ? : |
|
134
|
0 |
0 |
if ($args{'file'}) |
|
137
|
0 |
0 |
if ($args{'copyright'}) |
|
150
|
0 |
0 |
if ($args{'by'}) |
|
152
|
0 |
0 |
if ($args{'from'}) |
|
153
|
0 |
0 |
ref $args{'from'} eq 'ARRAY' ? : |
|
155
|
0 |
0 |
if (@from) { } |
|
164
|
0 |
0 |
if $args{'final'} |
|
166
|
0 |
0 |
$lang eq 'C' ? : |
|
171
|
0 |
0 |
if $args{'quote'} |
|
178
|
0 |
0 |
unless $final_name |
|
182
|
0 |
0 |
if ($sources) |
|
191
|
0 |
0 |
if (defined $lang and $lang eq 'Perl') { } |
|
|
0 |
0 |
elsif (not defined $lang or $lang ne 'Pod') { } |
|
216
|
0 |
10 |
unless open FH, "$file" |
|
218
|
0 |
10 |
unless close FH |