| blib/lib/File/Navigate.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 26 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 67 | 0 | 0 | unless ($file = shift()) |
| 70 | 0 | 0 | unless (-e $file) |
| 73 | 0 | 0 | unless (-r $file) |
| 80 | 0 | 0 | unless open my $fh, "$file" |
| 118 | 0 | 0 | if (my $goto = shift()) |
| 138 | 0 | 0 | unless $getline = shift() |
| 140 | 0 | 0 | if ($getline < 1) { } |
| 0 | 0 | elsif ($getline > $$self{'length'}) { } | |
| 164 | 0 | 0 | if ($$self{'cursor'} == $$self{'length'}) |
| 182 | 0 | 0 | if ($$self{'cursor'} == 1) |
| 200 | 0 | 0 | unless $self->next |
| 215 | 0 | 0 | unless $self->prev |
| 234 | 0 | 0 | if ($line =~ /$regex/) |