The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

DBIx::Custom::Where - Where clause

SYNOPSYS

    my $where = DBIx::Custom::Where->new;

ATTRIBUTES

clause

    $where->clause(
        ['and', '{= title}', ['or', '{< date}', '{> date}']]
    );

Where clause. Above one is expanded to the following SQL by to_string If all parameter names is exists.

    "where ( {= title} and ( {< date} or {> date} ) )"

param

    my $param = $where->param;
    $where    = $where->param({title => 'Perl',
                               date => ['2010-11-11', '2011-03-05']},
                               name => ['Ken', 'Taro']);

safety_column_name

    my $safety_column_name = $self->safety_column_name;
    $dbi                   = $self->safety_column_name($name);

METHODS

to_string

    $where->to_string;

Convert where clause to string correspoinding to param name.