package DBIx::Custom::Query;

use Object::Simple -base;

use Carp 'croak';

use DBIx::Custom::Util '_subname';

has [qw/sth statement/],

  sql => '',

  columns => sub { [] };

# DEPRECATED!

has 'default_filter';

sub filters {

  warn "DBIx::Custom::Query filters attribute method is DEPRECATED!";

  my $self = shift;

  if (@_) {

    $self->{filters} = $_[0];

    return $self;

  }

  return $self->{filters};

}

# DEPRECATED!

sub tables {

  warn "DBIx::Custom::Query tables attribute method is DEPRECATED!";

  my $self = shift;

  if (@_) {

    $self->{tables} = $_[0];

    return $self;

  }

  return $self->{tables} ||= [];

}

#DEPRECATED!

sub filter {

  Carp::carp "DBIx::Custom::Query filter method is DEPRECATED!";

  my $self = shift;

  if (@_) {

    my $filter = {};

    if (ref $_[0] eq 'HASH') {

        $filter = $_[0];

    }

    else {

      my $ef = @_ > 1 ? [@_] : $_[0];

      for (my $i = 0; $i < @$ef; $i += 2) {

        my $column = $ef->[$i];

        my $f = $ef->[$i + 1];

        if (ref $column eq 'ARRAY') {

          for my $c (@$column) { $filter->{$c} = $f }

        }

        else { $filter->{$column} = $f }

      }

    }

    for my $column (keys %$filter) {

      my $fname = $filter->{$column};

      if (exists $filter->{$column}

        && defined $fname

        && ref $fname ne 'CODE') 

      {

        my $filters = $self->{filters} || {};

        croak qq{Filter "$fname" is not registered" } . _subname

          unless exists $filters->{$fname};

        $filter->{$column} = $filters->{$fname};

      }

    }

    $self->{filter} = {%{$self->{filter} || {}}, %$filter};

    return $self;

  }

  return $self->{filter} ||= {};

}

1;

=head1 NAME

DBIx::Custom::Query - DEPRECATED!