use SQL::OOP::Delete; my $delete= SQL::OOP::Delete->new(); # set clause $delete->set( $delete->ARG_TABLE => 'some_table', $delete->ARG_WHERE => SQL::OOP::Where->cmp('=', 'a', 'b'), ); # reset clause by plain text $delete->set( $delete->ARG_WHERE => 'a = b' ); my $sql = $delete->to_string; my @bind = $sth->execute($delete->bind);
SQL::OOP::Delete class represents Delete commands.
Constructor. It takes arguments in hash. The Hash keys are provided by following methods. They can call either class method or instance method.
This method resets the clause data. It takes same argument as constructor.
argument key for table name(=1)
argument key for where clause(=2)
Sugama Keita, <email@example.com>
Copyright (C) 2011 by Sugama Keita.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.