NOTIFY for events
sub run { my $self = shift; $log->infof( "Starting up Notifier, listening on %s", $self->channel ); $self->dbh->do( 'LISTEN ' . $self->channel ); my $checker = AnyEvent->timer( interval => 1, cb => sub { $self->get_notifications; } ); AnyEvent->condvar->recv; }