| 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") |
| 40 | 495 | 181 | unless (defined $line) |
| 44 | 6 | 660 | unless defined $line |
| 47 | 841 | 0 | if ($trim) |
| 50 | 171 | 670 | if $line =~ /^$/ |
| 71 | 0 | 0 | unless $$this{'buf'} =~ /^\d/ |
| 82 | 0 | 0 | unless $$this{'buf'} =~ s/^[""]// |
| 91 | 0 | 0 | unless $$this{'buf'} =~ s/^(.*?)[""]// |