File Coverage

lib/DBIx/ActiveRecord/Arel/Query/Delete.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	26	28	92.8

package DBIx::ActiveRecord::Arel::Query::Delete;
use strict;
use warnings;
use base 'DBIx::ActiveRecord::Arel::Query';

sub new {
    my ($self, $main) = @_;
    my $o = $self->SUPER::new($main);
    $o->merge($main->query);
    $o;
}

sub _to_sql {
    my ($self) = @_;

    $DBIx::ActiveRecord::Arel::Column::USE_FULL_NAME = 0;
    $DBIx::ActiveRecord::Arel::Column::AS = {};

    my $sql = 'DELETE FROM '.$self->main->table;
    my $where = $self->build_where;
    $sql .= " WHERE $where" if $where;
    $sql;
}

1;