view release on metacpan or  search on metacpan

t/10-integration.t  view on Meta::CPAN

  is $rows->[0][0], 'hello DBIO', 'parameterized query works';
}

# --- Multiple queries chained ---

{
  my @results;
  my $done = 0;

  # EV::Pg processes one query at a time per connection (outside pipeline),
  # so we chain them in callbacks
  my @vals = (1..5);
  my $run_next; $run_next = sub {
    my $i = shift @vals;
    unless (defined $i) { $done = 1; return }
    $pg->query_params('SELECT $1::int * 2 AS doubled', [$i], sub {
      my ($rows, $err) = @_;
      push @results, $rows->[0][0] unless $err;
      $run_next->();
    });
  };