| blib/lib/DBIx/Recordset/DBSeq.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 14 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 75 | 0 | 0 | unless $dbh->do("lock table $$self{'*table'} write") |
| 79 | 0 | 0 | unless my $sth = $dbh->prepare("select cnt,maxcnt from $$self{'*table'} where name=?") |
| 87 | 0 | 0 | if (not $row) { } |
| 92 | 0 | 0 | unless $dbh->do("insert into $$self{'*table'} (name,cnt,maxcnt) values ('${name}',$cnt1,$max)") |
| 97 | 0 | 0 | if defined $$row[1] and $cnt + 1 > $$row[1] |
| 98 | 0 | 0 | unless $dbh->do("update $$self{'*table'} set cnt=cnt+1 where name='${name}'") |
| 101 | 0 | 0 | unless $dbh->do('unlock table') |