| line |
true |
false |
branch |
|
81
|
0 |
0 |
unless $dbh = 'DBI'->connect("dbi:SQLite:dbname=$DB") |
|
83
|
0 |
0 |
unless $insert = $dbh->prepare('INSERT INTO presence (start, end, nick) VALUES (?,?,?)') |
|
84
|
0 |
0 |
unless $update = $dbh->prepare('UPDATE presence SET end = ? WHERE start == ? AND nick == ?') |
|
92
|
0 |
0 |
unless exists $nicks{$nick} |
|
141
|
4 |
7 |
if ($message =~ /^(?:${botnick}[:,]\s*!?|\s*!)help/sux) |
|
148
|
1 |
6 |
unless $message =~ /^(?:${botnick}[:,])?\s*!?presence\s*(.*)/sux |
|
153
|
1 |
5 |
unless (defined $time) |
|
160
|
1 |
5 |
unless (eval {
do {
$time = parse_duration($time)
}
}) |
|
168
|
2 |
3 |
if ($truncate == -1) { } |