DBIx::Custom::Query - Query

DBIx-Custom documentation Contained in the DBIx-Custom distribution.

Index

Code Index:

NAME

Top

DBIx::Custom::Query - Query

SYNOPSIS

Top

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

ATTRIBUTES

Top

columns

    my $columns = $query->columns;
    $query      = $query->columns(['auhtor', 'title']);

Column names.

filter

    my $filter = $query->filter;
    $query     = $query->filter(author => 'to_something',
                                 title  => 'to_something');

    $query     = $query->filter([qw/author title/] => 'to_something');

Filters when parameter binding is executed.

sql

    my $sql = $query->sql;
    $query  = $query->sql('select * from books where author = ?;');

SQL statement.

sth

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

Statement handle of DBI

METHODS

Top

DBIx::Custom::Query inherits all methods from Object::Simple.

DBIx-Custom documentation Contained in the DBIx-Custom distribution. 
package DBIx::Custom::Query;
use Object::Simple -base;

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

has [qw/sth filters/],
    sql => '',
    tables => sub { [] },
    columns => sub { [] };

sub filter {
    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') {
                    foreach my $c (@$column) {
                        $filter->{$c} = $f;
                    }
                }
                else {
                    $filter->{$column} = $f;
                }
            }
        }
        
        foreach my $column (keys %$filter) {
            my $fname = $filter->{$column};

            if  (exists $filter->{$column}
              && defined $fname
              && ref $fname ne 'CODE') 
            {
              croak qq{Filter "$fname" is not registered" } . _subname
                unless exists $self->filters->{$fname};
              
              $filter->{$column} = $self->filters->{$fname};
            }
        }
        
        $self->{filter} = {%{$self->filter}, %$filter};
        
        return $self;
    }
    
    return $self->{filter} ||= {};
}

# DEPRECATED!
has 'default_filter';

1;