| line |
true |
false |
branch |
|
70
|
5 |
23 |
unless my $taid = $args{-'tx_action_id'}
|
|
73
|
0 |
23 |
unless defined $path
|
|
74
|
0 |
23 |
unless defined $args{'string'}
|
|
83
|
14 |
9 |
if ($tx_action eq 'check_state') { }
|
|
|
9 |
0 |
elsif ($tx_action eq 'fix_state') { }
|
|
84
|
1 |
13 |
unless $exists
|
|
85
|
2 |
11 |
if $is_sym or not $is_file
|
|
86
|
0 |
11 |
unless @st
|
|
88
|
11 |
0 |
if ($size >= length $string)
|
|
90
|
0 |
11 |
unless open my $fh, '<', $path
|
|
92
|
2 |
9 |
if (defined $buf and $buf eq $string)
|
|
97
|
0 |
9 |
if $dry_run
|
|
109
|
0 |
9 |
unless $res->[0] == 200 or $res->[0] == 304
|
|
110
|
0 |
9 |
unless open my $oh, '<', $res->[2]
|
|
112
|
0 |
9 |
unless open my $nh, '>', $path
|
|
116
|
0 |
9 |
unless close $nh
|
|
118
|
9 |
0 |
unless ($>)
|