sub get_notifications { my $self = shift; while ( my $ret = $self->dbh->pg_notifies ) { my $payload = $ret->[2]; $self->handle_notification( $payload ); } }