| line |
true |
false |
branch |
|
81
|
0 |
5 |
unless my(@args) = @_ |
|
83
|
0 |
5 |
unless my $fh = 'IO::File'->new(@args) |
|
120
|
0 |
3 |
unless my $self = shift() |
|
139
|
0 |
3 |
unless my $self = shift() |
|
156
|
0 |
3 |
unless my $self = shift() |
|
165
|
0 |
9 |
unless (allow($type, ['alter', 'insert', 'remove'])) |
|
180
|
3 |
6 |
if ($type eq 'alter') { } |
|
|
3 |
3 |
elsif ($type eq 'insert') { } |
|
|
3 |
0 |
elsif ($type eq 'remove') { } |
|
181
|
0 |
3 |
unless my $find = shift() |
|
182
|
0 |
3 |
unless my $replace = shift() |
|
186
|
13 |
5 |
if eval $cond |
|
191
|
0 |
3 |
unless my $line = shift() |
|
192
|
0 |
3 |
unless defined $text |
|
196
|
3 |
15 |
if ++$File::Alter::LINENUMBER eq $line |
|
202
|
2 |
1 |
!($_[0] =~ /\D/) ? : |
|
207
|
3 |
14 |
if ($line and $line eq $File::Alter::LINENUMBER or $cond and eval $cond) |