Select Code to Download

PROCEDURE TEST
(
  PARAM1 IN VARCHAR2,
  PARAM2 OUT XMLTYPE
);

#!/usr/bin/perl
use DBI;
use DBD::Oracle qw(:ora_types);
...
undef $dbh;

print Dumper($xml);

-> bind_param_inout for DBD::Oracle::st (DBI::st=HASH(0x18d6828)~0x18d
+67c8 1 SCALAR(0x183ddac) 32000 HASH(0x18d67bc))
dbd_bind_ph(): bind :p1 <== undef (type 0 (DEFAULT (varchar)), inout 0
+x183ddac, maxlen 32000, attribs: HASH(0x18d67bc))
dbd_rebind_ph() (1): rebinding :p1 as NULL (not-utf8, ftype 108 (ORA_X
+MLTYPE or SQLT_NTY), csid 0, csform 0, inout 1)
 in  dbd_rebind_ph_xml