| line |
true |
false |
branch |
|
35
|
0 |
10 |
unless $$self{'filename'} |
|
41
|
10 |
0 |
if ($$self{'language'}) |
|
45
|
9 |
1 |
if $class eq 'SystemC::Vregs::Language' |
|
49
|
0 |
10 |
unless eval "\n package $bless_class;\n\t use base qw ($package_class $class);\n\t 1;" |
|
64
|
0 |
9 |
if ($#{$$self{'text'};} >= 0) |
|
82
|
0 |
10 |
if $$self{'_closing'} |
|
89
|
1 |
9 |
if ($keepstamp) |
|
91
|
1 |
0 |
if ($fh) { } |
|
99
|
9 |
1 |
if (not $keepstamp or join('', @oldtext) ne join('', @{$$self{'text'};})) { } |
|
103
|
0 |
9 |
if ($SystemC::Vregs::Language::Global_Change_Error) { } |
|
|
0 |
9 |
elsif ($$self{'change_error'}{$self->language} or $$self{'change_error'}{'ALL'}) { } |
|
107
|
0 |
0 |
if ($self->_close_change_diff) |
|
112
|
0 |
9 |
if ($$self{'dry_run'}) { } |
|
113
|
0 |
0 |
if $$self{'verbose'} |
|
115
|
0 |
9 |
if $$self{'verbose'} |
|
116
|
0 |
9 |
unless my $fh = 'IO::File'->new($$self{'filename'}, 'w') |
|
121
|
1 |
0 |
if $$self{'verbose'} |
|
135
|
9 |
0 |
if $#l2 > $nl |
|
137
|
76 |
0 |
if (($l1[$l] || '') ne ($l2[$l] || '')) |
|
138
|
0 |
76 |
if defined $l1[$l] |
|
139
|
76 |
0 |
if defined $l2[$l] |
|
145
|
0 |
4 |
if $_CloseUnlink |
|
149
|
0 |
0 |
unless $$self{'change_diff'} |
|
153
|
0 |
0 |
unless my $fh = 'IO::File'->new(">$tempname") |
|
154
|
0 |
0 |
unless $fh |
|
223
|
0 |
12 |
unless $self and ref $self |
|
227
|
12 |
0 |
if ($strg =~ s/\n$//) { } |
|
235
|
0 |
0 |
unless $self and ref $self |
|
240
|
0 |
4 |
unless $self and ref $self |
|
245
|
0 |
6 |
unless $self and ref $self |
|
250
|
0 |
6 |
length $val > 16 ? : |
|
251
|
6 |
0 |
if ($cmt) { } |
|
264
|
0 |
17 |
unless $self and ref $self |
|
269
|
0 |
8 |
unless $self and ref $self |
|
271
|
1 |
7 |
if ($$self{'language'} eq 'Verilog') { } |
|
284
|
0 |
0 |
if ($bits > 32) { } |
|
285
|
0 |
0 |
if ($force_ull) { } |
|
301
|
0 |
0 |
if $add >= 1 |
|
345
|
0 |
4 |
unless $self and ref $self |
|
349
|
2 |
2 |
unless $strg =~ /^\s/ |
|
354
|
0 |
19 |
unless $self and ref $self |
|
399
|
0 |
1 |
unless $self and ref $self |
|
403
|
1 |
0 |
if ($cmt) { } |
|
457
|
1 |
0 |
if ($_[2]) { } |
|
466
|
0 |
0 |
if ($bits > 32) { } |
|
496
|
1 |
0 |
if ($_[2]) { } |
|
602
|
3 |
0 |
if ($strg =~ s/\n$//) { } |