| line |
true |
false |
branch |
|
55
|
0 |
66 |
unless defined $path
|
|
63
|
46 |
20 |
if (defined $suffix) { }
|
|
64
|
24 |
22 |
if ($tx_action eq 'check_state') { }
|
|
|
22 |
0 |
elsif ($tx_action eq 'fix_state') { }
|
|
65
|
22 |
2 |
if ($exists)
|
|
68
|
22 |
2 |
if (@undo) { }
|
|
69
|
0 |
22 |
if $dry_run
|
|
79
|
0 |
22 |
$@ ? :
|
|
84
|
3 |
17 |
unless my $taid = $args{-'tx_action_id'}
|
|
86
|
14 |
3 |
if ($exists)
|
|
90
|
14 |
3 |
if (@undo) { }
|
|
91
|
0 |
14 |
if $dry_run
|
|
131
|
0 |
32 |
unless defined $path0
|
|
138
|
16 |
16 |
if ($tx_action eq 'check_state') { }
|
|
|
16 |
0 |
elsif ($tx_action eq 'fix_state') { }
|
|
141
|
0 |
16 |
if $exists
|
|
145
|
0 |
16 |
unless @res
|
|
147
|
0 |
16 |
if $dry_run
|
|
154
|
0 |
16 |
$@ ? :
|
|
187
|
0 |
0 |
unless $ff
|
|
188
|
0 |
0 |
unless ref $ff eq 'ARRAY'
|
|
189
|
0 |
0 |
unless @$ff > 0
|
|
193
|
0 |
0 |
unless my(@st) = lstat $_
|
|
194
|
0 |
0 |
unless -l _ or -e _
|
|
197
|
0 |
0 |
unless $_
|
|
198
|
0 |
0 |
if $dry_run
|
|
224
|
0 |
0 |
if ($cmd) { }
|