i do not deserve to have friends

[dbsrgits/SQL-Abstract.git] / test.pl

use SQL::Abstract2;

my $bind_vars = [];
my $q = SQL::Abstract2->new;

my $test_struct =
  [-select =>
   [-fields =>
    [-name => qw/table1 field1/],
    [-name => qw/table1 field2/],
    [-name => qw/table2 field3/],
   ],
   [-from => ( [-name => 'schema', 'table1'],
               [-name => 'schema', 'table1', [-as => 'table2'] ],
               ['-left join' =>
                [-name => 'schema', 'table2', [-as => 'table3'] ],
                [-on => [ -and => ( ['=', ( [-name => 'table1', 'fielda'],
                                            [-name => 'table2', 'fielda'] ) ],
                                    ['=', ( [-name => 'table1', 'fielda'],
                                            [-name => 'table2', 'fielda'] ) ],
                                  ),
                        ],
                ],
               ],
             )
   ],
   [-where => [-and => [-and => ( ['<' => ( [-name => qw/table1 field1/],
                                     [-date_sub => ['-curr_date'], qw/15 DAY/]
                                   ),
                           ],
                           ['!=' => [-name => 'field3'], [-value => undef] ],
                           ['='  => [-name => 'field4'], [-value => 500]   ],
                         ),
                ],
                [-or => ( [-in => [-name => 'field5'], [-value => 100], [-value => 100]],
                          [-between => [-name => 'field6'], [-value => 12], [-value => 26]]
                        ),
                ],
              ],
   ],
   [-'group by' => [-name => 'field4']],
   [-'order by' => [-asc => [-name => 'field3']] ],
   [-'limit' => [-value => 30],  [-value => 100]],
  ];

print $q->handle_op($test_struct);