NAME

POE::Component::LaDBI::Request - Class to encapsulate LaDBI requests to be executed by POE::Component::LaDBI::Engine.

SYNOPSIS

Excuse the vulgarities, I was tired and maybe even a little drunk ;).

  use POE::Component::LaDBI::Request;
  $dsn = 'dbi:Sybase:server=biteme;hostname=sybdb.biteme.com;database=biteme',
  $user = 'pimple';
  $passwd = 'oNMyaSS';
  $req = POE::Component::LaDBI::Request->new(Cmd  => 'connect',
                                             Data => [$dsn, $user, $passwd]);
  $eng = POE::Component::LaDBI::Engine->new();
  $resp = $eng->request( $req );
  die "connect failed" unless $resp->code eq 'OK';
  $dbh_id = $resp->handle_id;
  $sql = 'SELECT * FROM candidates WHERE jaws = ? AND willingness = ?'
  $req = POE::Component::LaDBI::Request->new(Cmd      => 'prepare',
                                             HandleId => $dbh_id  ,
                                             Data     => [$sql]   );
  $resp = $eng->request( $req );
  die "prepare failed" unless $resp->code eq 'OK';
  $sth_id = $resp->handle_id;
  $req = POE::Component::LaDBI::Request->new(Cmd      => 'execute',
                                             HandleId => $sth_id  ,
                                             Data     => ['WEAK','HIGH']);
  $resp = $eng->request( $req );
  die "execute failed" unless $resp->code eq 'OK';
  $req = POE::Component::LaDBI::Request->new(Cmd      => 'rows',
                                             HandleId => $sth_id);
  $resp = $eng->request( $req );
  die "rows failed" unless $resp->code eq 'OK';
  $nr_rows = $resp->data();
  $req = POE::Component::LaDBI::Request->new(Cmd      => 'fetchrow',
                                             HandleId => $sth_id);
  for ($i=0; $i < $nr_rows; $i++) {
     $resp = $eng->request( $resp );
     die "fetchrow failed" unless $resp->code eq 'OK';
     $row = $resp->data();
     print "row[$i]: ", join("\t", @$row), "\n";
  }

DESCRIPTION

"$req = POE::Component::LaDBI::Request->new()"

Upon instantiation a request id is allocated to represent this request. This cookie is available as "$req-"id>.

Args:

For the keys, capitalization does not matter. Internally the keys are lowercased.

"$req->cmd"

Set/Get accessor function.

"$req->data"

Set/Get accessor function.

"$req->handle_id"

Set/Get accessor function.

"$req->id"

Get accessor function.

AUTHOR

Sean Egan, <seanegan:bigfoot_com>

SEE ALSO

perl, POE::Component::LaDBI::Response, POE::Component::LaDBI::Engine.