| line |
true |
false |
branch |
|
18
|
1 |
25 |
unless defined wantarray |
|
19
|
1 |
24 |
if @_ % 2 |
|
24
|
1 |
22 |
$args{'debug'} ? : |
|
|
1 |
23 |
ref $args{'debug'} ? : |
|
33
|
21 |
5 |
if (defined $self->{'_h_argv'} and defined(my $tied = tied *{$self->{'_h_argv'};})) |
|
34
|
20 |
1 |
if ($tied->isa("File::Replace::Inplace::TiedArgv")) |
|
63
|
2 |
24 |
unless @_ and @_ % 2 |
|
66
|
1 |
29 |
unless $TIEHANDLE_KNOWN_OPTS{$_} |
|
67
|
25 |
44 |
exists $args{$_} ? : |
|
77
|
2 |
46 |
unless @_ == 1 |
|
79
|
1 |
45 |
if ($filename eq '-') { } |
|
95
|
43 |
6 |
if ($self->{'_repl'}) |
|
105
|
1 |
20 |
if $self->innerhandle == *STDIN{"IO"} |