| blib/lib/Thesaurus/CSV.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 5 | 8 | 62.5 |
| line | true | false | branch |
|---|---|---|---|
| 28 | 1 | 3 | if (-e $$self{'params'}{'filename'}) |
| 30 | 0 | 1 | unless my $fh = 'IO::File'->new("<$$self{'params'}{'filename'}") |
| 37 | 0 | 2 | unless defined $cols |
| 51 | 0 | 1 | unless my $fh = 'IO::File'->new(">$$self{'params'}{'filename'}") |