| line |
true |
false |
branch |
|
57
|
0 |
0 |
if ($lock_debugging) |
|
69
|
0 |
0 |
if ($lock_debugging) |
|
81
|
0 |
0 |
if ($lock_debugging) |
|
108
|
0 |
0 |
unless open F, "<$file" |
|
125
|
0 |
0 |
unless open F, ">$f" |
|
129
|
0 |
0 |
unless print F $d |
|
130
|
0 |
0 |
unless File::Sync::fsync_fd(fileno F) |
|
131
|
0 |
0 |
unless close F |
|
132
|
0 |
0 |
if ($d and not -s $f) |
|
136
|
0 |
0 |
if caller 50 |
|
138
|
0 |
0 |
if $warnings |
|
165
|
0 |
0 |
if $debug |
|
167
|
0 |
0 |
if (exists $cache{$package}{$baseid}) |
|
168
|
0 |
0 |
if $debug |
|
176
|
0 |
0 |
if $@ |
|
178
|
0 |
0 |
if ($newid and exists $cache{$package}{$newid}) |
|
179
|
0 |
0 |
if $debug |
|
183
|
0 |
0 |
unless $firstload |
|
187
|
0 |
0 |
unless $id |
|
192
|
0 |
0 |
if ($cache{$package}{$id}) |
|
193
|
0 |
0 |
if $debug |
|
204
|
0 |
0 |
unless -e $file |
|
208
|
0 |
0 |
unless substr($frozen, 0, length $Object::Transaction::magic_cookie) eq $Object::Transaction::magic_cookie |
|
213
|
0 |
0 |
if $debug |
|
214
|
0 |
0 |
unless $obj |
|
221
|
0 |
0 |
unless $registered |
|
223
|
0 |
0 |
if ($$obj{'__transfollowers'}) { } |
|
|
0 |
0 |
elsif ($$obj{'__transleader'}) { } |
|
224
|
0 |
0 |
if $debug |
|
238
|
0 |
0 |
if $debug |
|
241
|
0 |
0 |
if (exists $$leader{'__transfollower'} and exists $$leader{'__transfollower'}{$package} and exists $$leader{'__transfollower'}{$package}{$id}) { } |
|
259
|
0 |
0 |
if ($@ =~ /^DATACHANGE: file/) |
|
262
|
0 |
0 |
if $@ |
|
265
|
0 |
0 |
if ($$obj{'__removenow'}) |
|
277
|
0 |
0 |
unless $id |
|
296
|
0 |
0 |
unless (defined @{"${pkg}::ISA";}) |
|
314
|
0 |
0 |
unless defined $id |
|
315
|
0 |
0 |
if $cache{$pkg} and defined $cache{$pkg}{$id} and $cache{$pkg}{$id} ne $this |
|
320
|
0 |
0 |
unless $registered |
|
326
|
0 |
0 |
if (ref $this) { } |
|
345
|
0 |
0 |
if $this |
|
354
|
0 |
0 |
if $Object::Transaction::commit_inprogress == 2 |
|
357
|
0 |
0 |
unless defined $id |
|
360
|
0 |
0 |
if ($code) |
|
361
|
0 |
0 |
unless $$this{'__doatsave'} |
|
364
|
0 |
0 |
if ($trivial) { } |
|
369
|
0 |
0 |
unless $$this{'OLD'} |
|
378
|
0 |
0 |
unless defined $id |
|
380
|
0 |
0 |
unless exists $$this{'__readonly'} |
|
387
|
0 |
0 |
if $this |
|
395
|
0 |
0 |
if %tosave |
|
404
|
0 |
0 |
if ref $_[0] ne 'CODE' |
|
413
|
0 |
0 |
if $die |
|
416
|
0 |
0 |
if ($want) { } |
|
422
|
0 |
0 |
if ($@ =~ /^DATACHANGE: file/) |
|
424
|
0 |
0 |
if $warnings |
|
426
|
0 |
0 |
if $ObjTransLclCnfg::maxtries and $count++ > $ObjTransLclCnfg::maxtries |
|
432
|
0 |
0 |
if $@ |
|
435
|
0 |
0 |
if $want |
|
456
|
0 |
0 |
if $Object::Transaction::commit_inprogress |
|
460
|
0 |
0 |
unless %tosave |
|
470
|
0 |
0 |
if $precommitdone{$obj}++ |
|
471
|
0 |
0 |
if ($obj->precommit($obj->old)) |
|
487
|
0 |
0 |
if (@savelist == 1) |
|
488
|
0 |
0 |
if ($savelist[0]{'__removenow'}) { } |
|
499
|
0 |
0 |
exists $$leader{'OLD'} ? : |
|
504
|
0 |
0 |
if exists $$s{'__uncached'} |
|
506
|
0 |
0 |
if $$s{'__deletenow'} |
|
508
|
0 |
0 |
if $$s{'__trivial'} |
|
514
|
0 |
0 |
exists $$s{'OLD'} ? : |
|
520
|
0 |
0 |
unless (-e $leader->file) |
|
534
|
0 |
0 |
if ($$leader{'__toremove'}) |
|
540
|
0 |
0 |
if (exists $$leader{'__removenow'}) |
|
561
|
0 |
0 |
if (defined $old) { } |
|
562
|
0 |
0 |
unless $keeplock |
|
564
|
0 |
0 |
unless substr($frozen, 0, length $Object::Transaction::magic_cookie) eq $Object::Transaction::magic_cookie |
|
567
|
0 |
0 |
if ($frozen ne ${$$old{'__frozen'};}) |
|
571
|
0 |
0 |
unless $srand |
|
576
|
0 |
0 |
if $st > 300 |
|
577
|
0 |
0 |
if $warnings |
|
580
|
0 |
0 |
if $warnings |
|
584
|
0 |
0 |
if ($$this{'__poison'}) |
|
588
|
0 |
0 |
if $warnings |
|
592
|
0 |
0 |
if ($$this{'__readonly'}) |
|
593
|
0 |
0 |
unless $keeplock |
|
597
|
0 |
0 |
unless $keeplock |
|
608
|
0 |
0 |
unless -s "$file.tmp" |
|
610
|
0 |
0 |
unless rename "$file.tmp", $file |
|
613
|
0 |
0 |
unless -e $file |
|
619
|
0 |
0 |
if ($file ne $this->file($id)) |
|
625
|
0 |
0 |
unless $keeplock |
|
657
|
0 |
0 |
if exists $$this{'OLD'} |
|
668
|
0 |
0 |
if ($key =~ /HASH\(0x[0-9a-f]+\)/) { } |
|
673
|
0 |
0 |
if (ref $val eq 'HASH') |
|
683
|
0 |
0 |
unless $ENV{'MOD_PERL'} |