So i was having a problem with a program and i need to debug the sql. So i found the trace info below
sub connectToPrismDB {
my $dbh = DBI->connect(
"dbi:Oracle:host=$ref->{PRISM}->{SVER};sid=$ref->{PRISM}->{SID};port=$ref->{PRISM}->{PRT}",
"$ref->{PRISM}->{USER}",
"$ref->{PRISM}->{PASS}",
{
Warn => 1,
ChopBlanks => 1,
AutoCommit => 1,
RaiseError => 1,
PrintError => 1
}
) or die "Can't connect to Oracle database: $DBI::errstr\n";
# 0 - Trace disabled.
# 1 - Trace top-level DBI method calls returning with results or errors.
# 2 - As above, adding tracing of top-level method entry with parameters.
# 3 - As above, adding some high-level information from the driver
# 4 - As above, adding more detailed information from the driver.
# 5 to 15 - As above but with more and more internal information.
my $trace = DBI->trace( 1 , "$0.dbitrace.out");
return $dbh;
}