package DBIx::Custom::Query;

use base 'Object::Simple';

use strict;

use warnings;

__PACKAGE__->attr([qw/sql key_infos bind_filter fetch_filter sth/]);

__PACKAGE__->attr(_no_bind_filters => sub { {} });

__PACKAGE__->attr(no_fetch_filters => sub { [] });

sub new {

    my $self = shift->SUPER::new(@_);

    $self->no_bind_filters($self->{no_bind_filters})

      if $self->{no_bind_filters};

    return $self;

}

sub no_bind_filters {

    my $self = shift;

    if (@_) {

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

        my %no_bind_filters = map { $_ => 1 } @{$self->{no_bind_filters}};

        $self->_no_bind_filters(\%no_bind_filters);

        return $self;

    }

    return $self->{no_bind_filters};

}

=head1 NAME

DBIx::Custom::Query - DBIx::Custom query

=head1 SYNOPSIS

    # New

    my $query = DBIx::Custom::Query->new;

    # Create by using create_query

    my $query = DBIx::Custom->create_query($template);

    # Set attributes

    $query->bind_filter($dbi->filters->{default_bind_filter});

    $query->no_bind_filters('title', 'author');

    $query->fetch_filter($dbi->filters->{default_fetch_filter});

    $query->no_fetch_filters('title', 'author');

=head1 Accessors

=head2 sth

Set and get statement handle

    $query = $query->sth($sth);

    $sth   = $query->sth;

=head2 sql

Set and get SQL

    $query = $query->sql($sql);

    $sql   = $query->sql;

=head2 bind_filter

Set and get bind filter

    $query       = $query->bind_filter($bind_filter);

    $bind_filter = $query->bind_filter;

=head2 no_bind_filters

Set and get keys of no filtering

    $query           = $query->no_bind_filters($no_filters);

    $no_bind_filters = $query->no_bind_filters;

=head2 fetch_filter

Set and get fetch filter

    $query        = $query->fetch_filter($fetch_filter);

    $fetch_filter = $query->fetch_filter;

=head2 no_fetch_filters

Set and get keys of no filtering

    $query            = $query->no_fetch_filters($no_filters);

    $no_fetch_filters = $query->no_fetch_filters;

=head2 key_infos

Set and get key informations

    $query     = $query->key_infos($key_infos);

    $key_infos = $query->key_infos;

=head1 Methods

=head2 new

    my $query = DBIx::Custom::Query->new;

=head1 AUTHOR

Yuki Kimoto, C<< <kimoto.yuki at gmail.com> >>

Github L<http://github.com/yuki-kimoto>

=head1 COPYRIGHT & LICENSE

Copyright 2009 Yuki Kimoto, all rights reserved.

This program is free software; you can redistribute it and/or modify it

under the same terms as Perl itself.

=cut

1;