| line |
true |
false |
branch |
|
615
|
0 |
6 |
unless $$args_href{'file'} |
|
616
|
0 |
6 |
unless $$args_href{'file_fh'} |
|
619
|
1 |
5 |
if ($$opts_href{'inplace'}) |
|
621
|
0 |
1 |
if (scalar @args == 1 and $args_fh[0] == \*STDIN) |
|
668
|
132 |
132 |
if ($$opts_href{'trim_space'}) |
|
673
|
132 |
132 |
if ($$opts_href{'trim_comment'} and $$opts_href{'comment'}) |
|
685
|
132 |
132 |
if ($$opts_href{'skip_empty'}) |
|
687
|
47 |
85 |
if $line =~ /^\s*$/ |
|
691
|
217 |
47 |
unless $skip |
|
781
|
1 |
5 |
if $this->buffer or $this->inplace |
|
807
|
217 |
47 |
if defined $out |
|
810
|
44 |
220 |
if $this->buffer or $this->inplace |
|
815
|
189 |
31 |
if defined $out |
|
836
|
1 |
5 |
if ($this->buffer or $this->inplace) |
|
874
|
1 |
5 |
if ($this->inplace) { } |
|
|
5 |
0 |
elsif ($this->outfile) { } |
|
884
|
0 |
5 |
if ($dir) |
|
914
|
6 |
0 |
if ($outfile) { } |
|
919
|
1 |
5 |
if ($outfile eq $infile) |
|
930
|
0 |
6 |
unless open my $outfh, ">$outfile" |
|
963
|
6 |
0 |
if ($this->outfile) { } |
|
990
|
217 |
0 |
if ($fh) |