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$//) { } |