| line |
true |
false |
branch |
|
21
|
6 |
0 |
if ($$param_ref{'on_verbose'}) |
|
40
|
8 |
7 |
unless defined $value |
|
44
|
1 |
6 |
$key eq 'after' ? : |
|
|
1 |
6 |
$key eq 'before' ? : |
|
58
|
5 |
0 |
if (ref $$param_ref{'filename'}) |
|
61
|
0 |
0 |
if (open my $file, '< :raw', $$param_ref{'filename'}) |
|
75
|
3 |
0 |
if (ref $$param_ref{'filename'}) |
|
79
|
0 |
0 |
unless open my $file, '> :raw', $$param_ref{'filename'} |
|
81
|
0 |
0 |
unless print {$file;} $content |
|
83
|
0 |
0 |
unless close $file |
|
104
|
10 |
11 |
unless defined $param_of{$block} |
|
106
|
3 |
8 |
if $param_of{$block} =~ / ^ = /msx |
|
127
|
4 |
1 |
unless $block_of{'before'} |
|
133
|
4 |
1 |
unless $block_of{'after'} |
|
138
|
1 |
4 |
unless ($current_content) |
|
154
|
11 |
15 |
if ($is_found) |
|
155
|
4 |
7 |
if ($line =~ / \A = \w /msx) |
|
162
|
4 |
11 |
if ($line =~ / \A \Q$param_of{'tag'}\E \z /msx) |
|
172
|
3 |
1 |
if ($newlines_at_eof) { } |
|
182
|
1 |
3 |
if ($new_content eq $current_content) |
|
196
|
0 |
0 |
unless ($indent) |
|
202
|
0 |
0 |
unless $indent =~ / \A [1-9] \d* \z /msx |