| blib/lib/Lingua/Word/Parser.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 20 | 40.0 |
| 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'}") |
| 91 | 0 | 0 | unless my $dbh = 'DBI'->connect($dsn, $self->{'dbuser'}, $self->{'dbpass'}, {'RaiseError', 1, 'AutoCommit', 1}) |
| 97 | 0 | 0 | unless $sth->execute |
| 103 | 0 | 0 | if $DBI::errstr |
| 105 | 0 | 0 | unless $sth->finish |
| 107 | 0 | 0 | unless $dbh->disconnect |
| 246 | 1209 | 1368 | $chunk =~ /0/ ? : |
| 247 | 1209 | 1368 | $chunk =~ /0/ ? : |