+sub _yield { $irc->yield(@_) }
+sub _nick_name { $irc->nick_name }
+
+sub _uptime {
+ my ($starttime, $nick) = @_;
+ my $sth=$dbh->prepare('SELECT start,end FROM presence WHERE end > ? AND nick == ?');
+ $sth->execute($starttime, $nick);
+
+ my $uptime=0;
+ while (my ($start, $end)=$sth->fetchrow_array) {
+ $uptime+=$end-max($start,$starttime)
+ }
+ return $uptime
+}
+