Select Code to Download

# return an object representing the "remote" object, ie the
# one in the object store
...
# set the first one's balance to 10000
$obj[0]->{balance} = 10000;
$db->store($obj[0]);

    croak "DBI::Pretty requires a valid DBI object"
      unless $dbi;

    croak "DBI::Pretty requires a valid DBI object"
      unless (ref $dbi and $dbi->isa("DBI"));

sub new($$;$) {
    my ($class, $dbi, $hash) = (@_);
    croak "DBI::Pretty requires a valid DBI object"
      unless $dbi;
    $hash ||= {};

sub new {
    my $class = shift;
    my $dbi = shift;
    croak "DBI::Pretty requires a valid DBI object"
      unless $dbi;
    my $hash = shift || {};