| line |
true |
false |
branch |
|
22
|
0 |
0 |
unless open my $fh, '<', $file
|
|
25
|
0 |
0 |
unless close $fh
|
|
86
|
0 |
0 |
if ($self->verbose)
|
|
94
|
0 |
0 |
if ($self->need_pipe) { }
|
|
100
|
0 |
0 |
if ($self->verbose)
|
|
115
|
0 |
0 |
unless defined $self->log
|
|
119
|
0 |
0 |
$self->need_pipe ? :
|
|
|
0 |
0 |
if $filename eq 'auto'
|
|
121
|
0 |
0 |
unless $filename =~ m([/\\])
|
|
125
|
0 |
0 |
if $self->verbose
|
|
127
|
0 |
0 |
unless my $fh = 'IO::File'->new($filename, 'w')
|
|
133
|
0 |
0 |
if $self->_log
|
|
160
|
0 |
0 |
if $self->verbose
|
|
171
|
0 |
0 |
if $self->verbose
|
|
227
|
0 |
0 |
unless defined Term::ReadKey::ReadKey(-1)
|
|
232
|
0 |
0 |
if $self->verbose
|
|
246
|
0 |
0 |
if ($nullary) { }
|
|
262
|
0 |
0 |
if $ignore_type eq 're'
|
|
293
|
0 |
7 |
unless $op eq 's'
|
|
294
|
0 |
7 |
unless defined $search
|
|
295
|
0 |
7 |
unless defined $replace
|
|
298
|
3 |
11 |
if $modifiers =~ /$_/
|
|
300
|
3 |
4 |
$modifiers =~ /g/ ? :
|
|
371
|
0 |
0 |
if (length ${$self->_out;} > 0)
|
|
374
|
0 |
0 |
if (length ${$self->_err;} > 0)
|
|
391
|
1 |
1 |
if ($line eq $exact)
|
|
396
|
2 |
3 |
if (index($line, $sub) >= 0)
|
|
401
|
2 |
2 |
if ($line =~ /$pat/)
|
|
415
|
0 |
0 |
if (defined($line = $self->process_line($line))) { }
|
|
417
|
0 |
0 |
if ($self->_log)
|