| blib/lib/Lingua/Word/Parser.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 22 | 36.3 |
| line | true | false | branch |
|---|---|---|---|
| 56 | 1 | 1 | if ($self->{'file'} and -e $self->{'file'}) { } |
| 0 | 1 | elsif ($self->{'dbname'}) { } | |
| 72 | 0 | 1 | unless $fh->open("< $self->{'file'}") |
| 90 | 0 | 0 | if (lc $self->{'dbtype'} eq 'sqlite') { } |
| 97 | 0 | 0 | unless my $dbh = "DBI"->connect($dsn, $self->{'dbuser'}, $self->{'dbpass'}, {"RaiseError", 1, "AutoCommit", 1}) |
| 103 | 0 | 0 | unless $sth->execute |
| 109 | 0 | 0 | if $DBI::errstr |
| 111 | 0 | 0 | unless $sth->finish |
| 113 | 0 | 0 | unless $dbh->disconnect |
| 252 | 1209 | 1368 | $chunk =~ /0/ ? : |
| 253 | 1209 | 1368 | $chunk =~ /0/ ? : |