# return an object representing the "remote" object, ie the
# one in the object store
my $remote_customer = $db->remote("Customer");

# get all customers whose name is like ?Wall
my (@objs) =
    $db->select( $remote_customer,
                 $remote_customer->{name}->like("?Wall") );

# set the first one's balance to 10000
$obj[0]->{balance} = 10000;
$db->store($obj[0]);


##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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