Select Code to Download

# MyDBI subclasses DBI to make execute more friendly
# to users who have to pass strange options to bind_param
...
    }
    $sth->SUPER::execute();
  }

my $sth = $dbh->prepare(<<'');
INSERT INTO sometable (x, y, z, blobby) VALUES (?, ?, ?, ?)

$sth->execute('x', 'y', 'z', $blobdata, { ora_type => ORA_BLOB });

$sth->execute('x', 'y', 'z', [$blobdata, { ora_type => ORA_BLOB }] );

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/