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') |