| blib/lib/Games/ScottAdams/File.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 16 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 22 | 0 | 5 | unless my $f = "IO::File"->new("<$filename") |
| 41 | 666 | 181 | unless (defined $line) |
| 44 | 6 | 660 | unless defined $line |
| 47 | 841 | 0 | if ($trim) |
| 50 | 171 | 670 | if ($line =~ /^$/) |
| 75 | 0 | 0 | unless $this->{'buf'} =~ /^\d/ |
| 86 | 0 | 0 | unless $this->{'buf'} =~ s/^[""]// |
| 94 | 0 | 0 | unless $this->{'buf'} =~ s/^(.*?)[""]// |