Yet Another CPAN Grep

Mojo-Pg ( S/SR/SRI/Mojo-Pg-4.28.tar.gz, SRI, 2025; MetaCPAN )

Mojo-Pg/t/database.t ( view source; MetaCPAN )

 = $pg->max_connections(1)->db->dbh;
  is $pg->db->dbh,   $dbh,         'same database handle';
  isnt $pg->db->dbh, $pg->db->dbh, 'different database handles';
  is $pg->db->dbh,   $dbh,         'dif


  $dbh = $pg->db->dbh;
  is $pg->db->dbh, $dbh, 'same database handle';
  $pg->db->disconnect;
  isnt $pg->db->dbh, $dbh, 'different database handles';
};

subtest 'Statement cache' => sub {
  my $db

T 3 AS three')->sth;
  is $db->query('SELECT 3 AS three')->sth,  $sth, 'same statement handle';
  isnt $db->query('SELECT 4 AS four')->sth, $sth, 'different statement handles';
  is $db->query('SELECT

Mojo-Pg ( S/SR/SRI/Mojo-Pg-4.28.tar.gz, SRI, 2025; MetaCPAN )

Mojo-Pg/t/pubsub.t ( view source; MetaCPAN )

_backend(?)', $dbhs[0]{pg_pid});
    Mojo::IOLoop->start;
    ok $dbhs[1], 'database handle';
    isnt $dbhs[0], $dbhs[1], 'different database handles';
    is_deeply \@test, ['works'], 'right message

 $pg->dsn('dbi:Pg:badoption=1');
    Mojo::IOLoop->start;
    ok $dbhs[1], 'database handle';
    isnt $dbhs[0], $dbhs[1], 'different database handles';
    is_deeply \@test,  ['works'],     'right me

_BACKEND(?)', $dbhs[0]{pg_pid});
    Mojo::IOLoop->start;
    ok $dbhs[1], 'database handle';
    isnt $dbhs[0], $dbhs[1], 'different database handles';
    $pg->pubsub->listen(pstest => sub { push @t