Help for this page

Select Code to Download

Select or download this

use SQL::Statement;
use Data::Dumper;

...
 printf "Columns             %s\n",join',',map{$_->name} $stmt->column
+s;
 printf "Tables              %s\n",join',',map{$_->name} $stmt->tables
+;
 print "Where operator\n",Dumper($stmt->where);

Select or download this

Command             SELECT
Columns             *
Tables              FOO
...
  'neg' => 0,
  'op' => '>'
}, 'SQL::Statement::Op' );