File Coverage

blib/lib/DBIx/Custom.pm

Criterion	Covered	Total	%
statement	749	856	87.5
branch	304	394	77.1
condition	105	155	67.7
subroutine	76	89	85.3
pod	35	41	85.3
total	1269	1535	82.6

use 5.008007;
package DBIx::Custom;
use Object::Simple -base;

our $VERSION = '0.43';

use Carp 'confess';
use DBI;
use DBIx::Custom::Result;
use DBIx::Custom::Where;
use DBIx::Custom::Model;
use DBIx::Custom::Order;
use DBIx::Custom::Util qw/_array_to_hash _subname _deprecate/;
use DBIx::Custom::Mapper;
use DBIx::Custom::NotExists;
use DBIx::Custom::Query;
use DBIx::Connector;

use Encode qw/encode encode_utf8 decode_utf8/;
use Scalar::Util qw/weaken/;

has [qw/dsn password quote user exclude_table user_table_info
     user_column_info safety_character/];
has connector => 1;
has option => sub { {} };
has default_option => sub {
  {
    RaiseError => 1,
    PrintError => 0,
    AutoCommit => 1
  }
};
has filters => sub {
  {
    encode_utf8 => sub { encode_utf8($_[0]) },
    decode_utf8 => sub { decode_utf8($_[0]) }
  }
};
has last_sql => '';
has models => sub { {} };
has now => sub {
  sub {
    my ($sec, $min, $hour, $mday, $mon, $year) = localtime;
    $mon++;
    $year += 1900;
    my $now = sprintf("%04d-%02d-%02d %02d:%02d:%02d",
      $year, $mon, $mday, $hour, $min, $sec);
    return $now;
  }
};
has result_class  => 'DBIx::Custom::Result';
has separator => '.';

has mytable_symbol => '__MY__';

sub create_result {
  my ($self, $sth) = @_;

  return $self->result_class->new(sth => $sth, dbi => $self);
}

sub column {
  my $self = shift;
  my $option = pop if ref $_[-1] eq 'HASH';
  my $real_table = shift;
  my $columns = shift;
  my $table = $option->{alias} || $real_table;

  # Columns
  if (!defined $columns || $columns eq '*') {
    $columns = $self->model($real_table)->columns;
  }

  # Separator
  my $separator = $self->separator;

  # . is replaced
  my $t = $table;
  $t =~ s/\./$separator/g;

  # Column clause
  my @column;
  $columns ||= [];
  push @column, $self->_tq($table) . "." . $self->q($_) .
    " as " . $self->q("${t}${separator}$_")
    for @$columns;

  return join (', ', @column);
}

sub connect {
  my $self;

  if (ref $_[0]) {
    $self = shift;
  }
  else {
    $self = shift->new(@_);
  }

  my $connector = $self->connector;

  if (!ref $connector && $connector) {
    my $dsn = $self->dsn;
    my $user = $self->user;
    my $password = $self->password;
    my $option = $self->option;
    my $connector = DBIx::Connector->new($dsn, $user, $password,
      {%{$self->default_option} , %$option});
    $self->connector($connector);
  }

  # Connect
  $self->dbh;

  return $self;
}

sub dbh {
  my $self = shift;

  # Set
  if (@_) {
    $self->{dbh} = $_[0];

    return $self;
  }

  # Get
  else {
    # From Connction manager
    if (my $connector = $self->connector) {
      confess "connector must have dbh() method " . _subname
        unless ref $connector && $connector->can('dbh');

      $self->{dbh} = $connector->dbh;
    }

    # Connect
    $self->{dbh} ||= $self->_connect;

    # Quote
    if (!defined $self->quote) {
      my $driver = $self->_driver;
      my $quote =  $driver eq 'odbc' ? '[]'
        : $driver eq 'ado' ? '[]'
        : $driver eq 'mysql' ? '`'
        : '"';
      $self->quote($quote);
    }

    return $self->{dbh};
  }
}

sub delete {
  my ($self, %opt) = @_;

  # Don't allow delete all rows
  confess qq{delete method where or id option must be specified } . _subname
    if !$opt{where} && !defined $opt{id} && !$opt{allow_delete_all};

  # Where
  my $where;
  if (defined $opt{id}) {
    $where = $self->_id_to_param($opt{id}, $opt{primary_key}, $opt{table}) ;
  }
  else {
    $where = $opt{where};
  }
  my $w = $self->_where_clause_and_param($where);

  # Delete statement
  my $sql = "delete ";
  $sql .= "$opt{prefix} " if defined $opt{prefix};
  $sql .= "from " . $self->_tq($opt{table}) . " $w->{clause} ";

  # Execute query
  $self->execute($sql, $w->{param}, %opt);
}

sub delete_all { shift->delete(@_, allow_delete_all => 1) }

sub create_model {
  my $self = shift;

  my $opt;
  if (@_ % 2 != 0 && !ref $_[0]) {
    $opt = {table => shift, @_};
  }
  else {
    $opt = ref $_[0] eq 'HASH' ? $_[0] : {@_};
  }

  # Options
  $opt->{dbi} = $self;
  my $model_class = delete $opt->{model_class} || 'DBIx::Custom::Model';
  my $model_name  = delete $opt->{name};
  my $model_table = delete $opt->{table};
  $model_name ||= $model_table;

  # Create model
  my $model = $model_class->new($opt);
  weaken $model->{dbi};
  $model->table($model_table) unless $model->table;
  $model->name($model_name);

  if (!$model->columns || !@{$model->columns}) {
    $model->columns($self->get_columns_from_db($model->table));
  }

  # Set model
  $self->model($model_name, $model);

  return $self->model($model->name);
}

sub execute {
  my $self = shift;
  my $sql = shift;

  # Options
  my $param;
  $param = shift if @_ % 2;
  $param ||= {};
  my %opt = @_;

  # Append
  $sql .= $opt{append} if defined $opt{append};

  # Parse named place holder
  my $safe_char = $self->{safety_character};
  my $place_holder_re = $safe_char eq 'a-zA-Z0-9_'
    ? qr/(.*?[^\\]):([$safe_char\.]+)(?:\{(.*?)\})?(.*)/so
    : qr/(.*?[^\\]):([$safe_char\.]+)(?:\{(.*?)\})?(.*)/s;
  my $source_sql = $sql;
  $source_sql =~ s/([0-9]):/$1\\:/g;
  my $parsed_sql = '';
  my $columns;
  while ($source_sql =~ /$place_holder_re/) {
    push @$columns, $2;
    ($parsed_sql, $source_sql) = defined $3 ?
      ($parsed_sql . "$1$2 $3 ?", " $4") : ($parsed_sql . "$1?", " $4");
  }
  $parsed_sql .= $source_sql;
  $parsed_sql =~ s/\\:/:/g if index($parsed_sql, "\\:") != -1;

  # Edit SQL after building
  my $after_build_sql = $opt{after_build_sql};
  $parsed_sql = $after_build_sql->($parsed_sql) if $after_build_sql;

  # Type rule
  my $type_filters;
  if ($self->{_type_rule_is_called}) {
    $type_filters = {};
    unless ($opt{type_rule_off}) {
      my $tables = $opt{table} || [];
      $tables = [$tables] unless ref $tables eq 'ARRAY';

      # Tables
      my $main_table = @{$tables}[-1];

      my $type_rule_off_parts = {
        1 => $opt{type_rule1_off},
        2 => $opt{type_rule2_off}
      };
      for my $i (1, 2) {
        unless ($type_rule_off_parts->{$i}) {
          $type_filters->{$i} = {};
          my $table_alias = $opt{table_alias} || {};
          for my $alias (keys %$table_alias) {
            my $table = $table_alias->{$alias};

            for my $column (keys %{$self->{"_into$i"}{key}{$table} || {}}) {
              $type_filters->{$i}->{"$alias.$column"} = $self->{"_into$i"}{key}{$table}{$column};
            }
          }
          $type_filters->{$i} = {%{$type_filters->{$i}}, %{$self->{"_into$i"}{key}{$main_table} || {}}}
            if $main_table;
        }
      }
    }
  }

  # Replace filter name to code
  my $filter = $opt{filter};
  if (defined $filter) {
    if (ref $opt{filter} eq 'ARRAY') {
      $filter = _array_to_hash($filter);
    }

    for my $column (keys %$filter) {
      my $name = $filter->{$column};
      if (!defined $name) {
        $filter->{$column} = undef;
      }
      elsif (ref $name ne 'CODE') {
        confess qq{Filter "$name" is not registered" } . _subname
          unless exists $self->filters->{$name};
        $filter->{$column} = $self->filters->{$name};
      }
    }
  }

  # Bind type
  my $bind_type = $opt{bind_type};
  $bind_type = _array_to_hash($bind_type) if ref $bind_type eq 'ARRAY';

  # Create query
  my $query = DBIx::Custom::Query->new;
  $query->param($param);
  $query->sql($parsed_sql);
  $query->columns($columns);
  $query->bind_type($bind_type);

  $query->{_filter} = $filter;
  $query->{_type_filters} = $type_filters;
  $query->{_into1} = $self->{_into1};
  $query->{_into2} = $self->{_into2};

  # Has filter
  $query->{_f} = defined $filter || defined $type_filters;

  # Build bind values
  $query->build;

  # Statement handle
  my $sth;
  my $reuse_sth;
  $reuse_sth = $opt{reuse}->{$parsed_sql} if $opt{reuse};
  if ($reuse_sth) {
    $sth = $reuse_sth;
  }
  else {
    # Prepare statement handle
    eval { $sth = $self->dbh->prepare($parsed_sql) };
    if ($@) {
      $self->_confess($@, qq{. Following SQL is executed.\n}
                      . qq{$parsed_sql\n} . _subname);
    }
    $opt{reuse}->{$parsed_sql} = $sth if $opt{reuse};
  }

  # Execute
  my $affected;
  eval {
    my $bind_values = $query->bind_values;
    if ($bind_type) {
      my $bind_value_types = $query->bind_value_types;
      $sth->bind_param($_ + 1, $bind_values->[$_],
          $bind_value_types->[$_] ? $bind_value_types->[$_] : ())
        for (0 .. @$bind_values - 1);
      $affected = $sth->execute;
    }
    else { $affected = $sth->execute(@$bind_values) }

    # Save sql
    $self->{last_sql} = $parsed_sql;

    # DEBUG message
    if ($ENV{DBIX_CUSTOM_DEBUG}) {
      warn "SQL:\n" . $parsed_sql . "\n";
      my @output;
      for my $value (@$bind_values) {
        $value = 'undef' unless defined $value;
        $value = encode($ENV{DBIX_CUSTOM_DEBUG_ENCODING} || 'UTF-8', $value)
          if utf8::is_utf8($value);
        push @output, $value;
      }
      warn "Bind values: " . join(', ', @output) . "\n\n";
    }
  };

  $self->_confess($@, qq{. Following SQL is executed.\n}
    . qq{$parsed_sql\n} . _subname) if $@;

  # Reulst of select statement
  if ($sth->{NUM_OF_FIELDS}) {
    # Result
    my $result = $self->result_class->new(
      sth => $sth,
      dbi => $self,
    );

    if ($self->{_type_rule_is_called}) {
      $result->type_rule({
        from1 => $self->type_rule->{from1},
        from2 => $self->type_rule->{from2}
      });
      $result->{_has_filter} = 1;
    }

    return $result;
  }
  # Affected of insert, update, or delete
  else {
    return $affected
  }
}

sub include_model {
  my ($self, $name_space, $model_infos) = @_;

  # Name space
  $name_space ||= '';

  # Get Model information
  unless ($model_infos) {

    # Load name space module
    confess qq{"$name_space" is invalid class name } . _subname
      if $name_space =~ /[^\w:]/;
    eval "use $name_space";
    confess qq{Name space module "$name_space.pm" is needed. $@ } . _subname
      if $@;

    # Search model modules
    my $name_space_dir = $name_space;
    $name_space_dir =~ s/::/\//g;
    my $path = $INC{"$name_space_dir.pm"};
    $path =~ s/\.pm$//;
    opendir my $dh, $path
      or confess qq{Can't open directory "$path": $! } . _subname
    my @modules;
    while (my $file = readdir $dh) {
      my $file_abs = "$path/$file";
      if (-d $file_abs) {
        next if $file eq '.' || $file eq '..';
        opendir my $fq_dh, $file_abs
          or confess qq{Can't open directory "$file_abs": $! } . _subname;
        while (my $fq_file = readdir $fq_dh) {
          my $fq_file_abs = "$file_abs/$fq_file";
          push @modules, "${file}::$fq_file" if -f $fq_file_abs;
        }
        close $fq_dh;
      }
      elsif(-f $file_abs) { push @modules, $file }
    }
    close $dh;

    $model_infos = [];
    for my $module (@modules) {
      if ($module =~ s/\.pm$//) { push @$model_infos, $module }
    }
  }

  # Include models
  for my $model_info (@$model_infos) {

    # Load model
    my $model_class;
    my $model_name;
    my $model_table;
    if (ref $model_info eq 'HASH') {
      $model_class = $model_info->{class};
      $model_name  = $model_info->{name};
      $model_table = $model_info->{table};

      $model_name  ||= $model_class;
      $model_table ||= $model_name;
    }
    else {
      $model_class = $model_name = $model_table = $model_info;
    }

    $model_class =~ s/\./::/g;
    $model_name =~ s/::/./;
    $model_table =~ s/::/./;

    my $mclass = "${name_space}::$model_class";
    confess qq{"$mclass" is invalid class name } . _subname
      if $mclass =~ /[^\w:]/;
    unless ($mclass->can('new')) {
      eval "require $mclass";
      confess "$@ " . _subname if $@;
    }

    # Create model
    my $opt = {};
    $opt->{model_class} = $mclass if $mclass;
    $opt->{name}        = $model_name if $model_name;
    $opt->{table}       = $model_table if $model_table;

    $self->create_model($opt);
    1;
  }

  return $self;
}

sub like_value { sub { "%$_[0]%" } }

sub mapper {
  my $self = shift;
  return DBIx::Custom::Mapper->new(@_);
}

sub merge_param {
  my ($self, $param1, $param2) = @_;

  # Merge parameters
  my $merged_param = {%$param1};
  for my $column (keys %$param2) {
    if (exists $merged_param->{$column}) {
      $merged_param->{$column} = [$merged_param->{$column}]
        unless ref $merged_param->{$column} eq 'ARRAY';
      push @{$merged_param->{$column}},
        ref $param2->{$column} eq 'ARRAY' ? @{$param2->{$column}} : $param2->{$column};
    }
    else { $merged_param->{$column} = $param2->{$column} }
  }

  return $merged_param;
}

sub model {
  my ($self, $name, $model) = @_;

  # Set model
  if ($model) {
    $self->models->{$name} = $model;
    return $self;
  }

  # Check model existence
  confess qq{Model "$name" is not yet created } . _subname
    unless $self->models->{$name};

  # Get model
  return $self->models->{$name};
}

sub mycolumn {
  my ($self, $table, $columns) = @_;

  if (!$columns || $columns eq '*') {
    $columns = $self->model($table)->columns;
  }

  # Create column clause
  my @column;
  push @column, $self->_tq($table) . "." . $self->q($_) . " as " . $self->q($_)
    for @$columns;

  return join (', ', @column);
}

sub new {
  my $self = shift;

  # Same as DBI connect argument
  if (@_ > 0 && !ref $_[0] && $_[0] =~ /:/) {
    my $dsn = shift;
    my $user = shift;
    my $password = shift;
    my $dbi_option = shift || {};
    my $attrs = shift || {};
    $attrs->{dsn} = $dsn;
    $attrs->{user} = $user;
    $attrs->{password} = $password;
    $attrs->{option} = $dbi_option;
    $self = $self->SUPER::new($attrs);
  }
  else {
    $self = $self->SUPER::new(@_);
  }

  # Check attributes
  my @attrs = keys %$self;
  for my $attr (@attrs) {
    confess qq{Invalid attribute: "$attr" } . _subname
      unless $self->can($attr);
  }

  $self->{safety_character} = 'a-zA-Z0-9_'
    unless exists $self->{safety_character};

  return $self;
}

sub not_exists { DBIx::Custom::NotExists->singleton }

sub order {
  my $self = shift;
  return DBIx::Custom::Order->new(dbi => $self, @_);
}

sub q { shift->_tq($_[0], $_[1], whole => 1) }

sub _tq {
  my ($self, $value, $quotemeta, %opt) = @_;

  my $quote = $self->{quote} || $self->quote || '';

  my $q = substr($quote, 0, 1) || '';
  my $p;
  if (defined $quote && length $quote > 1) {
    $p = substr($quote, 1, 1);
  }
  else { $p = $q }

  if ($quotemeta) {
    $q = quotemeta($q);
    $p = quotemeta($p);
  }

  if ($opt{whole}) { return "$q$value$p" }
  else {
    my @values = split /\./, $value;
    push @values, '' unless @values;
    for my $v (@values) { $v = "$q$v$p" }
    return join '.', @values;
  }
}

sub register_filter {
  my $self = shift;

  # Register filter
  my $filters = ref $_[0] eq 'HASH' ? $_[0] : {@_};
  $self->filters({%{$self->filters}, %$filters});

  return $self;
}

sub select {
  my $self = shift;
  my $column = shift if @_ % 2;
  my %opt = @_;
  $opt{column} = $column if defined $column;

  # Table
  my $table = $opt{table};

  # Found tables;
  my $found_tables = [];
  push @$found_tables, $table if defined $table;

  my $param = delete $opt{param} || {};

  # Select statement
  my $sql = 'select ';

  # Prefix
  $sql .= "$opt{prefix} " if defined $opt{prefix};

  # Column
  if (defined $opt{column}) {
    my $columns
      = ref $opt{column} eq 'ARRAY' ? $opt{column} : [$opt{column}];
    for my $column (@$columns) {
      if (ref $column eq 'HASH') {
        my $mytable_symbol = $opt{mytable_symbol} || $self->mytable_symbol;
        my $table = (keys %$column)[0];
        my $columns = $column->{$table};

        if ($table eq $mytable_symbol) {
          $column = $self->mycolumn($found_tables->[0] => $columns);
        }
        else {
          $column = $self->column($table => $columns);
        }
      }
      unshift @$found_tables, @{$self->_search_tables($column)} if $table;
      $sql .= "$column, ";
    }
    $sql =~ s/, $/ /;
  }
  else { $sql .= '* ' }

  # Execute query without table
  return $self->execute($sql, {}, %opt) unless $table;

  # Table
  $sql .= 'from ';
  $sql .= $self->_tq($found_tables->[-1] || '') . ' ';
  $sql =~ s/, $/ /;

  # Add tables in parameter
  unshift @$found_tables, @{$self->_search_tables(join(' ', keys %$param) || '')};

  # Where
  my $where;
  if (defined $opt{id}) {
    $where = $self->_id_to_param($opt{id}, $opt{primary_key}, @$found_tables ? $found_tables->[-1] : undef) ;
  }
  else {
    $where = $opt{where};
  }
  my $w = $self->_where_clause_and_param($where, $opt{id});
  $param = $self->merge_param($param, $w->{param});

  # Search table names in where clause
  unshift @$found_tables, @{$self->_search_tables($w->{clause})};

  # Search table names in append option
  if (defined(my $append = $opt{append})) {
    unshift @$found_tables, @{$self->_search_tables($append)};
  }

  # Join statement
  my $join = [];
  if (defined $opt{join}) {
    my $opt_join = $opt{join};
    if (ref $opt_join eq 'ARRAY') {
      push @$join, @$opt_join;
    }
    else { push @$join, $opt_join }
  }
  if (defined $w->{join}) {
    my $where_join = $w->{join};
    if (ref $where_join eq 'ARRAY') {
      push @$join, @$where_join;
    }
    else { push @$join, $where_join }
  }
  $self->_push_join(\$sql, $join, $found_tables) if @$join;

  # Add where clause
  $sql .= "$w->{clause} ";

  # Execute query
  return $self->execute($sql, $param, %opt);
}

sub setup_model {
  my ($self, %opt) = @_;

  _deprecate('0.39', "DBIx::Custom::setup method is DEPRECATED! columns is automatically set when create_model or include_model is called");

  return $self;
}

sub insert {
  my $self = shift;

  # Options
  my $params = @_ % 2 ? shift : undef;
  my %opt = @_;
  $params ||= {};

  # Insert statement
  my $sql = "insert ";
  $sql .= "$opt{prefix} " if defined $opt{prefix};
  $sql .= "into " . $self->_tq($opt{table}) . " ";

  my $multi;
  if (ref $params eq 'ARRAY') { $multi = 1 }
  else { $params = [$params] }

  # Created time and updated time
  if (defined $opt{ctime} || defined $opt{mtime}) {

    for my $param (@$params) {
      $param = {%$param};
    }
    my $now = $self->now;
    $now = $now->() if ref $now eq 'CODE';
    if (defined $opt{ctime}) {
      $_->{$opt{ctime}} = $now for @$params;
    }
    if (defined $opt{mtime}) {
      $_->{$opt{mtime}} = $now for @$params;
    }
  }

  # Merge id to parameter
  if (defined $opt{id} && !$multi) {

    _deprecate('0.39', "DBIx::Custom::insert method's id option is DEPRECATED!");

    for my $param (@$params) {
      $param = {%$param};
    }

    confess "insert id option must be specified with primary_key option"
      unless $opt{primary_key};
    $opt{primary_key} = [$opt{primary_key}] unless ref $opt{primary_key} eq 'ARRAY';
    $opt{id} = [$opt{id}] unless ref $opt{id} eq 'ARRAY';
    for (my $i = 0; $i < @{$opt{primary_key}}; $i++) {
      my $key = $opt{primary_key}->[$i];
      next if exists $params->[0]->{$key};
      $params->[0]->{$key} = $opt{id}->[$i];
    }
  }

  if ($opt{bulk_insert}) {
    $sql .= $self->_multi_values_clause($params, {wrap => $opt{wrap}}) . " ";
    my $new_param = {};
    $new_param->{$_} = [] for keys %{$params->[0]};
    for my $param (@$params) {
      push @{$new_param->{$_}}, $param->{$_} for keys %$param;
    }
    $params = [$new_param];
  }
  else {
    $sql .= $self->values_clause($params->[0], {wrap => $opt{wrap}}) . " ";
  }

  # Execute query
  if (@$params > 1) {
    for my $param (@$params) {
      $self->execute($sql, $param, %opt);
    }
  }
  else {
    $self->execute($sql, $params->[0], %opt);
  }
}

sub update {
  my $self = shift;

  # Options
  my $param = @_ % 2 ? shift : undef;
  my %opt = @_;
  $param ||= {};

  # Don't allow update all rows
  confess qq{update method where option must be specified } . _subname
    if !$opt{where} && !defined $opt{id} && !$opt{allow_update_all};

  # Created time and updated time
  if (defined $opt{mtime}) {
    $param = {%$param};
    my $now = $self->now;
    $now = $now->() if ref $now eq 'CODE';
    $param->{$opt{mtime}} = $self->now->();
  }

  # Assign clause
  my $assign_clause = $self->assign_clause($param, {wrap => $opt{wrap}});

  # Where
  my $where;
  if (defined $opt{id}) {
    $where = $self->_id_to_param($opt{id}, $opt{primary_key}, $opt{table}) ;
  }
  else {
    $where = $opt{where};
  }

  my $w = $self->_where_clause_and_param($where);

  # Merge update parameter with where parameter
  $param = $self->merge_param($param, $w->{param});

  # Update statement
  my $sql = "update ";
  $sql .= "$opt{prefix} " if defined $opt{prefix};
  $sql .= $self->_tq($opt{table}) . " set $assign_clause $w->{clause} ";

  # Execute query
  $self->execute($sql, $param, %opt);
}

sub update_all { shift->update(@_, allow_update_all => 1) };

sub values_clause {
  my ($self, $param, $opts) = @_;

  my $wrap = $opts->{wrap} || {};

  # Create insert parameter tag
  my ($q, $p) = $self->_qp;

  my $safety_character = $self->safety_character;

  my @columns;
  my @place_holders;
  for my $column (sort keys %$param) {
    confess qq{"$column" is not safety column name in values clause} . _subname
      unless $column =~ /^[$safety_character\.]+$/;

    push @columns, "$q$column$p";
    push @place_holders, ref $param->{$column} eq 'SCALAR' ? ${$param->{$column}} :
      $wrap->{$column} ? $wrap->{$column}->(":$column") :
      ":$column";
  }

  my $values_clause = '(' . join(', ', @columns) . ') values (' . join(', ', @place_holders) . ')';

  return $values_clause;
}

sub assign_clause {
  my ($self, $param, $opts) = @_;

  my $wrap = $opts->{wrap} || {};
  my ($q, $p) = $self->_qp;

  my $safety_character = $self->safety_character;

  my @set_values;
  for my $column (sort keys %$param) {
    confess qq{"$column" is not safety column name in assign clause} . _subname
      unless $column =~ /^[$safety_character\.]+$/;

    push @set_values, ref $param->{$column} eq 'SCALAR' ? "$q$column$p = " . ${$param->{$column}}
      : $wrap->{$column} ? "$q$column$p = " . $wrap->{$column}->(":$column")
      : "$q$column$p = :$column";
  }

  my $assign_clause = join(', ', @set_values);

  return $assign_clause;
}

sub where { DBIx::Custom::Where->new(dbi => shift, @_) }

sub type_rule {
  my $self = shift;

  $self->{_type_rule_is_called} = 1;

  if (@_) {
    my $type_rule = ref $_[0] eq 'HASH' ? $_[0] : {@_};

    # Into
    for my $i (1 .. 2) {
      my $into = "into$i";
      my $exists_into = exists $type_rule->{$into};
      $type_rule->{$into} = _array_to_hash($type_rule->{$into});
      $self->{type_rule} = $type_rule;
      $self->{"_$into"} = {};
      for my $type_name (keys %{$type_rule->{$into} || {}}) {
        confess qq{type name of $into section must be lower case}
          if $type_name =~ /[A-Z]/;
      }

      $self->each_column(sub {
        my ($dbi, $table, $column, $column_info) = @_;

        my $type_name = lc $column_info->{TYPE_NAME};
        if ($type_rule->{$into} &&
            (my $filter = $type_rule->{$into}->{$type_name}))
        {
          return unless exists $type_rule->{$into}->{$type_name};
          if (defined $filter && ref $filter ne 'CODE')
          {
            my $fname = $filter;
            confess qq{Filter "$fname" is not registered" } . _subname
              unless exists $self->filters->{$fname};

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

          my $schema = $column_info->{TABLE_SCHEM};
          $self->{"_$into"}{key}{$table}{$column} = $filter;
          $self->{"_$into"}{dot}{"$table.$column"} = $filter;

          $self->{"_$into"}{key}{"$schema.$table"}{$column} = $filter;
          $self->{"_$into"}{dot}{"$schema.$table.$column"} = $filter;
        }
      });
    }

    # From
    for my $i (1 .. 2) {
      $type_rule->{"from$i"} = _array_to_hash($type_rule->{"from$i"});
      for my $data_type (keys %{$type_rule->{"from$i"} || {}}) {
        confess qq{data type of from$i section must be lower case or number}
          if $data_type =~ /[A-Z]/;
        my $fname = $type_rule->{"from$i"}{$data_type};
        if (defined $fname && ref $fname ne 'CODE') {
          confess qq{Filter "$fname" is not registered" } . _subname
            unless exists $self->filters->{$fname};

          $type_rule->{"from$i"}{$data_type} = $self->filters->{$fname};
        }
      }
    }

    return $self;
  }

  return $self->{type_rule} || {};
}

sub get_table_info {
  my ($self, %opt) = @_;

  my $exclude = delete $opt{exclude};
  confess qq/"$_" is wrong option/ for keys %opt;

  my $table_info = [];
  $self->each_table(
    sub { push @$table_info, {table => $_[1], info => $_[2] } },
    exclude => $exclude
  );

  return [sort {$a->{table} cmp $b->{table} } @$table_info];
}

sub get_column_info {
  my ($self, %opt) = @_;

  my $exclude_table = delete $opt{exclude_table};
  confess qq/"$_" is wrong option/ for keys %opt;

  my $column_info = [];
  $self->each_column(
    sub { push @$column_info, {table => $_[1], column => $_[2], info => $_[3] } },
    exclude_table => $exclude_table
  );

  return [
    sort {$a->{table} cmp $b->{table} || $a->{column} cmp $b->{column} }
      @$column_info];
}

sub each_column {
  my ($self, $cb, %options) = @_;

  my $user_column_info = $self->user_column_info;

  if ($user_column_info) {
    $self->$cb($_->{table}, $_->{column}, $_->{info}) for @$user_column_info;
  }
  else {
    my $re = $self->exclude_table || $options{exclude_table};
    # Tables
    my $tables = {};
    $self->each_table(sub {
      my ($dbi, $table, $table_info) = @_;
      my $schema = $table_info->{TABLE_SCHEM};
      $tables->{$schema}{$table}++;
    });

    # Iterate all tables
    for my $schema (sort keys %$tables) {
      for my $table (sort keys %{$tables->{$schema}}) {

        # Iterate all columns
        my $sth_columns;
        eval {$sth_columns = $self->dbh->column_info(undef, $schema, $table, '%')};
        next if $@;
        while (my $column_info = $sth_columns->fetchrow_hashref) {
          my $column = $column_info->{COLUMN_NAME};
          $self->$cb($table, $column, $column_info);
        }
      }
    }
  }
}

sub get_columns_from_db {
  my ($self, $schema_table) = @_;

  my $schema;
  my $table;
  if ($schema_table =~ /^(.+)\.(.*)$/) {
    $schema = $1;
    $table = $2;
  }
  else {
    $schema = undef;
    $table = $schema_table;
  }

  my $sth_columns;
  eval {$sth_columns = $self->dbh->column_info(undef, $schema, $table, "%") };
  if ($@) {
    return;
  }

  my $columns;
  while (my $column_info = $sth_columns->fetchrow_hashref) {
    $columns ||= [];
    my $column = $column_info->{COLUMN_NAME};
    push @$columns, $column;
  }

  return $columns;
}

sub each_table {
  my ($self, $cb, %option) = @_;

  my $user_table_infos = $self->user_table_info;

  # Iterate tables
  if ($user_table_infos) {
      $self->$cb($_->{table}, $_->{info}) for @$user_table_infos;
  }
  else {
    my $re = $self->exclude_table || $option{exclude};
    my $sth_tables = $self->dbh->table_info;
    while (my $table_info = $sth_tables->fetchrow_hashref) {
      # Table
      my $table = $table_info->{TABLE_NAME};
      next if defined $re && $table =~ /$re/;
      $self->$cb($table, $table_info);
    }
  }
}

sub available_datatype {
  my $self = shift;

  my $data_types = '';
  for my $i (-1000 .. 1000) {
     my $type_info = $self->dbh->type_info($i);
     my $data_type = $type_info->{DATA_TYPE};
     my $type_name = $type_info->{TYPE_NAME};
     $data_types .= "$data_type ($type_name)\n"
       if defined $data_type;
  }
  return "Data Type maybe equal to Type Name" unless $data_types;
  $data_types = "Data Type (Type name)\n" . $data_types;
  return $data_types;
}

sub available_typename {
  my $self = shift;

  # Type Names
  my $type_names = {};
  $self->each_column(sub {
    my ($self, $table, $column, $column_info) = @_;
    $type_names->{$column_info->{TYPE_NAME}} = 1
      if $column_info->{TYPE_NAME};
  });
  my @output = sort keys %$type_names;
  unshift @output, "Type Name";
  return join "\n", @output;
}

sub show_datatype {
  my ($self, $table) = @_;
  confess "Table name must be specified" unless defined $table;
  print "$table\n";

  my $result = $self->select(table => $table, where => "'0' <> '0'");
  my $sth = $result->sth;

  my $columns = $sth->{NAME};
  my $data_types = $sth->{TYPE};

  for (my $i = 0; $i < @$columns; $i++) {
    my $column = $columns->[$i];
    my $data_type = lc $data_types->[$i];
    print "$column: $data_type\n";
  }
}

sub show_typename {
  my ($self, $t) = @_;
  confess "Table name must be specified" unless defined $t;
  print "$t\n";

  $self->each_column(sub {
    my ($self, $table, $column, $infos) = @_;
    return unless $table eq $t;
    my $typename = lc $infos->{TYPE_NAME};
    print "$column: $typename\n";
  });

  return $self;
}

sub show_tables {
  my $self = shift;

  my %tables;
  $self->each_table(sub { $tables{$_[1]}++ });
  print join("\n", sort keys %tables) . "\n";
  return $self;
}

sub _qp {
  my ($self, %opt) = @_;

  my $quote = $self->{quote} || $self->quote || '';

  my $q = substr($quote, 0, 1) || '';
  my $p;
  if (defined $quote && length $quote > 1) {
    $p = substr($quote, 1, 1);
  }
  else { $p = $q }

  if ($opt{quotemeta}) {
    $q = quotemeta($q);
    $p = quotemeta($p);
  }

  return ($q, $p);
}

sub _multi_values_clause {
  my ($self, $params, $opts) = @_;

  my $wrap = $opts->{wrap} || {};

  # Create insert parameter tag
  my ($q, $p) = $self->_qp;

  my $safety_character = $self->safety_character;

  my $first_param = $params->[0];

  my @columns;
  my @columns_quoted;
  for my $column (keys %$first_param) {
    confess qq{"$column" is not safety column name in multi values clause} . _subname
      unless $column =~ /^[$safety_character\.]+$/;

    push @columns, $column;
    push @columns_quoted, "$q$column$p";
  }

  # Multi values clause
  my $multi_values_clause = '(' . join(', ', @columns_quoted) . ') values ';

  for my $param (@$params) {
    my @place_holders;
    for my $column (@columns) {
      push @place_holders, ref $param->{$column} eq 'SCALAR' ? ${$param->{$column}} :
        $wrap->{$column} ? $wrap->{$column}->(":$column") :
        ":$column";
    }
    $multi_values_clause .= '(' . join(', ', @place_holders) . '), ';
  }
  $multi_values_clause =~ s/, $//;

  return $multi_values_clause;
}

sub _id_to_param {
  my ($self, $id, $primary_keys, $table) = @_;

  # Check primary key
  confess "primary_key option " .
        "must be specified when id option is used" . _subname
    unless defined $primary_keys;
  $primary_keys = [$primary_keys] unless ref $primary_keys eq 'ARRAY';

  _deprecate('0.39', "DBIx::Custom::select,update,delete method's id and primary_key option is DEPRECATED!");

  # Create parameter
  my $param = {};
  if (defined $id) {
    $id = [$id] unless ref $id eq 'ARRAY';
    for(my $i = 0; $i < @$id; $i++) {
      my $key = $primary_keys->[$i];
      $key = "$table." . $key if $table;
      $param->{$key} = $id->[$i];
    }
  }

  return $param;
}

sub _connect {
  my $self = shift;

  # Attributes
  my $dsn = $self->dsn;
  confess qq{"dsn" must be specified } . _subname
    unless $dsn;
  my $user        = $self->user;
  my $password    = $self->password;
  my $option = $self->option;
  $option = {%{$self->default_option}, %$option};

  # Connect
  my $dbh;
  eval { $dbh = DBI->connect($dsn, $user, $password, $option) };

  # Connect error
  confess "$@ " . _subname if $@;

  return $dbh;
}

sub _confess {
  my ($self, $error, $append) = @_;

  # Append
  $append ||= "";

  # Verbose
  if ($Carp::Verbose) { confess $error }

  # Not verbose
  else {
    # Remove line and module information
    my $at_pos = rindex($error, ' at ');
    $error = substr($error, 0, $at_pos);
    $error =~ s/\s+$//;
    confess "$error$append";
  }
}

sub _driver { lc shift->{dbh}->{Driver}->{Name} }

sub _need_tables {
  my ($self, $tree, $need_tables, $tables) = @_;

  # Get needed tables
  for my $table (@$tables) {
    if ($tree->{$table}) {
      $need_tables->{$table} = 1;
      $self->_need_tables($tree, $need_tables, [$tree->{$table}{parent}])
    }
  }
}

sub _push_join {
  my ($self, $sql, $join, $join_tables) = @_;

  # Push join clause
  my $tree = {};
  for (my $i = 0; $i < @$join; $i++) {

    # Arrange
    my $join_clause;;
    my $option;
    if (ref $join->[$i] eq 'HASH') {
      $join_clause = $join->[$i]->{clause};
      $option = {table => $join->[$i]->{table}};
    }
    else {
      $join_clause = $join->[$i];
      $option = {};
    };

    # Find tables in join clause
    my $table1;
    my $table2;
    if (my $table = $option->{table}) {
      $table1 = $table->[0];
      $table2 = $table->[1];
    }
    else {
      my $q = $self->_quote;
      my $j_clause = (split /\s+on\s+/, $join_clause)[-1];
      $j_clause =~ s/'.+?'//g;
      my $q_re = quotemeta($q);
      $j_clause =~ s/[$q_re]//g;

      my @j_clauses = reverse split /\s(and|on)\s/, $j_clause;
      my $c = $self->{safety_character};
      my $join_re = qr/((?:[$c]+?\.[$c]+?)|(?:[$c]+?))\.[$c]+[^$c].*?((?:[$c]+?\.[$c]+?)|(?:[$c]+?))\.[$c]+/sm;
      for my $clause (@j_clauses) {
        if ($clause =~ $join_re) {
          $table1 = $1;
          $table2 = $2;
          last;
        }
      }
    }
    confess qq{join clause must have two table name after "on" keyword. } .
        qq{"$join_clause" is passed }  . _subname
      unless defined $table1 && defined $table2;
    confess qq{right side table of "$join_clause" must be unique } . _subname
      if exists $tree->{$table2};
    confess qq{Same table "$table1" is specified} . _subname
      if $table1 eq $table2;
    $tree->{$table2}
      = {position => $i, parent => $table1, join => $join_clause};
  }

  # Search need tables
  my $need_tables = {};
  $self->_need_tables($tree, $need_tables, $join_tables);
  my @need_tables = sort { $tree->{$a}{position} <=> $tree->{$b}{position} }
    keys %$need_tables;

  # Add join clause
  $$sql .= $tree->{$_}{join} . ' ' for @need_tables;
}

sub _quote {
  my $self = shift;
  return $self->quote || '';
}

sub _remove_duplicate_table {
  my ($self, $tables, $main_table) = @_;

  # Remove duplicate table
  my %tables = map {defined $_ ? ($_ => 1) : ()} @$tables;
  delete $tables{$main_table} if $main_table;

  my $new_tables = [keys %tables, $main_table ? $main_table : ()];
  if (my $q = $self->_quote) {
    $q = quotemeta($q);
    $_ =~ s/[$q]//g for @$new_tables;
  }

  return $new_tables;
}

sub _search_tables {
  my ($self, $source) = @_;

  # Search tables
  my $tables = [];
  my ($q, $p) = $self->_qp(quotemeta => 1);
  $source =~ s/$q//g;
  $source =~ s/$p//g;
  my $c = $self->safety_character;

  while ($source =~ /((?:[$c]+?\.[$c]+?)|(?:[$c]+?))\.[$c]+/g) {
    push @$tables, $1;
  }
  return $tables;
}

sub _where_clause_and_param {
  my ($self, $where) = @_;

  $where ||= {};
  my $w = {};

  if (ref $where eq 'HASH') {
    my $safety_character = $self->safety_character;

    my $clause = [];
    my $column_join = '';
    for my $column (sort keys %$where) {

      confess qq{"$column" is not safety column name in where clause} . _subname
        unless $column =~ /^[$safety_character\.]+$/;

      $column_join .= $column;
      my $table;
      my $c;
      if ($column =~ /(?:(.*)\.)?(.*)/) {
        $table = $1;
        $c = $2;
      }

      my $table_quote;
      $table_quote = $self->_tq($table) if defined $table;
      my $column_quote = $self->q($c);
      $column_quote = $table_quote . '.' . $column_quote
        if defined $table_quote;
      if (ref $where->{$column} eq 'ARRAY') {
        my $c = join(', ', (":$column") x @{$where->{$column}});
        if (@{$where->{$column}}) {
          push @$clause, "$column_quote in ( $c )";
        }
        else { push @$clause, '1 <> 1' }
      }
      else { push @$clause, "$column_quote = :$column" }
    }

    $w->{clause} = @$clause ? "where ( " . join(' and ', @$clause) . " ) " : '' ;
    $w->{param} = $where;
  }
  elsif (ref $where) {
    my $obj;

    if (ref $where eq 'DBIx::Custom::Where') { $obj = $where }
    elsif (ref $where eq 'ARRAY') {
      $obj = $self->where(clause => $where->[0], param => $where->[1], join => $where->[2]);
    }

    # Check where argument
    confess qq{"where" must be hash reference or DBIx::Custom::Where object}
        . qq{or array reference, which contains where clause and parameter}
        . _subname
      unless ref $obj eq 'DBIx::Custom::Where';

    $w->{clause} = $obj->to_string;
    $w->{param} = $obj->param;
    $w->{join} = $obj->{join};
  }
  elsif ($where) {
    $w->{clause} = "where $where";
  }

  return $w;
}

# DEPRECATED
our $AUTOLOAD;
sub AUTOLOAD {
  my $self = shift;

  _deprecate('0.39', "DBIx::Custom AUTOLOAD feature is DEPRECATED!");

  # Method name
  my ($package, $mname) = $AUTOLOAD =~ /^([\w\:]+)\:\:(\w+)$/;

  # Call method
  $self->{_methods} ||= {};
  if (my $method = $self->{_methods}->{$mname}) {
    return $self->$method(@_)
  }
  elsif ($self->{dbh} && (my $dbh_method = $self->dbh->can($mname))) {
    $self->dbh->$dbh_method(@_);
  }
  else {
    confess qq{Can't locate object method "$mname" via "$package" }
      . _subname;
  }
}
sub DESTROY {}

# DEPRECATED
sub helper {
  my $self = shift;

  _deprecate('0.39', "DBIx::Custom::helper method is DEPRECATED!");

  # Register method
  my $methods = ref $_[0] eq 'HASH' ? $_[0] : {@_};
  $self->{_methods} = {%{$self->{_methods} || {}}, %$methods};

  return $self;
}

# DEPRECATED
sub update_or_insert {

  _deprecate('0.39', "DBIx::Custom::update_or_insert method is DEPRECATED!");

  my ($self, $param, %opt) = @_;
  confess "update_or_insert method need primary_key and id option "
    unless defined $opt{id} && defined $opt{primary_key};
  my $statement_opt = $opt{option} || {};

  my $rows = $self->select(%opt, %{$statement_opt->{select} || {}})->all;
  if (@$rows == 0) {
    return $self->insert($param, %opt, %{$statement_opt->{insert} || {}});
  }
  elsif (@$rows == 1) {
    return 0 unless keys %$param;
    return $self->update($param, %opt, %{$statement_opt->{update} || {}});
  }
  else { confess "selected row must be one " . _subname }
}

# DEPRECATED
sub count {
  _deprecate('0.39', "DBIx::Custom::count method is DEPRECATED!");
  shift->select(column => 'count(*)', @_)->fetch_one->[0]
}

1;

=head1 NAME

DBIx::Custom - DBI extension to execute insert, update, delete, and select easily

=head1 SYNOPSIS

  use DBIx::Custom;

  # Connect
  my $dbi = DBIx::Custom->connect(
    "dbi:mysql:database=dbname",
    'ken',
    '!LFKD%$&',
    {mysql_enable_utf8 => 1}
  );

  # Create model
  $dbi->create_model('book');

  # Insert
  $dbi->model('book')->insert({title => 'Perl', author => 'Ken'});

  # Update
  $dbi->model('book')->update({title => 'Perl', author => 'Ken'}, where  => {id => 5});

  # Delete
  $dbi->model('book')->delete(where => {author => 'Ken'});

  # Select
  my $result = $dbi->model('book')->select(['title', 'author'], where  => {author => 'Ken'});

  # Select, more complex
  #   select book.title as book.title,
  #     book.author as book.author,
  #     comnapy.name as company.name
  #   form book
  #     left outer join company on book.company_id = company.id
  #   where book.author = ?
  #   order by id limit 0, 5
  my $result = $dbi->model('book')->select(
    [
      {book => [qw/title author/]},
      {company => ['name']}
    ],
    where  => {'book.author' => 'Ken'},
    join => ['left outer join company on book.company_id = company.id'],
    append => 'order by id limit 0, 5'
  );

  # Get all rows or only one row
  my $rows = $result->all;
  my $row = $result->one;

  # Execute SQL with named place holder
  my $result = $dbi->execute(
    "select id from book where author = :author and title like :title",
    {author => 'ken', title => '%Perl%'}
  );

=head1 DESCRIPTION

L is L wrapper module to execute SQL easily.
This module have the following features.

=over 4

=item *

Execute C, C, C, or C statement easily

=item *

Create C clause flexibly

=item *

Named place holder support

=item *

Model support

=item *

Connection manager support

=item *

Choice your favorite relational database management system,
C, C, C, C,
C, C, C or anything,

=item *

Filtering by data type or column name

=item *

Create C clause flexibly

=back

=head1 WEB SITE

L

=head1 DOCUMENTS

L

L

=head1 ATTRIBUTES

=head2 connector

  my $connector = $dbi->connector;
  $dbi = $dbi->connector($connector);

Connection manager object. if C is set, you can get C
through connection manager. Conection manager object must have C method.

This is L example. Please pass
C to L C method.

  my $connector = DBIx::Connector->new(
    "dbi:mysql:database=$database",
    $user,
    $password,
    DBIx::Custom->new->default_option
  );

  my $dbi = DBIx::Custom->connect(connector => $connector);

If C is set to 1 when connect method is called,
L is automatically set to C

  my $dbi = DBIx::Custom->connect(
    dsn => $dsn, user => $user, password => $password, connector => 1);

  my $connector = $dbi->connector; # DBIx::Connector

Note that L must be installed.

=head2 dsn

  my $dsn = $dbi->dsn;
  $dbi = $dbi->dsn("DBI:mysql:database=dbname");

Data source name, used when C method is executed.

=head2 default_option

  my $default_option = $dbi->default_option;
  $dbi = $dbi->default_option($default_option);

L default option, used when C method is executed,
default to the following values.

  {
    RaiseError => 1,
    PrintError => 0,
    AutoCommit => 1,
  }

=head2 exclude_table

  my $exclude_table = $dbi->exclude_table;
  $dbi = $dbi->exclude_table(qr/pg_/);

Excluded table regex.
C, C, C

=head2 filters

  my $filters = $dbi->filters;
  $dbi = $dbi->filters(\%filters);

Filters, registered by C method.

=head2 last_sql

  my $last_sql = $dbi->last_sql;
  $dbi = $dbi->last_sql($last_sql);

Get last succeeded SQL executed by C method.

=head2 now

  my $now = $dbi->now;
  $dbi = $dbi->now($now);

Code reference which return current time, default to the following code reference.

  sub {
    my ($sec, $min, $hour, $mday, $mon, $year) = localtime;
    $mon++;
    $year += 1900;
    return sprintf("%04d-%02d-%02d %02d:%02d:%02d");
  }

This return the time like C<2011-10-14 05:05:27>.

This is used by C method's C option and C option,
and C method's C option.

=head2 models

  my $models = $dbi->models;
  $dbi = $dbi->models(\%models);

Models, included by C method.

=head2 mytable_symbol

Symbol to specify own columns in select method column option, default to '__MY__'.

  $dbi->table('book')->select({__MY__ => '*'});

=head2 option

  my $option = $dbi->option;
  $dbi = $dbi->option($option);

L option, used when C method is executed.
Each value in option override the value of C.

=head2 password

  my $password = $dbi->password;
  $dbi = $dbi->password('lkj&le`@s');

Password, used when C method is executed.

=head2 quote

  my quote = $dbi->quote;
  $dbi = $dbi->quote('"');

Reserved word quote.
Default to double quote '"' except for mysql.
In mysql, default to back quote '`'

You can set quote pair.

  $dbi->quote('[]');

=head2 result_class

  my $result_class = $dbi->result_class;
  $dbi = $dbi->result_class('DBIx::Custom::Result');

Result class, default to L.

=head2 safety_character

  my $safety_character = $dbi->safety_character;
  $dbi = $dbi->safety_character($character);

Regex of safety character for table and column name, default to 'a-zA-Z_'.
Note that you don't have to specify like '[a-zA-Z_]'.

=head2 separator

  my $separator = $dbi->separator;
  $dbi = $dbi->separator('-');

Separator which join table name and column name.
This have effect to C and C method,
and C method's column option.

Default to C<.>.

=head2 user

  my $user = $dbi->user;
  $dbi = $dbi->user('Ken');

User name, used when C method is executed.

=head2 user_column_info

  my $user_column_info = $dbi->user_column_info;
  $dbi = $dbi->user_column_info($user_column_info);

You can set the date like the following one.

  [
    {table => 'book', column => 'title', info => {...}},
    {table => 'author', column => 'name', info => {...}}
  ]

Usually, you set return value of C.

  my $user_column_info
    = $dbi->get_column_info(exclude_table => qr/^system/);
  $dbi->user_column_info($user_column_info);

If C is set, C use C
to find column info. this is very fast.

=head2 user_table_info

  my $user_table_info = $dbi->user_table_info;
  $dbi = $dbi->user_table_info($user_table_info);

You can set the following data.

  [
    {table => 'book', info => {...}},
    {table => 'author', info => {...}}
  ]

Usually, you can set return value of C.

  my $user_table_info = $dbi->get_table_info(exclude => qr/^system/);
  $dbi->user_table_info($user_table_info);

If C is set, C use C
to find table info.

=head1 METHODS

L inherits all methods from L
and use all methods of L
and implements the following new ones.

=head2 available_datatype

  print $dbi->available_datatype;

Get available data types. You can use these data types
in C's C and C section.

=head2 available_typename

  print $dbi->available_typename;

Get available type names. You can use these type names in
C's C and C section.

=head2 assign_clause

  my $assign_clause = $dbi->assign_clause({title => 'a', age => 2});

Create assign clause

  title = :title, author = :author

This is used to create update clause.

  "update book set " . $dbi->assign_clause({title => 'a', age => 2});

=head2 column

  my $column = $dbi->column(book => ['author', 'title']);

Create column clause. The following column clause is created.

  book.author as "book.author",
  book.title as "book.title"

You can change separator by C attribute.

  # Separator is hyphen
  $dbi->separator('-');

  book.author as "book-author",
  book.title as "book-title"

=head2 connect

  # DBI compatible arguments
  my $dbi = DBIx::Custom->connect(
    "dbi:mysql:database=dbname",
    'ken',
    '!LFKD%$&',
    {mysql_enable_utf8 => 1}
  );

  # pass DBIx::Custom attributes
  my $dbi = DBIx::Custom->connect(
    dsn => "dbi:mysql:database=dbname",
    user => 'ken',
    password => '!LFKD%$&',
    option => {mysql_enable_utf8 => 1}
  );

Connect to the database and create a new L object.

L is a wrapper of L.
C and C options are true,
and C option is false by default.

=head2 create_model

  $dbi->create_model('book');
  $dbi->create_model(
    'book',
    join => [
      'inner join company on book.comparny_id = company.id'
    ]
  );
  $dbi->create_model(
    table => 'book',
    join => [
      'inner join company on book.comparny_id = company.id'
    ],
  );

Create L object and initialize model.
Model columns attribute is automatically set.
You can use this model by using C method.

  $dbi->model('book')->select(...);

You can use model name which different from table name

  $dbi->create_model(name => 'book1', table => 'book');
  $dbi->model('book1')->select(...);

=head2 dbh

  my $dbh = $dbi->dbh;

Get L database handle. if C is set, you can get
database handle through C object.

=head2 delete

  $dbi->delete(table => 'book', where => {title => 'Perl'});

Execute delete statement.

The following options are available.

B

C method use all of C method's options,
and use the following new ones.

=over 4

=item prefix

  prefix => 'some'

prefix before table name section.

  delete some from book

=item table

  table => 'book'

Table name.

=item where

Same as C method's C option.

=back

=head2 delete_all

  $dbi->delete_all(table => $table);

Execute delete statement for all rows.
Options is same as C.

=head2 each_column

  $dbi->each_column(
    sub {
      my ($dbi, $table, $column, $column_info) = @_;

      my $type = $column_info->{TYPE_NAME};

      if ($type eq 'DATE') {
          # ...
      }
    }
  );

Iterate all column informations in database.
Argument is callback which is executed when one column is found.
Callback receive four arguments. C, C, 




2033




 





 





 





 





 





 



 C, and C. 




2034




 





 





 





 





 





 



   




2035




 





 





 





 





 





 



 If C is set, C method use C 




2036




 





 





 





 





 





 



 information, you can improve the performance of C in 




2037




 





 





 





 





 





 



 the following way. 




2038




 





 





 





 





 





 



   




2039




 





 





 





 





 





 



   my $column_infos = $dbi->get_column_info(exclude_table => qr/^system_/); 




2040




 





 





 





 





 





 



   $dbi->user_column_info($column_info); 




2041




 





 





 





 





 





 



   $dbi->each_column(sub { ... }); 




2042




 





 





 





 





 





 



   




2043




 





 





 





 





 





 



 =head2 each_table 




2044




 





 





 





 





 





 



   




2045




 





 





 





 





 





 



   $dbi->each_table( 




2046




 





 





 





 





 





 



     sub { 




2047




 





 





 





 





 





 



       my ($dbi, $table, $table_info) = @_; 




2048




 





 





 





 





 





 



        




2049




 





 





 





 





 





 



       my $table_name = $table_info->{TABLE_NAME}; 




2050




 





 





 





 





 





 



     } 




2051




 





 





 





 





 





 



   ); 




2052




 





 





 





 





 





 



   




2053




 





 





 





 





 





 



 Iterate all table information from in database. 




2054




 





 





 





 





 





 



 Argument is callback which is executed when one table is found. 




2055




 





 





 





 





 





 



 Callback receive three arguments, C, C, 




2056




 





 





 





 





 





 



 C. 




2057




 





 





 





 





 





 



   




2058




 





 





 





 





 





 



 If C is set, C method use C 




2059




 





 





 





 





 





 



 information, you can improve the performance of C in 




2060




 





 





 





 





 





 



 the following way. 




2061




 





 





 





 





 





 



   




2062




 





 





 





 





 





 



   my $table_infos = $dbi->get_table_info(exclude => qr/^system_/); 




2063




 





 





 





 





 





 



   $dbi->user_table_info($table_info); 




2064




 





 





 





 





 





 



   $dbi->each_table(sub { ... }); 




2065




 





 





 





 





 





 



   




2066




 





 





 





 





 





 



 =head2 execute 




2067




 





 





 





 





 





 



   




2068




 





 





 





 





 





 



   my $result = $dbi->execute( 




2069




 





 





 





 





 





 



     "select * from book where title = :title and author like :author", 




2070




 





 





 





 





 





 



     {title => 'Perl', author => '%Ken%'} 




2071




 





 





 





 





 





 



   ); 




2072




 





 





 





 





 





 



   




2073




 





 





 





 





 





 



   my $result = $dbi->execute( 




2074




 





 





 





 





 





 



     "select * from book where title = :book.title and author like :book.author", 




2075




 





 





 





 





 





 



     {'book.title' => 'Perl', 'book.author' => '%Ken%'} 




2076




 





 





 





 





 





 



   ); 




2077




 





 





 





 





 





 



   




2078




 





 





 





 





 





 



 Execute SQL. SQL can contain column parameter such as :author and :title. 




2079




 





 





 





 





 





 



 You can append table name to column name such as :book.title and :book.author. 




2080




 





 





 





 





 





 



 Second argument is data, embedded into column parameter. 




2081




 





 





 





 





 





 



 Return value is L object when select statement is executed, 




2082




 





 





 





 





 





 



 or the count of affected rows when insert, update, delete statement is executed. 




2083




 





 





 





 





 





 



   




2084




 





 





 





 





 





 



 Named placeholder such as C<:title> is replaced by placeholder C. 




2085




 





 





 





 





 





 



    




2086




 





 





 





 





 





 



   # Original 




2087




 





 





 





 





 





 



   select * from book where title = :title and author like :author 




2088




 





 





 





 





 





 



    




2089




 





 





 





 





 





 



   # Replaced 




2090




 





 





 





 





 





 



   select * from where title = ? and author like ?; 




2091




 





 





 





 





 





 



   




2092




 





 





 





 





 





 



 You can specify operator with named placeholder 




2093




 





 





 





 





 





 



 by C syntax. 




2094




 





 





 





 





 





 



   




2095




 





 





 





 





 





 



   # Original 




2096




 





 





 





 





 





 



   select * from book where :title{=} and :author{like} 




2097




 





 





 





 





 





 



    




2098




 





 





 





 





 





 



   # Replaced 




2099




 





 





 





 





 





 



   select * from where title = ? and author like ?; 




2100




 





 





 





 





 





 



   




2101




 





 





 





 





 





 



 Note that colons in time format such as 12:13:15 is an exception, 




2102




 





 





 





 





 





 



 it is not parsed as named placeholder. 




2103




 





 





 





 





 





 



 If you want to use colon generally, you must escape it by C<\\> 




2104




 





 





 





 





 





 



   




2105




 





 





 





 





 





 



   select * from where title = "aa\\:bb"; 




2106




 





 





 





 





 





 



   




2107




 





 





 





 





 





 



 B 




2108




 





 





 





 





 





 



   




2109




 





 





 





 





 





 



 The following options are available. 




2110




 





 





 





 





 





 



   




2111




 





 





 





 





 





 



 =over 4 




2112




 





 





 





 





 





 



   




2113




 





 





 





 





 





 



 =item after_build_sql  




2114




 





 





 





 





 





 



   




2115




 





 





 





 





 





 



 You can filter sql after the sql is build. 




2116




 





 





 





 





 





 



   




2117




 





 





 





 





 





 



   after_build_sql => $code_ref 




2118




 





 





 





 





 





 



   




2119




 





 





 





 





 





 



 The following one is one example. 




2120




 





 





 





 





 





 



   




2121




 





 





 





 





 





 



   $dbi->select( 




2122




 





 





 





 





 





 



     table => 'book', 




2123




 





 





 





 





 





 



     column => 'distinct(name)', 




2124




 





 





 





 





 





 



     after_build_sql => sub { 




2125




 





 





 





 





 





 



       "select count(*) from ($_[0]) as t1" 




2126




 





 





 





 





 





 



     } 




2127




 





 





 





 





 





 



   ); 




2128




 





 





 





 





 





 



   




2129




 





 





 





 





 





 



 The following SQL is executed. 




2130




 





 





 





 





 





 



   




2131




 





 





 





 





 





 



   select count(*) from (select distinct(name) from book) as t1; 




2132




 





 





 





 





 





 



   




2133




 





 





 





 





 





 



 =item append 




2134




 





 





 





 





 





 



   




2135




 





 





 





 





 





 



   append => 'order by name' 




2136




 





 





 





 





 





 



   




2137




 





 





 





 





 





 



 Append some statement after SQL. 




2138




 





 





 





 





 





 



   




2139




 





 





 





 





 





 



 =item bind_type 




2140




 





 





 





 





 





 



   




2141




 





 





 





 





 





 



 Specify database bind data type. 




2142




 





 





 





 





 





 



    




2143




 





 





 





 





 





 



   bind_type => {image => DBI::SQL_BLOB} 




2144




 





 





 





 





 





 



   bind_type => [image => DBI::SQL_BLOB] 




2145




 





 





 





 





 





 



   bind_type => [[qw/image audio/] => DBI::SQL_BLOB] 




2146




 





 





 





 





 





 



   




2147




 





 





 





 





 





 



 This is used to bind parameter by C of statement handle. 




2148




 





 





 





 





 





 



   




2149




 





 





 





 





 





 



   $sth->bind_param($pos, $value, DBI::SQL_BLOB); 




2150




 





 





 





 





 





 



   




2151




 





 





 





 





 





 



 =item filter 




2152




 





 





 





 





 





 



    




2153




 





 





 





 





 





 



   filter => { 




2154




 





 





 





 





 





 



     title  => sub { uc $_[0] } 




2155




 





 





 





 





 





 



     author => sub { uc $_[0] } 




2156




 





 





 





 





 





 



   } 




2157




 





 





 





 





 





 



   




2158




 





 





 





 





 





 



   # Filter name 




2159




 





 





 





 





 





 



   filter => { 




2160




 





 





 





 





 





 



     title  => 'upper_case', 




2161




 





 





 





 





 





 



     author => 'upper_case' 




2162




 





 





 





 





 





 



   } 




2163




 





 





 





 





 





 



        




2164




 





 





 





 





 





 



   # At once 




2165




 





 





 





 





 





 



   filter => [ 




2166




 





 





 





 





 





 



     [qw/title author/]  => sub { uc $_[0] } 




2167




 





 





 





 





 





 



   ] 




2168




 





 





 





 





 





 



   




2169




 





 





 





 





 





 



 Filter. You can set subroutine or filter name 




2170




 





 





 





 





 





 



 registered by C. 




2171




 





 





 





 





 





 



 This filter is executed before data is saved into database. 




2172




 





 





 





 





 





 



 and before type rule filter is executed. 




2173




 





 





 





 





 





 



   




2174




 





 





 





 





 





 



 =item reuse 




2175




 





 





 





 





 





 



    




2176




 





 





 





 





 





 



   reuse => $hash_ref 




2177




 





 





 





 





 





 



   




2178




 





 





 





 





 





 



 Reuse statement handle in same SQL. 




2179




 





 





 





 





 





 



    




2180




 





 





 





 





 





 



   my $reuse = {}; 




2181




 





 





 





 





 





 



   $dbi->execute($sql, $param, reuse => $reuse); 




2182




 





 





 





 





 





 



   




2183




 





 





 





 





 





 



 This will improved performance when you want to execute same sql repeatedly. 




2184




 





 





 





 





 





 



   




2185




 





 





 





 





 





 



 =item table 




2186




 





 





 





 





 





 



    




2187




 





 





 





 





 





 



   table => 'author' 




2188




 





 





 





 





 





 



   




2189




 





 





 





 





 





 



 If you want to omit table name in column name 




2190




 





 





 





 





 





 



 and enable C and C type filter, 




2191




 





 





 





 





 





 



 You must set C option. 




2192




 





 





 





 





 





 



   




2193




 





 





 





 





 





 



   $dbi->execute("select * from book where title = :title and author = :author", 




2194




 





 





 





 





 





 



     {title => 'Perl', author => 'Ken', table => 'book'); 




2195




 





 





 





 





 





 



   




2196




 





 





 





 





 





 



   # Same 




2197




 





 





 





 





 





 



   $dbi->execute( 




2198




 





 





 





 





 





 



     "select * from book where title = :book.title and author = :book.author", 




2199




 





 





 





 





 





 



     {title => 'Perl', author => 'Ken'); 




2200




 





 





 





 





 





 



   




2201




 





 





 





 





 





 



 =item table_alias 




2202




 





 





 





 





 





 



   




2203




 





 





 





 





 





 



   table_alias => {worker => 'user'} # {ALIAS => TABLE} 




2204




 





 





 





 





 





 



   




2205




 





 





 





 





 





 



 Table alias. Key is alias table name, value is real table name, . 




2206




 





 





 





 





 





 



 If you set C, you can enable C and C type rule 




2207




 





 





 





 





 





 



 on alias table name. 




2208




 





 





 





 





 





 



   




2209




 





 





 





 





 





 



 =item type_rule_off 




2210




 





 





 





 





 





 



   




2211




 





 





 





 





 





 



   type_rule_off => 1 




2212




 





 





 





 





 





 



   




2213




 





 





 





 





 





 



 Turn C and C type rule off. 




2214




 





 





 





 





 





 



   




2215




 





 





 





 





 





 



 =item type_rule1_off 




2216




 





 





 





 





 





 



   




2217




 





 





 





 





 





 



   type_rule1_off => 1 




2218




 





 





 





 





 





 



   




2219




 





 





 





 





 





 



 Turn C type rule off. 




2220




 





 





 





 





 





 



   




2221




 





 





 





 





 





 



 =item type_rule2_off 




2222




 





 





 





 





 





 



   




2223




 





 





 





 





 





 



   type_rule2_off => 1 




2224




 





 





 





 





 





 



   




2225




 





 





 





 





 





 



 Turn C type rule off. 




2226




 





 





 





 





 





 



   




2227




 





 





 





 





 





 



 =item prepare_attr 




2228




 





 





 





 





 





 



   




2229




 





 





 





 





 





 



   prepare_attr => {mysql_use_result => 1} 




2230




 





 





 





 





 





 



   




2231




 





 





 





 





 





 



 Statemend handle attributes, 




2232




 





 





 





 





 





 



 this is L's C method second argument. 




2233




 





 





 





 





 





 



   




2234




 





 





 





 





 





 



 =head2 get_column_info 




2235




 





 





 





 





 





 



   




2236




 





 





 





 





 





 



   my $column_infos = $dbi->get_column_info(exclude_table => qr/^system_/); 




2237




 





 





 





 





 





 



   




2238




 





 





 





 





 





 



 get column information except for one which match C pattern. 




2239




 





 





 





 





 





 



   




2240




 





 





 





 





 





 



   [ 




2241




 





 





 





 





 





 



     {table => 'book', column => 'title', info => {...}}, 




2242




 





 





 





 





 





 



     {table => 'author', column => 'name' info => {...}} 




2243




 





 





 





 





 





 



   ] 




2244




 





 





 





 





 





 



   




2245




 





 





 





 





 





 



 =head2 get_table_info 




2246




 





 





 





 





 





 



   




2247




 





 





 





 





 





 



   my $table_infos = $dbi->get_table_info(exclude => qr/^system_/); 




2248




 





 





 





 





 





 



   




2249




 





 





 





 





 





 



 get table information except for one which match C pattern. 




2250




 





 





 





 





 





 



   




2251




 





 





 





 





 





 



   [ 




2252




 





 





 





 





 





 



     {table => 'book', info => {...}}, 




2253




 





 





 





 





 





 



     {table => 'author', info => {...}} 




2254




 





 





 





 





 





 



   ] 




2255




 





 





 





 





 





 



   




2256




 





 





 





 





 





 



 You can set this value to C. 




2257




 





 





 





 





 





 



   




2258




 





 





 





 





 





 



 =head2 insert 




2259




 





 





 





 





 





 



   




2260




 





 





 





 





 





 



   $dbi->insert({title => 'Perl', author => 'Ken'}, table  => 'book'); 




2261




 





 





 





 





 





 



   




2262




 





 





 





 





 





 



 Execute insert statement. First argument is row data. Return value is 




2263




 





 





 





 





 





 



 affected row count. 




2264




 





 





 





 





 





 



   




2265




 





 





 





 





 





 



 If you want to set constant value to row data, use scalar reference 




2266




 





 





 





 





 





 



 as parameter value. 




2267




 





 





 





 





 





 



   




2268




 





 





 





 





 





 



   {date => \"NOW()"} 




2269




 





 





 





 





 





 



   




2270




 





 





 





 





 





 



 You can pass multiple parameters, this is very fast. 




2271




 





 





 





 





 





 



   




2272




 





 





 





 





 





 



   $dbi->insert( 




2273




 





 





 





 





 





 



     [ 




2274




 





 





 





 





 





 



       {title => 'Perl', author => 'Ken'}, 




2275




 





 





 





 





 





 



       {title => 'Ruby', author => 'Tom'} 




2276




 





 





 





 





 





 



     ], 




2277




 





 





 





 





 





 



     table  => 'book' 




2278




 





 





 





 





 





 



   ); 




2279




 





 





 





 





 





 



   




2280




 





 





 





 





 





 



 In multiple insert, you can't use C option. 




2281




 





 





 





 





 





 



 and only first parameter is used to create sql. 




2282




 





 





 





 





 





 



   




2283




 





 





 





 





 





 



 B 




2284




 





 





 





 





 





 



   




2285




 





 





 





 





 





 



 C method use all of C method's options, 




2286




 





 





 





 





 





 



 and use the following new ones. 




2287




 





 





 





 





 





 



   




2288




 





 





 





 





 





 



 =over 4 




2289




 





 





 





 





 





 



   




2290




 





 





 





 





 





 



 =item bulk_insert 




2291




 





 





 





 





 





 



   




2292




 





 





 





 





 





 



   bulk_insert => 1 




2293




 





 





 





 





 





 



   




2294




 





 





 





 





 





 



 bulk insert is executed if database support bulk insert and  




2295




 





 





 





 





 





 



 multiple parameters is passed to C. 




2296




 





 





 





 





 





 



 The SQL like the following one is executed. 




2297




 





 





 





 





 





 



   




2298




 





 





 





 





 





 



   insert into book (id, title) values (?, ?), (?, ?); 




2299




 





 





 





 





 





 



   




2300




 





 





 





 





 





 



 =item ctime 




2301




 





 





 





 





 





 



   




2302




 





 





 





 





 





 



   ctime => 'created_time' 




2303




 





 





 





 





 





 



   




2304




 





 





 





 





 





 



 Created time column name. time when row is created is set to the column. 




2305




 





 





 





 





 





 



 default time format is "YYYY-mm-dd HH:MM:SS", which can be changed by 




2306




 





 





 





 





 





 



 C attribute. 




2307




 





 





 





 





 





 



   




2308




 





 





 





 





 





 



 =item prefix 




2309




 





 





 





 





 





 



   




2310




 





 





 





 





 





 



   prefix => 'or replace' 




2311




 





 





 





 





 





 



   




2312




 





 





 





 





 





 



 prefix before table name section 




2313




 





 





 





 





 





 



   




2314




 





 





 





 





 





 



   insert or replace into book 




2315




 





 





 





 





 





 



   




2316




 





 





 





 





 





 



 =item table 




2317




 





 





 





 





 





 



   




2318




 





 





 





 





 





 



   table => 'book' 




2319




 





 





 





 





 





 



   




2320




 





 





 





 





 





 



 Table name. 




2321




 





 





 





 





 





 



   




2322




 





 





 





 





 





 



 =item mtime 




2323




 





 





 





 





 





 



   




2324




 





 





 





 





 





 



 This option is same as C method C option. 




2325




 





 





 





 





 





 



   




2326




 





 





 





 





 





 



 =item wrap 




2327




 





 





 





 





 





 



   




2328




 





 





 





 





 





 



   wrap => {price => sub { "max($_[0])" }} 




2329




 





 





 





 





 





 



   




2330




 





 





 





 





 





 



 placeholder wrapped string. 




2331




 





 





 





 





 





 



   




2332




 





 





 





 





 





 



 If the following statement 




2333




 





 





 





 





 





 



   




2334




 





 





 





 





 





 



   $dbi->insert({price => 100}, table => 'book', 




2335




 





 





 





 





 





 



     {price => sub { "$_[0] + 5" }}); 




2336




 





 





 





 





 





 



   




2337




 





 





 





 





 





 



 is executed, the following SQL is executed. 




2338




 





 





 





 





 





 



   




2339




 





 





 





 





 





 



   insert into book price values ( ? + 5 ); 




2340




 





 





 





 





 





 



   




2341




 





 





 





 





 





 



 =back 




2342




 





 





 





 





 





 



   




2343




 





 





 





 





 





 



 =over 4 




2344




 





 





 





 





 





 



   




2345




 





 





 





 





 





 



 =head2 include_model 




2346




 





 





 





 





 





 



   




2347




 





 





 





 





 





 



   $dbi->include_model('MyModel'); 




2348




 





 





 





 





 





 



   




2349




 





 





 





 





 





 



 Include models from specified namespace, 




2350




 





 





 





 





 





 



 the following layout is needed to include models. 




2351




 





 





 





 





 





 



   




2352




 





 





 





 





 





 



   lib / MyModel.pm 




2353




 





 





 





 





 





 



       / MyModel / book.pm 




2354




 





 





 





 





 





 



                 / company.pm 




2355




 





 





 





 





 





 



   




2356




 





 





 





 





 





 



 Name space module, extending L. 




2357




 





 





 





 





 





 



   




2358




 





 





 





 





 





 



 B 




2359




 





 





 





 





 





 



   




2360




 





 





 





 





 





 



   package MyModel; 




2361




 





 





 





 





 





 



   use DBIx::Custom::Model -base; 




2362




 





 





 





 





 





 



    




2363




 





 





 





 





 





 



   1; 




2364




 





 





 





 





 





 



   




2365




 





 





 





 





 





 



 Model modules, extending name space module. 




2366




 





 





 





 





 





 



   




2367




 





 





 





 





 





 



 B 




2368




 





 





 





 





 





 



   




2369




 





 





 





 





 





 



   package MyModel::book; 




2370




 





 





 





 





 





 



   use MyModel -base; 




2371




 





 





 





 





 





 



    




2372




 





 





 





 





 





 



   1; 




2373




 





 





 





 





 





 



   




2374




 





 





 





 





 





 



 B 




2375




 





 





 





 





 





 



   




2376




 





 





 





 





 





 



   package MyModel::company; 




2377




 





 





 





 





 





 



   use MyModel -base; 




2378




 





 





 





 





 





 



    




2379




 





 





 





 





 





 



   1; 




2380




 





 





 





 





 





 



    




2381




 





 





 





 





 





 



 MyModel::book and MyModel::company is included by C. 




2382




 





 





 





 





 





 



   




2383




 





 





 





 





 





 



 You can get model object by C. 




2384




 





 





 





 





 





 



   




2385




 





 





 





 





 





 



   my $book_model = $dbi->model('book'); 




2386




 





 





 





 





 





 



   my $company_model = $dbi->model('company'); 




2387




 





 





 





 





 





 



   




2388




 





 





 





 





 





 



 You can include full-qualified table name like C 




2389




 





 





 





 





 





 



   




2390




 





 





 





 





 





 



   lib / MyModel.pm 




2391




 





 





 





 





 





 



       / MyModel / main / book.pm 




2392




 





 





 





 





 





 



                        / company.pm 




2393




 





 





 





 





 





 



   




2394




 





 





 





 





 





 



   my $main_book = $self->model('main.book'); 




2395




 





 





 





 





 





 



   




2396




 





 





 





 





 





 



 See L to know model features. 




2397




 





 





 





 





 





 



   




2398




 





 





 





 





 





 



 =head2 like_value 




2399




 





 





 





 





 





 



   




2400




 





 





 





 





 





 



   my $like_value = $dbi->like_value 




2401




 





 





 





 





 





 



   




2402




 





 





 





 





 





 



 Code reference which return a value for the like value. 




2403




 





 





 





 





 





 



   




2404




 





 





 





 





 





 



   sub { "%$_[0]%" } 




2405




 





 





 





 





 





 



   




2406




 





 





 





 





 





 



 =head2 mapper 




2407




 





 





 





 





 





 



   




2408




 





 





 





 





 





 



   my $mapper = $dbi->mapper(param => $param); 




2409




 





 





 





 





 





 



   




2410




 





 





 





 





 





 



 Create a new L object. 




2411




 





 





 





 





 





 



   




2412




 





 





 





 





 





 



 =head2 merge_param 




2413




 





 





 





 





 





 



   




2414




 





 





 





 





 





 



   my $param = $dbi->merge_param({key1 => 1}, {key1 => 1, key2 => 2}); 




2415




 





 





 





 





 





 



   




2416




 





 





 





 





 





 



 Merge parameters. The following new parameter is created. 




2417




 





 





 





 





 





 



   




2418




 





 





 





 





 





 



   {key1 => [1, 1], key2 => 2} 




2419




 





 





 





 





 





 



   




2420




 





 





 





 





 





 



 If same keys contains, the value is converted to array reference. 




2421




 





 





 





 





 





 



   




2422




 





 





 





 





 





 



 =head2 model 




2423




 





 





 





 





 





 



   




2424




 





 





 





 





 





 



   my $model = $dbi->model('book'); 




2425




 





 





 





 





 





 



   




2426




 





 





 





 





 





 



 Get a L object 




2427




 





 





 





 





 





 



 create by C or C 




2428




 





 





 





 





 





 



   




2429




 





 





 





 





 





 



 =head2 mycolumn 




2430




 





 





 





 





 





 



   




2431




 





 





 





 





 





 



   my $column = $dbi->mycolumn(book => ['author', 'title']); 




2432




 





 





 





 





 





 



   




2433




 





 





 





 





 





 



 Create column clause for myself. The following column clause is created. 




2434




 





 





 





 





 





 



   




2435




 





 





 





 





 





 



   book.author as author, 




2436




 





 





 





 





 





 



   book.title as title 




2437




 





 





 





 





 





 



   




2438




 





 





 





 





 





 



 =head2 new 




2439




 





 





 





 





 





 



   




2440




 





 





 





 





 





 



   my $dbi = DBIx::Custom->new( 




2441




 





 





 





 





 





 



     dsn => "dbi:mysql:database=dbname", 




2442




 





 





 





 





 





 



     user => 'ken', 




2443




 





 





 





 





 





 



     password => '!LFKD%$&', 




2444




 





 





 





 





 





 



     option => {mysql_enable_utf8 => 1} 




2445




 





 





 





 





 





 



   ); 




2446




 





 





 





 





 





 



   




2447




 





 





 





 





 





 



 Create a new L object. 




2448




 





 





 





 





 





 



   




2449




 





 





 





 





 





 



 =head2 not_exists 




2450




 





 





 





 





 





 



   




2451




 





 





 





 





 





 



   my $not_exists = $dbi->not_exists; 




2452




 





 





 





 





 





 



   




2453




 





 





 





 





 





 



 DBIx::Custom::NotExists object, indicating the column is not exists. 




2454




 





 





 





 





 





 



 This is used in C of L . 




2455




 





 





 





 





 





 



   




2456




 





 





 





 





 





 



 =head2 order 




2457




 





 





 





 





 





 



   




2458




 





 





 





 





 





 



   my $order = $dbi->order; 




2459




 





 





 





 





 





 



   




2460




 





 





 





 





 





 



 Create a new L object. 




2461




 





 





 





 





 





 



   




2462




 





 





 





 





 





 



 =head2 q 




2463




 





 





 





 





 





 



   




2464




 





 





 





 





 





 



   my $quooted = $dbi->q("title"); 




2465




 





 





 





 





 





 



   




2466




 





 





 





 





 





 



 Quote string by value of C. 




2467




 





 





 





 





 





 



   




2468




 





 





 





 





 





 



 =head2 register_filter 




2469




 





 





 





 





 





 



   




2470




 





 





 





 





 





 



   $dbi->register_filter( 




2471




 





 





 





 





 





 



     # Time::Piece object to database DATE format 




2472




 





 





 





 





 





 



     tp_to_date => sub { 




2473




 





 





 





 





 





 



       my $tp = shift; 




2474




 





 





 





 





 





 



       return $tp->strftime('%Y-%m-%d'); 




2475




 





 





 





 





 





 



     }, 




2476




 





 





 





 





 





 



     # database DATE format to Time::Piece object 




2477




 





 





 





 





 





 



     date_to_tp => sub { 




2478




 





 





 





 





 





 



       my $date = shift; 




2479




 





 





 





 





 





 



       return Time::Piece->strptime($date, '%Y-%m-%d'); 




2480




 





 





 





 





 





 



     } 




2481




 





 





 





 





 





 



   ); 




2482




 





 





 





 





 





 



    




2483




 





 





 





 





 





 



 Register filters, used by C option of many methods. 




2484




 





 





 





 





 





 



   




2485




 





 





 





 





 





 



 =head2 select 




2486




 





 





 





 





 





 



   




2487




 





 





 





 





 





 



   my $result = $dbi->select( 




2488




 





 





 





 





 





 



     column => ['author', 'title'], 




2489




 





 





 





 





 





 



     table  => 'book', 




2490




 





 





 





 





 





 



     where  => {author => 'Ken'}, 




2491




 





 





 





 





 





 



   ); 




2492




 





 





 





 





 





 



    




2493




 





 





 





 





 





 



 Execute select statement. 




2494




 





 





 





 





 





 



   




2495




 





 





 





 





 





 



 You can pass odd number arguments. first argument is C. 




2496




 





 





 





 





 





 



   




2497




 





 





 





 





 





 



   my $result = $dbi->select(['author', 'title'], table => 'book'); 




2498




 





 





 





 





 





 



   




2499




 





 





 





 





 





 



 B 




2500




 





 





 





 





 





 



   




2501




 





 





 





 





 





 



 C method use all of C method's options, 




2502




 





 





 





 





 





 



 and use the following new ones. 




2503




 





 





 





 





 





 



   




2504




 





 





 





 





 





 



 =over 4 




2505




 





 





 





 





 





 



   




2506




 





 





 





 





 





 



 =item column 




2507




 





 





 





 





 





 



    




2508




 





 





 





 





 





 



   column => 'author' 




2509




 





 





 





 





 





 



   column => ['author', 'title'] 




2510




 





 





 





 





 





 



   




2511




 





 





 





 





 





 



 Column clause. 




2512




 





 





 





 





 





 



    




2513




 





 





 





 





 





 



 if C is not specified, '*' is set. 




2514




 





 





 





 





 





 



   




2515




 





 





 





 





 





 



   column => '*' 




2516




 





 





 





 





 





 



   




2517




 





 





 





 





 





 



 You can specify hash of array reference. 




2518




 





 





 





 





 





 



   




2519




 





 





 





 





 





 



   column => [ 




2520




 





 





 





 





 





 



     {book => [qw/author title/]}, 




2521




 





 





 





 





 





 



     {person => [qw/name age/]} 




2522




 





 





 





 





 





 



   ] 




2523




 





 





 





 





 





 



   




2524




 





 





 





 





 





 



 This is expanded to the following one by using C method. 




2525




 





 





 





 





 





 



   




2526




 





 





 





 





 





 



   book.author as "book.author", 




2527




 





 





 





 





 





 



   book.title as "book.title", 




2528




 





 





 





 





 





 



   person.name as "person.name", 




2529




 





 





 





 





 





 



   person.age as "person.age" 




2530




 





 





 





 





 





 



   




2531




 





 





 





 





 





 



 You can specify own column by C<__MY__>. 




2532




 





 





 





 





 





 



   




2533




 





 





 





 





 





 



   column => [ 




2534




 





 





 





 





 





 



     {__MY__ => [qw/author title/]}, 




2535




 





 





 





 





 





 



   ] 




2536




 





 





 





 





 





 



   




2537




 





 





 





 





 





 



 This is expanded to the following one by using C method. 




2538




 





 





 





 





 





 



   




2539




 





 





 





 





 





 



   book.author as "author", 




2540




 





 





 





 





 





 



   book.title as "title", 




2541




 





 





 





 





 





 



   




2542




 





 





 





 





 





 



 C<__MY__> can be changed by C attribute. 




2543




 





 





 





 





 





 



   




2544




 





 





 





 





 





 



 =item param 




2545




 





 





 





 





 





 



   




2546




 





 





 





 





 





 



   param => {'table2.key3' => 5} 




2547




 





 





 





 





 





 



   




2548




 





 





 





 





 





 



 Parameter shown before where clause. 




2549




 





 





 





 





 





 



    




2550




 





 





 





 





 





 



 For example, if you want to contain named placeholder in join clause,  




2551




 





 





 





 





 





 



 you can pass parameter by C option. 




2552




 





 





 





 





 





 



   




2553




 





 





 





 





 





 



   join  => ['inner join (select * from table2 where table2.key3 = :table2.key3)' .  




2554




 





 





 





 





 





 



             ' as table2 on table1.key1 = table2.key1'] 




2555




 





 





 





 





 





 



   




2556




 





 





 





 





 





 



 =item prefix 




2557




 





 





 





 





 





 



   




2558




 





 





 





 





 





 



   prefix => 'SQL_CALC_FOUND_ROWS' 




2559




 





 





 





 





 





 



   




2560




 





 





 





 





 





 



 Prefix of column clause 




2561




 





 





 





 





 





 



   




2562




 





 





 





 





 





 



   select SQL_CALC_FOUND_ROWS title, author from book; 




2563




 





 





 





 





 





 



   




2564




 





 





 





 





 





 



 =item join 




2565




 





 





 





 





 





 



   




2566




 





 





 





 





 





 



   join => [ 




2567




 





 





 





 





 





 



     'left outer join company on book.company_id = company_id', 




2568




 





 





 





 





 





 



     'left outer join location on company.location_id = location.id' 




2569




 





 





 





 





 





 



   ] 




2570




 





 





 





 





 





 



        




2571




 





 





 





 





 





 



 Join clause. If column clause or where clause contain table name like "company.name", 




2572




 





 





 





 





 





 



 join clauses needed when SQL is created is used automatically. 




2573




 





 





 





 





 





 



   




2574




 





 





 





 





 





 



   $dbi->select( 




2575




 





 





 





 





 





 



     table => 'book', 




2576




 





 





 





 





 





 



     column => ['company.location_id as location_id'], 




2577




 





 





 





 





 





 



     where => {'company.name' => 'Orange'}, 




2578




 





 





 





 





 





 



     join => [ 




2579




 





 





 





 





 





 



       'left outer join company on book.company_id = company.id', 




2580




 





 





 





 





 





 



       'left outer join location on company.location_id = location.id' 




2581




 





 





 





 





 





 



     ] 




2582




 





 





 





 





 





 



   ); 




2583




 





 





 





 





 





 



   




2584




 





 





 





 





 





 



 In above select, column and where clause contain "company" table, 




2585




 





 





 





 





 





 



 the following SQL is created 




2586




 





 





 





 





 





 



   




2587




 





 





 





 





 





 



   select company.location_id as location_id 




2588




 





 





 





 





 





 



   from book 




2589




 





 





 





 





 





 



     left outer join company on book.company_id = company.id 




2590




 





 





 





 





 





 



   where company.name = ?; 




2591




 





 





 





 





 





 



   




2592




 





 





 





 





 





 



 You can specify two table by yourself. This is useful when join parser can't parse 




2593




 





 





 





 





 





 



 the join clause correctly. 




2594




 





 





 





 





 





 



   




2595




 





 





 





 





 





 



   $dbi->select( 




2596




 





 





 





 





 





 



     table => 'book', 




2597




 





 





 





 





 





 



     column => ['company.location_id as location_id'], 




2598




 





 





 





 





 





 



     where => {'company.name' => 'Orange'}, 




2599




 





 





 





 





 





 



     join => [ 




2600




 





 





 





 





 





 



       { 




2601




 





 





 





 





 





 



         clause => 'left outer join location on company.location_id = location.id', 




2602




 





 





 





 





 





 



         table => ['company', 'location'] 




2603




 





 





 





 





 





 



       } 




2604




 





 





 





 





 





 



     ] 




2605




 





 





 





 





 





 



   ); 




2606




 





 





 





 





 





 



   




2607




 





 





 





 





 





 



 =item table 




2608




 





 





 





 





 





 



   




2609




 





 





 





 





 





 



   table => 'book' 




2610




 





 





 





 





 





 



   




2611




 





 





 





 





 





 



 Table name. 




2612




 





 





 





 





 





 



   




2613




 





 





 





 





 





 



 =item where 




2614




 





 





 





 





 





 



    




2615




 





 





 





 





 





 



   # (1) Hash reference 




2616




 





 





 





 





 





 



   where => {author => 'Ken', 'title' => ['Perl', 'Ruby']} 




2617




 





 





 





 





 





 



   # -> where author = 'Ken' and title in ('Perl', 'Ruby') 




2618




 





 





 





 





 





 



    




2619




 





 





 





 





 





 



   # (2) DBIx::Custom::Where object 




2620




 





 





 





 





 





 



   where => $dbi->where( 




2621




 





 





 





 





 





 



     clause => ['and', ':author{=}', ':title{like}'], 




2622




 





 





 





 





 





 



     param  => {author => 'Ken', title => '%Perl%'} 




2623




 





 





 





 





 





 



   ) 




2624




 





 





 





 





 





 



   # -> where author = 'Ken' and title like '%Perl%' 




2625




 





 





 





 





 





 



    




2626




 





 





 





 





 





 



   # (3) Array reference[where clause, parameters, join(optional)] 




2627




 





 





 





 





 





 



   where => [ 




2628




 





 





 





 





 





 



     ['and', ':author{=}', ':title{like}'], 




2629




 





 





 





 





 





 



     {author => 'Ken', title => '%Perl%'}, 




2630




 





 





 





 





 





 



     ["left outer join table2 on table1.key1 = table2.key1"] 




2631




 





 





 





 





 





 



   ] 




2632




 





 





 





 





 





 



   # -> where author = 'Ken' and title like '%Perl%' 




2633




 





 





 





 





 





 



    




2634




 





 





 





 





 





 



   # (4) Array reference[String, Hash reference] 




2635




 





 





 





 





 





 



   where => [ 




2636




 





 





 





 





 





 



     ':author{=} and :title{like}', 




2637




 





 





 





 





 





 



     {author => 'Ken', title => '%Perl%'} 




2638




 





 





 





 





 





 



   ] 




2639




 





 





 





 





 





 



   #  -> where author = 'Ken' and title like '%Perl%' 




2640




 





 





 





 





 





 



    




2641




 





 





 





 





 





 



   # (5) String 




2642




 





 





 





 





 





 



   where => 'title is null' 




2643




 





 





 





 





 





 



   #  -> where title is null 




2644




 





 





 





 





 





 



   




2645




 





 





 





 





 





 



 Where clause. 




2646




 





 





 





 





 





 



 See also L to know how to create where clause. 




2647




 





 





 





 





 





 



    




2648




 





 





 





 





 





 



 =back 




2649




 





 





 





 





 





 



   




2650




 





 





 





 





 





 



 =head2 type_rule 




2651




 





 





 





 





 





 



   




2652




 





 





 





 





 





 



   $dbi->type_rule( 




2653




 





 





 





 





 





 



     into1 => { 




2654




 





 





 





 





 





 



       date => sub { ... }, 




2655




 





 





 





 





 





 



       datetime => sub { ... } 




2656




 





 





 





 





 





 



     }, 




2657




 





 





 





 





 





 



     into2 => { 




2658




 





 





 





 





 





 



       date => sub { ... }, 




2659




 





 





 





 





 





 



       datetime => sub { ... } 




2660




 





 





 





 





 





 



     }, 




2661




 





 





 





 





 





 



     from1 => { 




2662




 





 





 





 





 





 



       # DATE 




2663




 





 





 





 





 





 



       9 => sub { ... }, 




2664




 





 





 





 





 





 



       # DATETIME or TIMESTAMP 




2665




 





 





 





 





 





 



       11 => sub { ... }, 




2666




 





 





 





 





 





 



     } 




2667




 





 





 





 





 





 



     from2 => { 




2668




 





 





 





 





 





 



       # DATE 




2669




 





 





 





 





 





 



       9 => sub { ... }, 




2670




 





 





 





 





 





 



       # DATETIME or TIMESTAMP 




2671




 





 





 





 





 





 



       11 => sub { ... }, 




2672




 





 





 





 





 





 



     } 




2673




 





 





 





 





 





 



   ); 




2674




 





 





 





 





 





 



   




2675




 





 





 





 





 





 



 Filtering rule when data is send into and get from database. 




2676




 





 





 





 





 





 



 This has a little complex problem. 




2677




 





 





 





 





 





 



   




2678




 





 





 





 





 





 



 In C and C you can specify 




2679




 





 





 





 





 





 



 type name as same as type name defined 




2680




 





 





 





 





 





 



 by create table, such as C or C. 




2681




 





 





 





 





 





 



   




2682




 





 





 





 





 





 



 Note that type name and data type don't contain upper case. 




2683




 





 





 





 





 





 



 If these contain upper case character, you convert it to lower case. 




2684




 





 





 





 





 





 



   




2685




 





 





 





 





 





 



 C is executed after C. 




2686




 





 





 





 





 





 



   




2687




 





 





 





 





 





 



 Type rule of C and C is enabled on the following 




2688




 





 





 





 





 





 



 column name. 




2689




 





 





 





 





 





 



   




2690




 





 





 





 





 





 



 =over 4 




2691




 





 





 





 





 





 



   




2692




 





 





 





 





 





 



 =item 1. column name 




2693




 





 





 





 





 





 



   




2694




 





 





 





 





 





 



   issue_date 




2695




 





 





 





 





 





 



   issue_datetime 




2696




 





 





 





 





 





 



   




2697




 





 





 





 





 





 



 This need C option in each method. 




2698




 





 





 





 





 





 



   




2699




 





 





 





 





 





 



 =item 2. table name and column name, separator is dot 




2700




 





 





 





 





 





 



   




2701




 





 





 





 





 





 



   book.issue_date 




2702




 





 





 





 





 





 



   book.issue_datetime 




2703




 





 





 





 





 





 



   




2704




 





 





 





 





 





 



 =back 




2705




 





 





 





 





 





 



   




2706




 





 





 





 





 





 



 You get all type name used in database by C. 




2707




 





 





 





 





 





 



   




2708




 





 





 





 





 





 



   print $dbi->available_typename; 




2709




 





 





 





 





 





 



   




2710




 





 





 





 





 





 



 In C and C you specify data type, not type name. 




2711




 





 





 





 





 





 



 C is executed after C. 




2712




 





 





 





 





 





 



 You get all data type by C. 




2713




 





 





 





 





 





 



   




2714




 





 





 





 





 





 



   print $dbi->available_datatype; 




2715




 





 





 





 





 





 



   




2716




 





 





 





 





 





 



 You can also specify multiple types at once. 




2717




 





 





 





 





 





 



   




2718




 





 





 





 





 





 



   $dbi->type_rule( 




2719




 





 





 





 





 





 



     into1 => [ 




2720




 





 





 





 





 





 



       [qw/DATE DATETIME/] => sub { ... }, 




2721




 





 





 





 





 





 



     ], 




2722




 





 





 





 





 





 



   ); 




2723




 





 





 





 





 





 



   




2724




 





 





 





 





 





 



 =head2 update 




2725




 





 





 





 





 





 



   




2726




 





 





 





 





 





 



   $dbi->update({title => 'Perl'}, table  => 'book', where  => {id => 4}); 




2727




 





 





 





 





 





 



   




2728




 





 





 





 





 





 



 Execute update statement. First argument is update row data. 




2729




 





 





 





 





 





 



   




2730




 





 





 





 





 





 



 If you want to set constant value to row data, use scalar reference 




2731




 





 





 





 





 





 



 as parameter value. 




2732




 





 





 





 





 





 



   




2733




 





 





 





 





 





 



   {date => \"NOW()"} 




2734




 





 





 





 





 





 



   




2735




 





 





 





 





 





 



 B 




2736




 





 





 





 





 





 



   




2737




 





 





 





 





 





 



 C method use all of C method's options, 




2738




 





 





 





 





 





 



 and use the following new ones. 




2739




 





 





 





 





 





 



   




2740




 





 





 





 





 





 



 =over 4 




2741




 





 





 





 





 





 



   




2742




 





 





 





 





 





 



 =item prefix 




2743




 





 





 





 





 





 



   




2744




 





 





 





 





 





 



   prefix => 'or replace' 




2745




 





 





 





 





 





 



   




2746




 





 





 





 





 





 



 prefix before table name section 




2747




 





 





 





 





 





 



   




2748




 





 





 





 





 





 



   update or replace book 




2749




 





 





 





 





 





 



   




2750




 





 





 





 





 





 



 =item table 




2751




 





 





 





 





 





 



   




2752




 





 





 





 





 





 



   table => 'book' 




2753




 





 





 





 





 





 



   




2754




 





 





 





 





 





 



 Table name. 




2755




 





 





 





 





 





 



   




2756




 





 





 





 





 





 



 =item where 




2757




 





 





 





 





 





 



   




2758




 





 





 





 





 





 



 Same as C method's C option. 




2759




 





 





 





 





 





 



   




2760




 





 





 





 





 





 



 =item wrap 




2761




 





 





 





 





 





 



   




2762




 





 





 





 





 





 



   wrap => {price => sub { "max($_[0])" }} 




2763




 





 





 





 





 





 



   




2764




 





 





 





 





 





 



 placeholder wrapped string. 




2765




 





 





 





 





 





 



   




2766




 





 





 





 





 





 



 If the following statement 




2767




 





 





 





 





 





 



   




2768




 





 





 





 





 





 



   $dbi->update({price => 100}, table => 'book', 




2769




 





 





 





 





 





 



     {price => sub { "$_[0] + 5" }}); 




2770




 





 





 





 





 





 



   




2771




 





 





 





 





 





 



 is executed, the following SQL is executed. 




2772




 





 





 





 





 





 



   




2773




 





 





 





 





 





 



   update book set price =  ? + 5; 




2774




 





 





 





 





 





 



   




2775




 





 





 





 





 





 



 =item mtime 




2776




 





 





 





 





 





 



   




2777




 





 





 





 





 





 



   mtime => 'modified_time' 




2778




 





 





 





 





 





 



   




2779




 





 





 





 





 





 



 Modified time column name. time row is updated is set to the column. 




2780




 





 





 





 





 





 



 default time format is C, which can be changed by 




2781




 





 





 





 





 





 



 C attribute. 




2782




 





 





 





 





 





 



   




2783




 





 





 





 





 





 



 =back 




2784




 





 





 





 





 





 



   




2785




 





 





 





 





 





 



 =head2 update_all 




2786




 





 





 





 





 





 



   




2787




 





 





 





 





 





 



   $dbi->update_all({title => 'Perl'}, table => 'book', ); 




2788




 





 





 





 





 





 



   




2789




 





 





 





 





 





 



 Execute update statement for all rows. 




2790




 





 





 





 





 





 



 Options is same as C method. 




2791




 





 





 





 





 





 



   




2792




 





 





 





 





 





 



 =over 4 




2793




 





 





 





 





 





 



   




2794




 





 





 





 





 





 



 =item option 




2795




 





 





 





 





 





 



   




2796




 





 





 





 





 





 



   option => { 




2797




 





 





 





 





 





 



     select => { 




2798




 





 





 





 





 





 



       append => '...' 




2799




 





 





 





 





 





 



     }, 




2800




 





 





 





 





 





 



     insert => { 




2801




 





 





 





 





 





 



       prefix => '...' 




2802




 





 





 





 





 





 



     }, 




2803




 





 





 





 





 





 



     update => { 




2804




 





 





 





 





 





 



       filter => {} 




2805




 





 





 





 





 





 



     } 




2806




 





 





 





 





 





 



   } 




2807




 





 





 





 





 





 



   




2808




 





 





 





 





 





 



 If you want to pass option to each method, 




2809




 





 





 





 





 





 



 you can use C option. 




2810




 





 





 





 





 





 



   




2811




 





 





 





 





 





 



 =over 4 




2812




 





 





 





 





 





 



   




2813




 





 





 





 





 





 



 =item select_option 




2814




 





 





 





 





 





 



   




2815




 





 





 





 





 





 



   select_option => {append => 'for update'} 




2816




 





 





 





 





 





 



   




2817




 





 





 





 





 





 



 select method option, 




2818




 





 





 





 





 





 



 select method is used to check the row is already exists. 




2819




 





 





 





 





 





 



   




2820




 





 





 





 





 





 



 =head2 show_datatype 




2821




 





 





 





 





 





 



   




2822




 





 





 





 





 





 



   $dbi->show_datatype($table); 




2823




 





 





 





 





 





 



   




2824




 





 





 





 





 





 



 Show data type of the columns of specified table. 




2825




 





 





 





 





 





 



   




2826




 





 





 





 





 





 



   book 




2827




 





 





 





 





 





 



   title: 5 




2828




 





 





 





 





 





 



   issue_date: 91 




2829




 





 





 





 





 





 



   




2830




 





 





 





 





 





 



 This data type is used in C's C and C. 




2831




 





 





 





 





 





 



   




2832




 





 





 





 





 





 



 =head2 show_tables 




2833




 





 





 





 





 





 



   




2834




 





 





 





 





 





 



   $dbi->show_tables; 




2835




 





 





 





 





 





 



   




2836




 





 





 





 





 





 



 Show tables. 




2837




 





 





 





 





 





 



   




2838




 





 





 





 





 





 



 =head2 show_typename 




2839




 





 





 





 





 





 



   




2840




 





 





 





 





 





 



   $dbi->show_typename($table); 




2841




 





 





 





 





 





 



   




2842




 





 





 





 





 





 



 Show type name of the columns of specified table. 




2843




 





 





 





 





 





 



   




2844




 





 





 





 





 





 



   book 




2845




 





 





 





 





 





 



   title: varchar 




2846




 





 





 





 





 





 



   issue_date: date 




2847




 





 





 





 





 





 



   




2848




 





 





 





 





 





 



 This type name is used in C's C and C. 




2849




 





 





 





 





 





 



   




2850




 





 





 





 





 





 



 =head2 values_clause 




2851




 





 





 





 





 





 



   




2852




 





 





 





 





 





 



   my $values_clause = $dbi->values_clause({title => 'a', age => 2}); 




2853




 





 





 





 





 





 



   




2854




 





 





 





 





 





 



 Create values clause. 




2855




 





 





 





 





 





 



   




2856




 





 





 





 





 





 



   (title, author) values (title = :title, age = :age); 




2857




 





 





 





 





 





 



   




2858




 





 





 





 





 





 



 You can use this in insert statement. 




2859




 





 





 





 





 





 



   




2860




 





 





 





 





 





 



   my $insert_sql = "insert into book $values_clause"; 




2861




 





 





 





 





 





 



   




2862




 





 





 





 





 





 



 =head2 where 




2863




 





 





 





 





 





 



   




2864




 





 





 





 





 





 



   my $where = $dbi->where; 




2865




 





 





 





 





 





 



   $where->clause(['and', 'title = :title', 'author = :author']); 




2866




 





 





 





 





 





 



   $where->param({title => 'Perl', author => 'Ken'}); 




2867




 





 





 





 





 





 



   $where->join(['left join author on book.author = author.id]); 




2868




 





 





 





 





 





 



   




2869




 





 





 





 





 





 



 Create a new L object. 




2870




 





 





 





 





 





 



 See L to know how to create where clause. 




2871




 





 





 





 





 





 



   




2872




 





 





 





 





 





 



 =head1 ENVIRONMENTAL VARIABLES 




2873




 





 





 





 





 





 



   




2874




 





 





 





 





 





 



 =head2 DBIX_CUSTOM_DEBUG 




2875




 





 





 





 





 





 



   




2876




 





 





 





 





 





 



 If environment variable C is set to true, 




2877




 





 





 





 





 





 



 executed SQL and bind values are printed to STDERR. 




2878




 





 





 





 





 





 



   




2879




 





 





 





 





 





 



 =head2 DBIX_CUSTOM_DEBUG_ENCODING 




2880




 





 





 





 





 





 



   




2881




 





 





 





 





 





 



 DEBUG output encoding. Default to UTF-8. 




2882




 





 





 





 





 





 



   




2883




 





 





 





 





 





 



 =head2 DBIX_CUSTOM_SUPPRESS_DEPRECATION 




2884




 





 





 





 





 





 



   




2885




 





 





 





 





 





 



   $ENV{DBIX_CUSTOM_SUPPRESS_DEPRECATION} = '0.25'; 




2886




 





 





 





 





 





 



   




2887




 





 





 





 





 





 



 Suppress deprecation warnings before specified version. 




2888




 





 





 





 





 





 



   




2889




 





 





 





 





 





 



 =head1 DEPRECATED FUNCTIONALITY 




2890




 





 





 





 





 





 



   




2891




 





 





 





 





 





 



 L 




2892




 





 





 





 





 





 



   




2893




 





 





 





 





 





 



   # Methods 




2894




 





 





 





 





 





 



   DBIx::Custom AUTOLOAD feature # will be removed at 2022/5/1 




2895




 





 





 





 





 





 



   DBIx::Custom::helper method # will be removed at 2022/5/1 




2896




 





 





 





 





 





 



   DBIx::Custom::update_or_insert method is DEPRECATED! # will be removed at 2022/5/1 




2897




 





 





 





 





 





 



   DBIx::Custom::count method # will be removed at 2022/5/1 




2898




 





 





 





 





 





 



   DBIx::Custom::select,update,delete method's primary_key option is DEPRECATED! # will be removed at 2022/5/1 




2899




 





 





 





 





 





 



   DBIx::Custom::select,update,delete method's id option is DEPRECATED! # will be removed at 2022/5/1 




2900




 





 





 





 





 





 



   DBIx::Custom::setup method is DEPRECATED! # will be removed at 2022/5/1 




2901




 





 





 





 





 





 



   




2902




 





 





 





 





 





 



 L 




2903




 





 





 





 





 





 



    




2904




 





 





 





 





 





 



   # Options 




2905




 





 





 





 





 





 



   kv method's multi option (from 0.28) # will be removed at 2018/3/1 




2906




 





 





 





 





 





 



   




2907




 





 





 





 





 





 



 L 




2908




 





 





 





 





 





 



   




2909




 





 





 





 





 





 



   DBIx::Custom::Model AUTOLOAD feature # will be removed at 2022/5/1 




2910




 





 





 





 





 





 



   DBIx::Custom::Model::helper method is DEPRECATED! # will be removed at 2022/5/1 




2911




 





 





 





 





 





 



   DBIx::Custom::Model::update_or_insert method is DEPRECATED! # will be removed at 2022/5/1 




2912




 





 





 





 





 





 



   DBIx::Custom::Model::count method # will be removed at 2022/5/1 




2913




 





 





 





 





 





 



   DBIx::Custom::Model::primary_key attribute is DEPRECATED! # will be removed at 2022/5/1 




2914




 





 





 





 





 





 



   




2915




 





 





 





 





 





 



 =head1 BACKWARDS COMPATIBILITY POLICY 




2916




 





 





 





 





 





 



   




2917




 





 





 





 





 





 



 If a feature is DEPRECATED, you can know it by DEPRECATED warnings. 




2918




 





 





 





 





 





 



 DEPRECATED feature is removed after C, 




2919




 





 





 





 





 





 



 but if at least one person use the feature and tell me that thing 




2920




 





 





 





 





 





 



 I extend one year each time he tell me it. 




2921




 





 





 





 





 





 



   




2922




 





 





 





 





 





 



 DEPRECATION warnings can be suppressed by C 




2923




 





 





 





 





 





 



 environment variable. 




2924




 





 





 





 





 





 



   




2925




 





 





 





 





 





 



 EXPERIMENTAL features will be changed or deleted without warnings. 




2926




 





 





 





 





 





 



   




2927




 





 





 





 





 





 



 =head1 BUGS 




2928




 





 





 





 





 





 



   




2929




 





 





 





 





 





 



 Please tell me bugs if you find bug. 




2930




 





 





 





 





 





 



   




2931




 





 





 





 





 





 



 C<<  >> 




2932




 





 





 





 





 





 



   




2933




 





 





 





 





 





 



 L 




2934




 





 





 





 





 





 



   




2935




 





 





 





 





 





 



 =head1 AUTHOR 




2936




 





 





 





 





 





 



   




2937




 





 





 





 





 





 



 Yuki Kimoto, C<<  >> 




2938




 





 





 





 





 





 



   




2939




 





 





 





 





 





 



 =head1 COPYRIGHT & LICENSE 




2940




 





 





 





 





 





 



   




2941




 





 





 





 





 





 



 Copyright 2009-2019 Yuki Kimoto, all rights reserved. 




2942




 





 





 





 





 





 



   




2943




 





 





 





 





 





 



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




2944




 





 





 





 





 





 



 under the same terms as Perl itself. 




2945




 





 





 





 





 





 



   




2946




 





 





 





 





 





 



 =cut
C, and C.

If C is set, C method use C
information, you can improve the performance of C in
the following way.

  my $column_infos = $dbi->get_column_info(exclude_table => qr/^system_/);
  $dbi->user_column_info($column_info);
  $dbi->each_column(sub { ... });

=head2 each_table

  $dbi->each_table(
    sub {
      my ($dbi, $table, $table_info) = @_;

      my $table_name = $table_info->{TABLE_NAME};
    }
  );

Iterate all table information from in database.
Argument is callback which is executed when one table is found.
Callback receive three arguments, C, C, 




2056




 





 





 





 





 





 



 C. 




2057




 





 





 





 





 





 



   




2058




 





 





 





 





 





 



 If C is set, C method use C 




2059




 





 





 





 





 





 



 information, you can improve the performance of C in 




2060




 





 





 





 





 





 



 the following way. 




2061




 





 





 





 





 





 



   




2062




 





 





 





 





 





 



   my $table_infos = $dbi->get_table_info(exclude => qr/^system_/); 




2063




 





 





 





 





 





 



   $dbi->user_table_info($table_info); 




2064




 





 





 





 





 





 



   $dbi->each_table(sub { ... }); 




2065




 





 





 





 





 





 



   




2066




 





 





 





 





 





 



 =head2 execute 




2067




 





 





 





 





 





 



   




2068




 





 





 





 





 





 



   my $result = $dbi->execute( 




2069




 





 





 





 





 





 



     "select * from book where title = :title and author like :author", 




2070




 





 





 





 





 





 



     {title => 'Perl', author => '%Ken%'} 




2071




 





 





 





 





 





 



   ); 




2072




 





 





 





 





 





 



   




2073




 





 





 





 





 





 



   my $result = $dbi->execute( 




2074




 





 





 





 





 





 



     "select * from book where title = :book.title and author like :book.author", 




2075




 





 





 





 





 





 



     {'book.title' => 'Perl', 'book.author' => '%Ken%'} 




2076




 





 





 





 





 





 



   ); 




2077




 





 





 





 





 





 



   




2078




 





 





 





 





 





 



 Execute SQL. SQL can contain column parameter such as :author and :title. 




2079




 





 





 





 





 





 



 You can append table name to column name such as :book.title and :book.author. 




2080




 





 





 





 





 





 



 Second argument is data, embedded into column parameter. 




2081




 





 





 





 





 





 



 Return value is L object when select statement is executed, 




2082




 





 





 





 





 





 



 or the count of affected rows when insert, update, delete statement is executed. 




2083




 





 





 





 





 





 



   




2084




 





 





 





 





 





 



 Named placeholder such as C<:title> is replaced by placeholder C. 




2085




 





 





 





 





 





 



    




2086




 





 





 





 





 





 



   # Original 




2087




 





 





 





 





 





 



   select * from book where title = :title and author like :author 




2088




 





 





 





 





 





 



    




2089




 





 





 





 





 





 



   # Replaced 




2090




 





 





 





 





 





 



   select * from where title = ? and author like ?; 




2091




 





 





 





 





 





 



   




2092




 





 





 





 





 





 



 You can specify operator with named placeholder 




2093




 





 





 





 





 





 



 by C syntax. 




2094




 





 





 





 





 





 



   




2095




 





 





 





 





 





 



   # Original 




2096




 





 





 





 





 





 



   select * from book where :title{=} and :author{like} 




2097




 





 





 





 





 





 



    




2098




 





 





 





 





 





 



   # Replaced 




2099




 





 





 





 





 





 



   select * from where title = ? and author like ?; 




2100




 





 





 





 





 





 



   




2101




 





 





 





 





 





 



 Note that colons in time format such as 12:13:15 is an exception, 




2102




 





 





 





 





 





 



 it is not parsed as named placeholder. 




2103




 





 





 





 





 





 



 If you want to use colon generally, you must escape it by C<\\> 




2104




 





 





 





 





 





 



   




2105




 





 





 





 





 





 



   select * from where title = "aa\\:bb"; 




2106




 





 





 





 





 





 



   




2107




 





 





 





 





 





 



 B 




2108




 





 





 





 





 





 



   




2109




 





 





 





 





 





 



 The following options are available. 




2110




 





 





 





 





 





 



   




2111




 





 





 





 





 





 



 =over 4 




2112




 





 





 





 





 





 



   




2113




 





 





 





 





 





 



 =item after_build_sql  




2114




 





 





 





 





 





 



   




2115




 





 





 





 





 





 



 You can filter sql after the sql is build. 




2116




 





 





 





 





 





 



   




2117




 





 





 





 





 





 



   after_build_sql => $code_ref 




2118




 





 





 





 





 





 



   




2119




 





 





 





 





 





 



 The following one is one example. 




2120




 





 





 





 





 





 



   




2121




 





 





 





 





 





 



   $dbi->select( 




2122




 





 





 





 





 





 



     table => 'book', 




2123




 





 





 





 





 





 



     column => 'distinct(name)', 




2124




 





 





 





 





 





 



     after_build_sql => sub { 




2125




 





 





 





 





 





 



       "select count(*) from ($_[0]) as t1" 




2126




 





 





 





 





 





 



     } 




2127




 





 





 





 





 





 



   ); 




2128




 





 





 





 





 





 



   




2129




 





 





 





 





 





 



 The following SQL is executed. 




2130




 





 





 





 





 





 



   




2131




 





 





 





 





 





 



   select count(*) from (select distinct(name) from book) as t1; 




2132




 





 





 





 





 





 



   




2133




 





 





 





 





 





 



 =item append 




2134




 





 





 





 





 





 



   




2135




 





 





 





 





 





 



   append => 'order by name' 




2136




 





 





 





 





 





 



   




2137




 





 





 





 





 





 



 Append some statement after SQL. 




2138




 





 





 





 





 





 



   




2139




 





 





 





 





 





 



 =item bind_type 




2140




 





 





 





 





 





 



   




2141




 





 





 





 





 





 



 Specify database bind data type. 




2142




 





 





 





 





 





 



    




2143




 





 





 





 





 





 



   bind_type => {image => DBI::SQL_BLOB} 




2144




 





 





 





 





 





 



   bind_type => [image => DBI::SQL_BLOB] 




2145




 





 





 





 





 





 



   bind_type => [[qw/image audio/] => DBI::SQL_BLOB] 




2146




 





 





 





 





 





 



   




2147




 





 





 





 





 





 



 This is used to bind parameter by C of statement handle. 




2148




 





 





 





 





 





 



   




2149




 





 





 





 





 





 



   $sth->bind_param($pos, $value, DBI::SQL_BLOB); 




2150




 





 





 





 





 





 



   




2151




 





 





 





 





 





 



 =item filter 




2152




 





 





 





 





 





 



    




2153




 





 





 





 





 





 



   filter => { 




2154




 





 





 





 





 





 



     title  => sub { uc $_[0] } 




2155




 





 





 





 





 





 



     author => sub { uc $_[0] } 




2156




 





 





 





 





 





 



   } 




2157




 





 





 





 





 





 



   




2158




 





 





 





 





 





 



   # Filter name 




2159




 





 





 





 





 





 



   filter => { 




2160




 





 





 





 





 





 



     title  => 'upper_case', 




2161




 





 





 





 





 





 



     author => 'upper_case' 




2162




 





 





 





 





 





 



   } 




2163




 





 





 





 





 





 



        




2164




 





 





 





 





 





 



   # At once 




2165




 





 





 





 





 





 



   filter => [ 




2166




 





 





 





 





 





 



     [qw/title author/]  => sub { uc $_[0] } 




2167




 





 





 





 





 





 



   ] 




2168




 





 





 





 





 





 



   




2169




 





 





 





 





 





 



 Filter. You can set subroutine or filter name 




2170




 





 





 





 





 





 



 registered by C. 




2171




 





 





 





 





 





 



 This filter is executed before data is saved into database. 




2172




 





 





 





 





 





 



 and before type rule filter is executed. 




2173




 





 





 





 





 





 



   




2174




 





 





 





 





 





 



 =item reuse 




2175




 





 





 





 





 





 



    




2176




 





 





 





 





 





 



   reuse => $hash_ref 




2177




 





 





 





 





 





 



   




2178




 





 





 





 





 





 



 Reuse statement handle in same SQL. 




2179




 





 





 





 





 





 



    




2180




 





 





 





 





 





 



   my $reuse = {}; 




2181




 





 





 





 





 





 



   $dbi->execute($sql, $param, reuse => $reuse); 




2182




 





 





 





 





 





 



   




2183




 





 





 





 





 





 



 This will improved performance when you want to execute same sql repeatedly. 




2184




 





 





 





 





 





 



   




2185




 





 





 





 





 





 



 =item table 




2186




 





 





 





 





 





 



    




2187




 





 





 





 





 





 



   table => 'author' 




2188




 





 





 





 





 





 



   




2189




 





 





 





 





 





 



 If you want to omit table name in column name 




2190




 





 





 





 





 





 



 and enable C and C type filter, 




2191




 





 





 





 





 





 



 You must set C option. 




2192




 





 





 





 





 





 



   




2193




 





 





 





 





 





 



   $dbi->execute("select * from book where title = :title and author = :author", 




2194




 





 





 





 





 





 



     {title => 'Perl', author => 'Ken', table => 'book'); 




2195




 





 





 





 





 





 



   




2196




 





 





 





 





 





 



   # Same 




2197




 





 





 





 





 





 



   $dbi->execute( 




2198




 





 





 





 





 





 



     "select * from book where title = :book.title and author = :book.author", 




2199




 





 





 





 





 





 



     {title => 'Perl', author => 'Ken'); 




2200




 





 





 





 





 





 



   




2201




 





 





 





 





 





 



 =item table_alias 




2202




 





 





 





 





 





 



   




2203




 





 





 





 





 





 



   table_alias => {worker => 'user'} # {ALIAS => TABLE} 




2204




 





 





 





 





 





 



   




2205




 





 





 





 





 





 



 Table alias. Key is alias table name, value is real table name, . 




2206




 





 





 





 





 





 



 If you set C, you can enable C and C type rule 




2207




 





 





 





 





 





 



 on alias table name. 




2208




 





 





 





 





 





 



   




2209




 





 





 





 





 





 



 =item type_rule_off 




2210




 





 





 





 





 





 



   




2211




 





 





 





 





 





 



   type_rule_off => 1 




2212




 





 





 





 





 





 



   




2213




 





 





 





 





 





 



 Turn C and C type rule off. 




2214




 





 





 





 





 





 



   




2215




 





 





 





 





 





 



 =item type_rule1_off 




2216




 





 





 





 





 





 



   




2217




 





 





 





 





 





 



   type_rule1_off => 1 




2218




 





 





 





 





 





 



   




2219




 





 





 





 





 





 



 Turn C type rule off. 




2220




 





 





 





 





 





 



   




2221




 





 





 





 





 





 



 =item type_rule2_off 




2222




 





 





 





 





 





 



   




2223




 





 





 





 





 





 



   type_rule2_off => 1 




2224




 





 





 





 





 





 



   




2225




 





 





 





 





 





 



 Turn C type rule off. 




2226




 





 





 





 





 





 



   




2227




 





 





 





 





 





 



 =item prepare_attr 




2228




 





 





 





 





 





 



   




2229




 





 





 





 





 





 



   prepare_attr => {mysql_use_result => 1} 




2230




 





 





 





 





 





 



   




2231




 





 





 





 





 





 



 Statemend handle attributes, 




2232




 





 





 





 





 





 



 this is L's C method second argument. 




2233




 





 





 





 





 





 



   




2234




 





 





 





 





 





 



 =head2 get_column_info 




2235




 





 





 





 





 





 



   




2236




 





 





 





 





 





 



   my $column_infos = $dbi->get_column_info(exclude_table => qr/^system_/); 




2237




 





 





 





 





 





 



   




2238




 





 





 





 





 





 



 get column information except for one which match C pattern. 




2239




 





 





 





 





 





 



   




2240




 





 





 





 





 





 



   [ 




2241




 





 





 





 





 





 



     {table => 'book', column => 'title', info => {...}}, 




2242




 





 





 





 





 





 



     {table => 'author', column => 'name' info => {...}} 




2243




 





 





 





 





 





 



   ] 




2244




 





 





 





 





 





 



   




2245




 





 





 





 





 





 



 =head2 get_table_info 




2246




 





 





 





 





 





 



   




2247




 





 





 





 





 





 



   my $table_infos = $dbi->get_table_info(exclude => qr/^system_/); 




2248




 





 





 





 





 





 



   




2249




 





 





 





 





 





 



 get table information except for one which match C pattern. 




2250




 





 





 





 





 





 



   




2251




 





 





 





 





 





 



   [ 




2252




 





 





 





 





 





 



     {table => 'book', info => {...}}, 




2253




 





 





 





 





 





 



     {table => 'author', info => {...}} 




2254




 





 





 





 





 





 



   ] 




2255




 





 





 





 





 





 



   




2256




 





 





 





 





 





 



 You can set this value to C. 




2257




 





 





 





 





 





 



   




2258




 





 





 





 





 





 



 =head2 insert 




2259




 





 





 





 





 





 



   




2260




 





 





 





 





 





 



   $dbi->insert({title => 'Perl', author => 'Ken'}, table  => 'book'); 




2261




 





 





 





 





 





 



   




2262




 





 





 





 





 





 



 Execute insert statement. First argument is row data. Return value is 




2263




 





 





 





 





 





 



 affected row count. 




2264




 





 





 





 





 





 



   




2265




 





 





 





 





 





 



 If you want to set constant value to row data, use scalar reference 




2266




 





 





 





 





 





 



 as parameter value. 




2267




 





 





 





 





 





 



   




2268




 





 





 





 





 





 



   {date => \"NOW()"} 




2269




 





 





 





 





 





 



   




2270




 





 





 





 





 





 



 You can pass multiple parameters, this is very fast. 




2271




 





 





 





 





 





 



   




2272




 





 





 





 





 





 



   $dbi->insert( 




2273




 





 





 





 





 





 



     [ 




2274




 





 





 





 





 





 



       {title => 'Perl', author => 'Ken'}, 




2275




 





 





 





 





 





 



       {title => 'Ruby', author => 'Tom'} 




2276




 





 





 





 





 





 



     ], 




2277




 





 





 





 





 





 



     table  => 'book' 




2278




 





 





 





 





 





 



   ); 




2279




 





 





 





 





 





 



   




2280




 





 





 





 





 





 



 In multiple insert, you can't use C option. 




2281




 





 





 





 





 





 



 and only first parameter is used to create sql. 




2282




 





 





 





 





 





 



   




2283




 





 





 





 





 





 



 B 




2284




 





 





 





 





 





 



   




2285




 





 





 





 





 





 



 C method use all of C method's options, 




2286




 





 





 





 





 





 



 and use the following new ones. 




2287




 





 





 





 





 





 



   




2288




 





 





 





 





 





 



 =over 4 




2289




 





 





 





 





 





 



   




2290




 





 





 





 





 





 



 =item bulk_insert 




2291




 





 





 





 





 





 



   




2292




 





 





 





 





 





 



   bulk_insert => 1 




2293




 





 





 





 





 





 



   




2294




 





 





 





 





 





 



 bulk insert is executed if database support bulk insert and  




2295




 





 





 





 





 





 



 multiple parameters is passed to C. 




2296




 





 





 





 





 





 



 The SQL like the following one is executed. 




2297




 





 





 





 





 





 



   




2298




 





 





 





 





 





 



   insert into book (id, title) values (?, ?), (?, ?); 




2299




 





 





 





 





 





 



   




2300




 





 





 





 





 





 



 =item ctime 




2301




 





 





 





 





 





 



   




2302




 





 





 





 





 





 



   ctime => 'created_time' 




2303




 





 





 





 





 





 



   




2304




 





 





 





 





 





 



 Created time column name. time when row is created is set to the column. 




2305




 





 





 





 





 





 



 default time format is "YYYY-mm-dd HH:MM:SS", which can be changed by 




2306




 





 





 





 





 





 



 C attribute. 




2307




 





 





 





 





 





 



   




2308




 





 





 





 





 





 



 =item prefix 




2309




 





 





 





 





 





 



   




2310




 





 





 





 





 





 



   prefix => 'or replace' 




2311




 





 





 





 





 





 



   




2312




 





 





 





 





 





 



 prefix before table name section 




2313




 





 





 





 





 





 



   




2314




 





 





 





 





 





 



   insert or replace into book 




2315




 





 





 





 





 





 



   




2316




 





 





 





 





 





 



 =item table 




2317




 





 





 





 





 





 



   




2318




 





 





 





 





 





 



   table => 'book' 




2319




 





 





 





 





 





 



   




2320




 





 





 





 





 





 



 Table name. 




2321




 





 





 





 





 





 



   




2322




 





 





 





 





 





 



 =item mtime 




2323




 





 





 





 





 





 



   




2324




 





 





 





 





 





 



 This option is same as C method C option. 




2325




 





 





 





 





 





 



   




2326




 





 





 





 





 





 



 =item wrap 




2327




 





 





 





 





 





 



   




2328




 





 





 





 





 





 



   wrap => {price => sub { "max($_[0])" }} 




2329




 





 





 





 





 





 



   




2330




 





 





 





 





 





 



 placeholder wrapped string. 




2331




 





 





 





 





 





 



   




2332




 





 





 





 





 





 



 If the following statement 




2333




 





 





 





 





 





 



   




2334




 





 





 





 





 





 



   $dbi->insert({price => 100}, table => 'book', 




2335




 





 





 





 





 





 



     {price => sub { "$_[0] + 5" }}); 




2336




 





 





 





 





 





 



   




2337




 





 





 





 





 





 



 is executed, the following SQL is executed. 




2338




 





 





 





 





 





 



   




2339




 





 





 





 





 





 



   insert into book price values ( ? + 5 ); 




2340




 





 





 





 





 





 



   




2341




 





 





 





 





 





 



 =back 




2342




 





 





 





 





 





 



   




2343




 





 





 





 





 





 



 =over 4 




2344




 





 





 





 





 





 



   




2345




 





 





 





 





 





 



 =head2 include_model 




2346




 





 





 





 





 





 



   




2347




 





 





 





 





 





 



   $dbi->include_model('MyModel'); 




2348




 





 





 





 





 





 



   




2349




 





 





 





 





 





 



 Include models from specified namespace, 




2350




 





 





 





 





 





 



 the following layout is needed to include models. 




2351




 





 





 





 





 





 



   




2352




 





 





 





 





 





 



   lib / MyModel.pm 




2353




 





 





 





 





 





 



       / MyModel / book.pm 




2354




 





 





 





 





 





 



                 / company.pm 




2355




 





 





 





 





 





 



   




2356




 





 





 





 





 





 



 Name space module, extending L. 




2357




 





 





 





 





 





 



   




2358




 





 





 





 





 





 



 B 




2359




 





 





 





 





 





 



   




2360




 





 





 





 





 





 



   package MyModel; 




2361




 





 





 





 





 





 



   use DBIx::Custom::Model -base; 




2362




 





 





 





 





 





 



    




2363




 





 





 





 





 





 



   1; 




2364




 





 





 





 





 





 



   




2365




 





 





 





 





 





 



 Model modules, extending name space module. 




2366




 





 





 





 





 





 



   




2367




 





 





 





 





 





 



 B 




2368




 





 





 





 





 





 



   




2369




 





 





 





 





 





 



   package MyModel::book; 




2370




 





 





 





 





 





 



   use MyModel -base; 




2371




 





 





 





 





 





 



    




2372




 





 





 





 





 





 



   1; 




2373




 





 





 





 





 





 



   




2374




 





 





 





 





 





 



 B 




2375




 





 





 





 





 





 



   




2376




 





 





 





 





 





 



   package MyModel::company; 




2377




 





 





 





 





 





 



   use MyModel -base; 




2378




 





 





 





 





 





 



    




2379




 





 





 





 





 





 



   1; 




2380




 





 





 





 





 





 



    




2381




 





 





 





 





 





 



 MyModel::book and MyModel::company is included by C. 




2382




 





 





 





 





 





 



   




2383




 





 





 





 





 





 



 You can get model object by C. 




2384




 





 





 





 





 





 



   




2385




 





 





 





 





 





 



   my $book_model = $dbi->model('book'); 




2386




 





 





 





 





 





 



   my $company_model = $dbi->model('company'); 




2387




 





 





 





 





 





 



   




2388




 





 





 





 





 





 



 You can include full-qualified table name like C 




2389




 





 





 





 





 





 



   




2390




 





 





 





 





 





 



   lib / MyModel.pm 




2391




 





 





 





 





 





 



       / MyModel / main / book.pm 




2392




 





 





 





 





 





 



                        / company.pm 




2393




 





 





 





 





 





 



   




2394




 





 





 





 





 





 



   my $main_book = $self->model('main.book'); 




2395




 





 





 





 





 





 



   




2396




 





 





 





 





 





 



 See L to know model features. 




2397




 





 





 





 





 





 



   




2398




 





 





 





 





 





 



 =head2 like_value 




2399




 





 





 





 





 





 



   




2400




 





 





 





 





 





 



   my $like_value = $dbi->like_value 




2401




 





 





 





 





 





 



   




2402




 





 





 





 





 





 



 Code reference which return a value for the like value. 




2403




 





 





 





 





 





 



   




2404




 





 





 





 





 





 



   sub { "%$_[0]%" } 




2405




 





 





 





 





 





 



   




2406




 





 





 





 





 





 



 =head2 mapper 




2407




 





 





 





 





 





 



   




2408




 





 





 





 





 





 



   my $mapper = $dbi->mapper(param => $param); 




2409




 





 





 





 





 





 



   




2410




 





 





 





 





 





 



 Create a new L object. 




2411




 





 





 





 





 





 



   




2412




 





 





 





 





 





 



 =head2 merge_param 




2413




 





 





 





 





 





 



   




2414




 





 





 





 





 





 



   my $param = $dbi->merge_param({key1 => 1}, {key1 => 1, key2 => 2}); 




2415




 





 





 





 





 





 



   




2416




 





 





 





 





 





 



 Merge parameters. The following new parameter is created. 




2417




 





 





 





 





 





 



   




2418




 





 





 





 





 





 



   {key1 => [1, 1], key2 => 2} 




2419




 





 





 





 





 





 



   




2420




 





 





 





 





 





 



 If same keys contains, the value is converted to array reference. 




2421




 





 





 





 





 





 



   




2422




 





 





 





 





 





 



 =head2 model 




2423




 





 





 





 





 





 



   




2424




 





 





 





 





 





 



   my $model = $dbi->model('book'); 




2425




 





 





 





 





 





 



   




2426




 





 





 





 





 





 



 Get a L object 




2427




 





 





 





 





 





 



 create by C or C 




2428




 





 





 





 





 





 



   




2429




 





 





 





 





 





 



 =head2 mycolumn 




2430




 





 





 





 





 





 



   




2431




 





 





 





 





 





 



   my $column = $dbi->mycolumn(book => ['author', 'title']); 




2432




 





 





 





 





 





 



   




2433




 





 





 





 





 





 



 Create column clause for myself. The following column clause is created. 




2434




 





 





 





 





 





 



   




2435




 





 





 





 





 





 



   book.author as author, 




2436




 





 





 





 





 





 



   book.title as title 




2437




 





 





 





 





 





 



   




2438




 





 





 





 





 





 



 =head2 new 




2439




 





 





 





 





 





 



   




2440




 





 





 





 





 





 



   my $dbi = DBIx::Custom->new( 




2441




 





 





 





 





 





 



     dsn => "dbi:mysql:database=dbname", 




2442




 





 





 





 





 





 



     user => 'ken', 




2443




 





 





 





 





 





 



     password => '!LFKD%$&', 




2444




 





 





 





 





 





 



     option => {mysql_enable_utf8 => 1} 




2445




 





 





 





 





 





 



   ); 




2446




 





 





 





 





 





 



   




2447




 





 





 





 





 





 



 Create a new L object. 




2448




 





 





 





 





 





 



   




2449




 





 





 





 





 





 



 =head2 not_exists 




2450




 





 





 





 





 





 



   




2451




 





 





 





 





 





 



   my $not_exists = $dbi->not_exists; 




2452




 





 





 





 





 





 



   




2453




 





 





 





 





 





 



 DBIx::Custom::NotExists object, indicating the column is not exists. 




2454




 





 





 





 





 





 



 This is used in C of L . 




2455




 





 





 





 





 





 



   




2456




 





 





 





 





 





 



 =head2 order 




2457




 





 





 





 





 





 



   




2458




 





 





 





 





 





 



   my $order = $dbi->order; 




2459




 





 





 





 





 





 



   




2460




 





 





 





 





 





 



 Create a new L object. 




2461




 





 





 





 





 





 



   




2462




 





 





 





 





 





 



 =head2 q 




2463




 





 





 





 





 





 



   




2464




 





 





 





 





 





 



   my $quooted = $dbi->q("title"); 




2465




 





 





 





 





 





 



   




2466




 





 





 





 





 





 



 Quote string by value of C. 




2467




 





 





 





 





 





 



   




2468




 





 





 





 





 





 



 =head2 register_filter 




2469




 





 





 





 





 





 



   




2470




 





 





 





 





 





 



   $dbi->register_filter( 




2471




 





 





 





 





 





 



     # Time::Piece object to database DATE format 




2472




 





 





 





 





 





 



     tp_to_date => sub { 




2473




 





 





 





 





 





 



       my $tp = shift; 




2474




 





 





 





 





 





 



       return $tp->strftime('%Y-%m-%d'); 




2475




 





 





 





 





 





 



     }, 




2476




 





 





 





 





 





 



     # database DATE format to Time::Piece object 




2477




 





 





 





 





 





 



     date_to_tp => sub { 




2478




 





 





 





 





 





 



       my $date = shift; 




2479




 





 





 





 





 





 



       return Time::Piece->strptime($date, '%Y-%m-%d'); 




2480




 





 





 





 





 





 



     } 




2481




 





 





 





 





 





 



   ); 




2482




 





 





 





 





 





 



    




2483




 





 





 





 





 





 



 Register filters, used by C option of many methods. 




2484




 





 





 





 





 





 



   




2485




 





 





 





 





 





 



 =head2 select 




2486




 





 





 





 





 





 



   




2487




 





 





 





 





 





 



   my $result = $dbi->select( 




2488




 





 





 





 





 





 



     column => ['author', 'title'], 




2489




 





 





 





 





 





 



     table  => 'book', 




2490




 





 





 





 





 





 



     where  => {author => 'Ken'}, 




2491




 





 





 





 





 





 



   ); 




2492




 





 





 





 





 





 



    




2493




 





 





 





 





 





 



 Execute select statement. 




2494




 





 





 





 





 





 



   




2495




 





 





 





 





 





 



 You can pass odd number arguments. first argument is C. 




2496




 





 





 





 





 





 



   




2497




 





 





 





 





 





 



   my $result = $dbi->select(['author', 'title'], table => 'book'); 




2498




 





 





 





 





 





 



   




2499




 





 





 





 





 





 



 B 




2500




 





 





 





 





 





 



   




2501




 





 





 





 





 





 



 C method use all of C method's options, 




2502




 





 





 





 





 





 



 and use the following new ones. 




2503




 





 





 





 





 





 



   




2504




 





 





 





 





 





 



 =over 4 




2505




 





 





 





 





 





 



   




2506




 





 





 





 





 





 



 =item column 




2507




 





 





 





 





 





 



    




2508




 





 





 





 





 





 



   column => 'author' 




2509




 





 





 





 





 





 



   column => ['author', 'title'] 




2510




 





 





 





 





 





 



   




2511




 





 





 





 





 





 



 Column clause. 




2512




 





 





 





 





 





 



    




2513




 





 





 





 





 





 



 if C is not specified, '*' is set. 




2514




 





 





 





 





 





 



   




2515




 





 





 





 





 





 



   column => '*' 




2516




 





 





 





 





 





 



   




2517




 





 





 





 





 





 



 You can specify hash of array reference. 




2518




 





 





 





 





 





 



   




2519




 





 





 





 





 





 



   column => [ 




2520




 





 





 





 





 





 



     {book => [qw/author title/]}, 




2521




 





 





 





 





 





 



     {person => [qw/name age/]} 




2522




 





 





 





 





 





 



   ] 




2523




 





 





 





 





 





 



   




2524




 





 





 





 





 





 



 This is expanded to the following one by using C method. 




2525




 





 





 





 





 





 



   




2526




 





 





 





 





 





 



   book.author as "book.author", 




2527




 





 





 





 





 





 



   book.title as "book.title", 




2528




 





 





 





 





 





 



   person.name as "person.name", 




2529




 





 





 





 





 





 



   person.age as "person.age" 




2530




 





 





 





 





 





 



   




2531




 





 





 





 





 





 



 You can specify own column by C<__MY__>. 




2532




 





 





 





 





 





 



   




2533




 





 





 





 





 





 



   column => [ 




2534




 





 





 





 





 





 



     {__MY__ => [qw/author title/]}, 




2535




 





 





 





 





 





 



   ] 




2536




 





 





 





 





 





 



   




2537




 





 





 





 





 





 



 This is expanded to the following one by using C method. 




2538




 





 





 





 





 





 



   




2539




 





 





 





 





 





 



   book.author as "author", 




2540




 





 





 





 





 





 



   book.title as "title", 




2541




 





 





 





 





 





 



   




2542




 





 





 





 





 





 



 C<__MY__> can be changed by C attribute. 




2543




 





 





 





 





 





 



   




2544




 





 





 





 





 





 



 =item param 




2545




 





 





 





 





 





 



   




2546




 





 





 





 





 





 



   param => {'table2.key3' => 5} 




2547




 





 





 





 





 





 



   




2548




 





 





 





 





 





 



 Parameter shown before where clause. 




2549




 





 





 





 





 





 



    




2550




 





 





 





 





 





 



 For example, if you want to contain named placeholder in join clause,  




2551




 





 





 





 





 





 



 you can pass parameter by C option. 




2552




 





 





 





 





 





 



   




2553




 





 





 





 





 





 



   join  => ['inner join (select * from table2 where table2.key3 = :table2.key3)' .  




2554




 





 





 





 





 





 



             ' as table2 on table1.key1 = table2.key1'] 




2555




 





 





 





 





 





 



   




2556




 





 





 





 





 





 



 =item prefix 




2557




 





 





 





 





 





 



   




2558




 





 





 





 





 





 



   prefix => 'SQL_CALC_FOUND_ROWS' 




2559




 





 





 





 





 





 



   




2560




 





 





 





 





 





 



 Prefix of column clause 




2561




 





 





 





 





 





 



   




2562




 





 





 





 





 





 



   select SQL_CALC_FOUND_ROWS title, author from book; 




2563




 





 





 





 





 





 



   




2564




 





 





 





 





 





 



 =item join 




2565




 





 





 





 





 





 



   




2566




 





 





 





 





 





 



   join => [ 




2567




 





 





 





 





 





 



     'left outer join company on book.company_id = company_id', 




2568




 





 





 





 





 





 



     'left outer join location on company.location_id = location.id' 




2569




 





 





 





 





 





 



   ] 




2570




 





 





 





 





 





 



        




2571




 





 





 





 





 





 



 Join clause. If column clause or where clause contain table name like "company.name", 




2572




 





 





 





 





 





 



 join clauses needed when SQL is created is used automatically. 




2573




 





 





 





 





 





 



   




2574




 





 





 





 





 





 



   $dbi->select( 




2575




 





 





 





 





 





 



     table => 'book', 




2576




 





 





 





 





 





 



     column => ['company.location_id as location_id'], 




2577




 





 





 





 





 





 



     where => {'company.name' => 'Orange'}, 




2578




 





 





 





 





 





 



     join => [ 




2579




 





 





 





 





 





 



       'left outer join company on book.company_id = company.id', 




2580




 





 





 





 





 





 



       'left outer join location on company.location_id = location.id' 




2581




 





 





 





 





 





 



     ] 




2582




 





 





 





 





 





 



   ); 




2583




 





 





 





 





 





 



   




2584




 





 





 





 





 





 



 In above select, column and where clause contain "company" table, 




2585




 





 





 





 





 





 



 the following SQL is created 




2586




 





 





 





 





 





 



   




2587




 





 





 





 





 





 



   select company.location_id as location_id 




2588




 





 





 





 





 





 



   from book 




2589




 





 





 





 





 





 



     left outer join company on book.company_id = company.id 




2590




 





 





 





 





 





 



   where company.name = ?; 




2591




 





 





 





 





 





 



   




2592




 





 





 





 





 





 



 You can specify two table by yourself. This is useful when join parser can't parse 




2593




 





 





 





 





 





 



 the join clause correctly. 




2594




 





 





 





 





 





 



   




2595




 





 





 





 





 





 



   $dbi->select( 




2596




 





 





 





 





 





 



     table => 'book', 




2597




 





 





 





 





 





 



     column => ['company.location_id as location_id'], 




2598




 





 





 





 





 





 



     where => {'company.name' => 'Orange'}, 




2599




 





 





 





 





 





 



     join => [ 




2600




 





 





 





 





 





 



       { 




2601




 





 





 





 





 





 



         clause => 'left outer join location on company.location_id = location.id', 




2602




 





 





 





 





 





 



         table => ['company', 'location'] 




2603




 





 





 





 





 





 



       } 




2604




 





 





 





 





 





 



     ] 




2605




 





 





 





 





 





 



   ); 




2606




 





 





 





 





 





 



   




2607




 





 





 





 





 





 



 =item table 




2608




 





 





 





 





 





 



   




2609




 





 





 





 





 





 



   table => 'book' 




2610




 





 





 





 





 





 



   




2611




 





 





 





 





 





 



 Table name. 




2612




 





 





 





 





 





 



   




2613




 





 





 





 





 





 



 =item where 




2614




 





 





 





 





 





 



    




2615




 





 





 





 





 





 



   # (1) Hash reference 




2616




 





 





 





 





 





 



   where => {author => 'Ken', 'title' => ['Perl', 'Ruby']} 




2617




 





 





 





 





 





 



   # -> where author = 'Ken' and title in ('Perl', 'Ruby') 




2618




 





 





 





 





 





 



    




2619




 





 





 





 





 





 



   # (2) DBIx::Custom::Where object 




2620




 





 





 





 





 





 



   where => $dbi->where( 




2621




 





 





 





 





 





 



     clause => ['and', ':author{=}', ':title{like}'], 




2622




 





 





 





 





 





 



     param  => {author => 'Ken', title => '%Perl%'} 




2623




 





 





 





 





 





 



   ) 




2624




 





 





 





 





 





 



   # -> where author = 'Ken' and title like '%Perl%' 




2625




 





 





 





 





 





 



    




2626




 





 





 





 





 





 



   # (3) Array reference[where clause, parameters, join(optional)] 




2627




 





 





 





 





 





 



   where => [ 




2628




 





 





 





 





 





 



     ['and', ':author{=}', ':title{like}'], 




2629




 





 





 





 





 





 



     {author => 'Ken', title => '%Perl%'}, 




2630




 





 





 





 





 





 



     ["left outer join table2 on table1.key1 = table2.key1"] 




2631




 





 





 





 





 





 



   ] 




2632




 





 





 





 





 





 



   # -> where author = 'Ken' and title like '%Perl%' 




2633




 





 





 





 





 





 



    




2634




 





 





 





 





 





 



   # (4) Array reference[String, Hash reference] 




2635




 





 





 





 





 





 



   where => [ 




2636




 





 





 





 





 





 



     ':author{=} and :title{like}', 




2637




 





 





 





 





 





 



     {author => 'Ken', title => '%Perl%'} 




2638




 





 





 





 





 





 



   ] 




2639




 





 





 





 





 





 



   #  -> where author = 'Ken' and title like '%Perl%' 




2640




 





 





 





 





 





 



    




2641




 





 





 





 





 





 



   # (5) String 




2642




 





 





 





 





 





 



   where => 'title is null' 




2643




 





 





 





 





 





 



   #  -> where title is null 




2644




 





 





 





 





 





 



   




2645




 





 





 





 





 





 



 Where clause. 




2646




 





 





 





 





 





 



 See also L to know how to create where clause. 




2647




 





 





 





 





 





 



    




2648




 





 





 





 





 





 



 =back 




2649




 





 





 





 





 





 



   




2650




 





 





 





 





 





 



 =head2 type_rule 




2651




 





 





 





 





 





 



   




2652




 





 





 





 





 





 



   $dbi->type_rule( 




2653




 





 





 





 





 





 



     into1 => { 




2654




 





 





 





 





 





 



       date => sub { ... }, 




2655




 





 





 





 





 





 



       datetime => sub { ... } 




2656




 





 





 





 





 





 



     }, 




2657




 





 





 





 





 





 



     into2 => { 




2658




 





 





 





 





 





 



       date => sub { ... }, 




2659




 





 





 





 





 





 



       datetime => sub { ... } 




2660




 





 





 





 





 





 



     }, 




2661




 





 





 





 





 





 



     from1 => { 




2662




 





 





 





 





 





 



       # DATE 




2663




 





 





 





 





 





 



       9 => sub { ... }, 




2664




 





 





 





 





 





 



       # DATETIME or TIMESTAMP 




2665




 





 





 





 





 





 



       11 => sub { ... }, 




2666




 





 





 





 





 





 



     } 




2667




 





 





 





 





 





 



     from2 => { 




2668




 





 





 





 





 





 



       # DATE 




2669




 





 





 





 





 





 



       9 => sub { ... }, 




2670




 





 





 





 





 





 



       # DATETIME or TIMESTAMP 




2671




 





 





 





 





 





 



       11 => sub { ... }, 




2672




 





 





 





 





 





 



     } 




2673




 





 





 





 





 





 



   ); 




2674




 





 





 





 





 





 



   




2675




 





 





 





 





 





 



 Filtering rule when data is send into and get from database. 




2676




 





 





 





 





 





 



 This has a little complex problem. 




2677




 





 





 





 





 





 



   




2678




 





 





 





 





 





 



 In C and C you can specify 




2679




 





 





 





 





 





 



 type name as same as type name defined 




2680




 





 





 





 





 





 



 by create table, such as C or C. 




2681




 





 





 





 





 





 



   




2682




 





 





 





 





 





 



 Note that type name and data type don't contain upper case. 




2683




 





 





 





 





 





 



 If these contain upper case character, you convert it to lower case. 




2684




 





 





 





 





 





 



   




2685




 





 





 





 





 





 



 C is executed after C. 




2686




 





 





 





 





 





 



   




2687




 





 





 





 





 





 



 Type rule of C and C is enabled on the following 




2688




 





 





 





 





 





 



 column name. 




2689




 





 





 





 





 





 



   




2690




 





 





 





 





 





 



 =over 4 




2691




 





 





 





 





 





 



   




2692




 





 





 





 





 





 



 =item 1. column name 




2693




 





 





 





 





 





 



   




2694




 





 





 





 





 





 



   issue_date 




2695




 





 





 





 





 





 



   issue_datetime 




2696




 





 





 





 





 





 



   




2697




 





 





 





 





 





 



 This need C option in each method. 




2698




 





 





 





 





 





 



   




2699




 





 





 





 





 





 



 =item 2. table name and column name, separator is dot 




2700




 





 





 





 





 





 



   




2701




 





 





 





 





 





 



   book.issue_date 




2702




 





 





 





 





 





 



   book.issue_datetime 




2703




 





 





 





 





 





 



   




2704




 





 





 





 





 





 



 =back 




2705




 





 





 





 





 





 



   




2706




 





 





 





 





 





 



 You get all type name used in database by C. 




2707




 





 





 





 





 





 



   




2708




 





 





 





 





 





 



   print $dbi->available_typename; 




2709




 





 





 





 





 





 



   




2710




 





 





 





 





 





 



 In C and C you specify data type, not type name. 




2711




 





 





 





 





 





 



 C is executed after C. 




2712




 





 





 





 





 





 



 You get all data type by C. 




2713




 





 





 





 





 





 



   




2714




 





 





 





 





 





 



   print $dbi->available_datatype; 




2715




 





 





 





 





 





 



   




2716




 





 





 





 





 





 



 You can also specify multiple types at once. 




2717




 





 





 





 





 





 



   




2718




 





 





 





 





 





 



   $dbi->type_rule( 




2719




 





 





 





 





 





 



     into1 => [ 




2720




 





 





 





 





 





 



       [qw/DATE DATETIME/] => sub { ... }, 




2721




 





 





 





 





 





 



     ], 




2722




 





 





 





 





 





 



   ); 




2723




 





 





 





 





 





 



   




2724




 





 





 





 





 





 



 =head2 update 




2725




 





 





 





 





 





 



   




2726




 





 





 





 





 





 



   $dbi->update({title => 'Perl'}, table  => 'book', where  => {id => 4}); 




2727




 





 





 





 





 





 



   




2728




 





 





 





 





 





 



 Execute update statement. First argument is update row data. 




2729




 





 





 





 





 





 



   




2730




 





 





 





 





 





 



 If you want to set constant value to row data, use scalar reference 




2731




 





 





 





 





 





 



 as parameter value. 




2732




 





 





 





 





 





 



   




2733




 





 





 





 





 





 



   {date => \"NOW()"} 




2734




 





 





 





 





 





 



   




2735




 





 





 





 





 





 



 B 




2736




 





 





 





 





 





 



   




2737




 





 





 





 





 





 



 C method use all of C method's options, 




2738




 





 





 





 





 





 



 and use the following new ones. 




2739




 





 





 





 





 





 



   




2740




 





 





 





 





 





 



 =over 4 




2741




 





 





 





 





 





 



   




2742




 





 





 





 





 





 



 =item prefix 




2743




 





 





 





 





 





 



   




2744




 





 





 





 





 





 



   prefix => 'or replace' 




2745




 





 





 





 





 





 



   




2746




 





 





 





 





 





 



 prefix before table name section 




2747




 





 





 





 





 





 



   




2748




 





 





 





 





 





 



   update or replace book 




2749




 





 





 





 





 





 



   




2750




 





 





 





 





 





 



 =item table 




2751




 





 





 





 





 





 



   




2752




 





 





 





 





 





 



   table => 'book' 




2753




 





 





 





 





 





 



   




2754




 





 





 





 





 





 



 Table name. 




2755




 





 





 





 





 





 



   




2756




 





 





 





 





 





 



 =item where 




2757




 





 





 





 





 





 



   




2758




 





 





 





 





 





 



 Same as C method's C option. 




2759




 





 





 





 





 





 



   




2760




 





 





 





 





 





 



 =item wrap 




2761




 





 





 





 





 





 



   




2762




 





 





 





 





 





 



   wrap => {price => sub { "max($_[0])" }} 




2763




 





 





 





 





 





 



   




2764




 





 





 





 





 





 



 placeholder wrapped string. 




2765




 





 





 





 





 





 



   




2766




 





 





 





 





 





 



 If the following statement 




2767




 





 





 





 





 





 



   




2768




 





 





 





 





 





 



   $dbi->update({price => 100}, table => 'book', 




2769




 





 





 





 





 





 



     {price => sub { "$_[0] + 5" }}); 




2770




 





 





 





 





 





 



   




2771




 





 





 





 





 





 



 is executed, the following SQL is executed. 




2772




 





 





 





 





 





 



   




2773




 





 





 





 





 





 



   update book set price =  ? + 5; 




2774




 





 





 





 





 





 



   




2775




 





 





 





 





 





 



 =item mtime 




2776




 





 





 





 





 





 



   




2777




 





 





 





 





 





 



   mtime => 'modified_time' 




2778




 





 





 





 





 





 



   




2779




 





 





 





 





 





 



 Modified time column name. time row is updated is set to the column. 




2780




 





 





 





 





 





 



 default time format is C, which can be changed by 




2781




 





 





 





 





 





 



 C attribute. 




2782




 





 





 





 





 





 



   




2783




 





 





 





 





 





 



 =back 




2784




 





 





 





 





 





 



   




2785




 





 





 





 





 





 



 =head2 update_all 




2786




 





 





 





 





 





 



   




2787




 





 





 





 





 





 



   $dbi->update_all({title => 'Perl'}, table => 'book', ); 




2788




 





 





 





 





 





 



   




2789




 





 





 





 





 





 



 Execute update statement for all rows. 




2790




 





 





 





 





 





 



 Options is same as C method. 




2791




 





 





 





 





 





 



   




2792




 





 





 





 





 





 



 =over 4 




2793




 





 





 





 





 





 



   




2794




 





 





 





 





 





 



 =item option 




2795




 





 





 





 





 





 



   




2796




 





 





 





 





 





 



   option => { 




2797




 





 





 





 





 





 



     select => { 




2798




 





 





 





 





 





 



       append => '...' 




2799




 





 





 





 





 





 



     }, 




2800




 





 





 





 





 





 



     insert => { 




2801




 





 





 





 





 





 



       prefix => '...' 




2802




 





 





 





 





 





 



     }, 




2803




 





 





 





 





 





 



     update => { 




2804




 





 





 





 





 





 



       filter => {} 




2805




 





 





 





 





 





 



     } 




2806




 





 





 





 





 





 



   } 




2807




 





 





 





 





 





 



   




2808




 





 





 





 





 





 



 If you want to pass option to each method, 




2809




 





 





 





 





 





 



 you can use C option. 




2810




 





 





 





 





 





 



   




2811




 





 





 





 





 





 



 =over 4 




2812




 





 





 





 





 





 



   




2813




 





 





 





 





 





 



 =item select_option 




2814




 





 





 





 





 





 



   




2815




 





 





 





 





 





 



   select_option => {append => 'for update'} 




2816




 





 





 





 





 





 



   




2817




 





 





 





 





 





 



 select method option, 




2818




 





 





 





 





 





 



 select method is used to check the row is already exists. 




2819




 





 





 





 





 





 



   




2820




 





 





 





 





 





 



 =head2 show_datatype 




2821




 





 





 





 





 





 



   




2822




 





 





 





 





 





 



   $dbi->show_datatype($table); 




2823




 





 





 





 





 





 



   




2824




 





 





 





 





 





 



 Show data type of the columns of specified table. 




2825




 





 





 





 





 





 



   




2826




 





 





 





 





 





 



   book 




2827




 





 





 





 





 





 



   title: 5 




2828




 





 





 





 





 





 



   issue_date: 91 




2829




 





 





 





 





 





 



   




2830




 





 





 





 





 





 



 This data type is used in C's C and C. 




2831




 





 





 





 





 





 



   




2832




 





 





 





 





 





 



 =head2 show_tables 




2833




 





 





 





 





 





 



   




2834




 





 





 





 





 





 



   $dbi->show_tables; 




2835




 





 





 





 





 





 



   




2836




 





 





 





 





 





 



 Show tables. 




2837




 





 





 





 





 





 



   




2838




 





 





 





 





 





 



 =head2 show_typename 




2839




 





 





 





 





 





 



   




2840




 





 





 





 





 





 



   $dbi->show_typename($table); 




2841




 





 





 





 





 





 



   




2842




 





 





 





 





 





 



 Show type name of the columns of specified table. 




2843




 





 





 





 





 





 



   




2844




 





 





 





 





 





 



   book 




2845




 





 





 





 





 





 



   title: varchar 




2846




 





 





 





 





 





 



   issue_date: date 




2847




 





 





 





 





 





 



   




2848




 





 





 





 





 





 



 This type name is used in C's C and C. 




2849




 





 





 





 





 





 



   




2850




 





 





 





 





 





 



 =head2 values_clause 




2851




 





 





 





 





 





 



   




2852




 





 





 





 





 





 



   my $values_clause = $dbi->values_clause({title => 'a', age => 2}); 




2853




 





 





 





 





 





 



   




2854




 





 





 





 





 





 



 Create values clause. 




2855




 





 





 





 





 





 



   




2856




 





 





 





 





 





 



   (title, author) values (title = :title, age = :age); 




2857




 





 





 





 





 





 



   




2858




 





 





 





 





 





 



 You can use this in insert statement. 




2859




 





 





 





 





 





 



   




2860




 





 





 





 





 





 



   my $insert_sql = "insert into book $values_clause"; 




2861




 





 





 





 





 





 



   




2862




 





 





 





 





 





 



 =head2 where 




2863




 





 





 





 





 





 



   




2864




 





 





 





 





 





 



   my $where = $dbi->where; 




2865




 





 





 





 





 





 



   $where->clause(['and', 'title = :title', 'author = :author']); 




2866




 





 





 





 





 





 



   $where->param({title => 'Perl', author => 'Ken'}); 




2867




 





 





 





 





 





 



   $where->join(['left join author on book.author = author.id]); 




2868




 





 





 





 





 





 



   




2869




 





 





 





 





 





 



 Create a new L object. 




2870




 





 





 





 





 





 



 See L to know how to create where clause. 




2871




 





 





 





 





 





 



   




2872




 





 





 





 





 





 



 =head1 ENVIRONMENTAL VARIABLES 




2873




 





 





 





 





 





 



   




2874




 





 





 





 





 





 



 =head2 DBIX_CUSTOM_DEBUG 




2875




 





 





 





 





 





 



   




2876




 





 





 





 





 





 



 If environment variable C is set to true, 




2877




 





 





 





 





 





 



 executed SQL and bind values are printed to STDERR. 




2878




 





 





 





 





 





 



   




2879




 





 





 





 





 





 



 =head2 DBIX_CUSTOM_DEBUG_ENCODING 




2880




 





 





 





 





 





 



   




2881




 





 





 





 





 





 



 DEBUG output encoding. Default to UTF-8. 




2882




 





 





 





 





 





 



   




2883




 





 





 





 





 





 



 =head2 DBIX_CUSTOM_SUPPRESS_DEPRECATION 




2884




 





 





 





 





 





 



   




2885




 





 





 





 





 





 



   $ENV{DBIX_CUSTOM_SUPPRESS_DEPRECATION} = '0.25'; 




2886




 





 





 





 





 





 



   




2887




 





 





 





 





 





 



 Suppress deprecation warnings before specified version. 




2888




 





 





 





 





 





 



   




2889




 





 





 





 





 





 



 =head1 DEPRECATED FUNCTIONALITY 




2890




 





 





 





 





 





 



   




2891




 





 





 





 





 





 



 L 




2892




 





 





 





 





 





 



   




2893




 





 





 





 





 





 



   # Methods 




2894




 





 





 





 





 





 



   DBIx::Custom AUTOLOAD feature # will be removed at 2022/5/1 




2895




 





 





 





 





 





 



   DBIx::Custom::helper method # will be removed at 2022/5/1 




2896




 





 





 





 





 





 



   DBIx::Custom::update_or_insert method is DEPRECATED! # will be removed at 2022/5/1 




2897




 





 





 





 





 





 



   DBIx::Custom::count method # will be removed at 2022/5/1 




2898




 





 





 





 





 





 



   DBIx::Custom::select,update,delete method's primary_key option is DEPRECATED! # will be removed at 2022/5/1 




2899




 





 





 





 





 





 



   DBIx::Custom::select,update,delete method's id option is DEPRECATED! # will be removed at 2022/5/1 




2900




 





 





 





 





 





 



   DBIx::Custom::setup method is DEPRECATED! # will be removed at 2022/5/1 




2901




 





 





 





 





 





 



   




2902




 





 





 





 





 





 



 L 




2903




 





 





 





 





 





 



    




2904




 





 





 





 





 





 



   # Options 




2905




 





 





 





 





 





 



   kv method's multi option (from 0.28) # will be removed at 2018/3/1 




2906




 





 





 





 





 





 



   




2907




 





 





 





 





 





 



 L 




2908




 





 





 





 





 





 



   




2909




 





 





 





 





 





 



   DBIx::Custom::Model AUTOLOAD feature # will be removed at 2022/5/1 




2910




 





 





 





 





 





 



   DBIx::Custom::Model::helper method is DEPRECATED! # will be removed at 2022/5/1 




2911




 





 





 





 





 





 



   DBIx::Custom::Model::update_or_insert method is DEPRECATED! # will be removed at 2022/5/1 




2912




 





 





 





 





 





 



   DBIx::Custom::Model::count method # will be removed at 2022/5/1 




2913




 





 





 





 





 





 



   DBIx::Custom::Model::primary_key attribute is DEPRECATED! # will be removed at 2022/5/1 




2914




 





 





 





 





 





 



   




2915




 





 





 





 





 





 



 =head1 BACKWARDS COMPATIBILITY POLICY 




2916




 





 





 





 





 





 



   




2917




 





 





 





 





 





 



 If a feature is DEPRECATED, you can know it by DEPRECATED warnings. 




2918




 





 





 





 





 





 



 DEPRECATED feature is removed after C, 




2919




 





 





 





 





 





 



 but if at least one person use the feature and tell me that thing 




2920




 





 





 





 





 





 



 I extend one year each time he tell me it. 




2921




 





 





 





 





 





 



   




2922




 





 





 





 





 





 



 DEPRECATION warnings can be suppressed by C 




2923




 





 





 





 





 





 



 environment variable. 




2924




 





 





 





 





 





 



   




2925




 





 





 





 





 





 



 EXPERIMENTAL features will be changed or deleted without warnings. 




2926




 





 





 





 





 





 



   




2927




 





 





 





 





 





 



 =head1 BUGS 




2928




 





 





 





 





 





 



   




2929




 





 





 





 





 





 



 Please tell me bugs if you find bug. 




2930




 





 





 





 





 





 



   




2931




 





 





 





 





 





 



 C<<  >> 




2932




 





 





 





 





 





 



   




2933




 





 





 





 





 





 



 L 




2934




 





 





 





 





 





 



   




2935




 





 





 





 





 





 



 =head1 AUTHOR 




2936




 





 





 





 





 





 



   




2937




 





 





 





 





 





 



 Yuki Kimoto, C<<  >> 




2938




 





 





 





 





 





 



   




2939




 





 





 





 





 





 



 =head1 COPYRIGHT & LICENSE 




2940




 





 





 





 





 





 



   




2941




 





 





 





 





 





 



 Copyright 2009-2019 Yuki Kimoto, all rights reserved. 




2942




 





 





 





 





 





 



   




2943




 





 





 





 





 





 



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




2944




 





 





 





 





 





 



 under the same terms as Perl itself. 




2945




 





 





 





 





 





 



   




2946




 





 





 





 





 





 



 =cut
C. 




2057




 





 





 





 





 





 



   




2058




 





 





 





 





 





 



 If C is set, C method use C 




2059




 





 





 





 





 





 



 information, you can improve the performance of C in 




2060




 





 





 





 





 





 



 the following way. 




2061




 





 





 





 





 





 



   




2062




 





 





 





 





 





 



   my $table_infos = $dbi->get_table_info(exclude => qr/^system_/); 




2063




 





 





 





 





 





 



   $dbi->user_table_info($table_info); 




2064




 





 





 





 





 





 



   $dbi->each_table(sub { ... }); 




2065




 





 





 





 





 





 



   




2066




 





 





 





 





 





 



 =head2 execute 




2067




 





 





 





 





 





 



   




2068




 





 





 





 





 





 



   my $result = $dbi->execute( 




2069




 





 





 





 





 





 



     "select * from book where title = :title and author like :author", 




2070




 





 





 





 





 





 



     {title => 'Perl', author => '%Ken%'} 




2071




 





 





 





 





 





 



   ); 




2072




 





 





 





 





 





 



   




2073




 





 





 





 





 





 



   my $result = $dbi->execute( 




2074




 





 





 





 





 





 



     "select * from book where title = :book.title and author like :book.author", 




2075




 





 





 





 





 





 



     {'book.title' => 'Perl', 'book.author' => '%Ken%'} 




2076




 





 





 





 





 





 



   ); 




2077




 





 





 





 





 





 



   




2078




 





 





 





 





 





 



 Execute SQL. SQL can contain column parameter such as :author and :title. 




2079




 





 





 





 





 





 



 You can append table name to column name such as :book.title and :book.author. 




2080




 





 





 





 





 





 



 Second argument is data, embedded into column parameter. 




2081




 





 





 





 





 





 



 Return value is L object when select statement is executed, 




2082




 





 





 





 





 





 



 or the count of affected rows when insert, update, delete statement is executed. 




2083




 





 





 





 





 





 



   




2084




 





 





 





 





 





 



 Named placeholder such as C<:title> is replaced by placeholder C. 




2085




 





 





 





 





 





 



    




2086




 





 





 





 





 





 



   # Original 




2087




 





 





 





 





 





 



   select * from book where title = :title and author like :author 




2088




 





 





 





 





 





 



    




2089




 





 





 





 





 





 



   # Replaced 




2090




 





 





 





 





 





 



   select * from where title = ? and author like ?; 




2091




 





 





 





 





 





 



   




2092




 





 





 





 





 





 



 You can specify operator with named placeholder 




2093




 





 





 





 





 





 



 by C syntax. 




2094




 





 





 





 





 





 



   




2095




 





 





 





 





 





 



   # Original 




2096




 





 





 





 





 





 



   select * from book where :title{=} and :author{like} 




2097




 





 





 





 





 





 



    




2098




 





 





 





 





 





 



   # Replaced 




2099




 





 





 





 





 





 



   select * from where title = ? and author like ?; 




2100




 





 





 





 





 





 



   




2101




 





 





 





 





 





 



 Note that colons in time format such as 12:13:15 is an exception, 




2102




 





 





 





 





 





 



 it is not parsed as named placeholder. 




2103




 





 





 





 





 





 



 If you want to use colon generally, you must escape it by C<\\> 




2104




 





 





 





 





 





 



   




2105




 





 





 





 





 





 



   select * from where title = "aa\\:bb"; 




2106




 





 





 





 





 





 



   




2107




 





 





 





 





 





 



 B 




2108




 





 





 





 





 





 



   




2109




 





 





 





 





 





 



 The following options are available. 




2110




 





 





 





 





 





 



   




2111




 





 





 





 





 





 



 =over 4 




2112




 





 





 





 





 





 



   




2113




 





 





 





 





 





 



 =item after_build_sql  




2114




 





 





 





 





 





 



   




2115




 





 





 





 





 





 



 You can filter sql after the sql is build. 




2116




 





 





 





 





 





 



   




2117




 





 





 





 





 





 



   after_build_sql => $code_ref 




2118




 





 





 





 





 





 



   




2119




 





 





 





 





 





 



 The following one is one example. 




2120




 





 





 





 





 





 



   




2121




 





 





 





 





 





 



   $dbi->select( 




2122




 





 





 





 





 





 



     table => 'book', 




2123




 





 





 





 





 





 



     column => 'distinct(name)', 




2124




 





 





 





 





 





 



     after_build_sql => sub { 




2125




 





 





 





 





 





 



       "select count(*) from ($_[0]) as t1" 




2126




 





 





 





 





 





 



     } 




2127




 





 





 





 





 





 



   ); 




2128




 





 





 





 





 





 



   




2129




 





 





 





 





 





 



 The following SQL is executed. 




2130




 





 





 





 





 





 



   




2131




 





 





 





 





 





 



   select count(*) from (select distinct(name) from book) as t1; 




2132




 





 





 





 





 





 



   




2133




 





 





 





 





 





 



 =item append 




2134




 





 





 





 





 





 



   




2135




 





 





 





 





 





 



   append => 'order by name' 




2136




 





 





 





 





 





 



   




2137




 





 





 





 





 





 



 Append some statement after SQL. 




2138




 





 





 





 





 





 



   




2139




 





 





 





 





 





 



 =item bind_type 




2140




 





 





 





 





 





 



   




2141




 





 





 





 





 





 



 Specify database bind data type. 




2142




 





 





 





 





 





 



    




2143




 





 





 





 





 





 



   bind_type => {image => DBI::SQL_BLOB} 




2144




 





 





 





 





 





 



   bind_type => [image => DBI::SQL_BLOB] 




2145




 





 





 





 





 





 



   bind_type => [[qw/image audio/] => DBI::SQL_BLOB] 




2146




 





 





 





 





 





 



   




2147




 





 





 





 





 





 



 This is used to bind parameter by C of statement handle. 




2148




 





 





 





 





 





 



   




2149




 





 





 





 





 





 



   $sth->bind_param($pos, $value, DBI::SQL_BLOB); 




2150




 





 





 





 





 





 



   




2151




 





 





 





 





 





 



 =item filter 




2152




 





 





 





 





 





 



    




2153




 





 





 





 





 





 



   filter => { 




2154




 





 





 





 





 





 



     title  => sub { uc $_[0] } 




2155




 





 





 





 





 





 



     author => sub { uc $_[0] } 




2156




 





 





 





 





 





 



   } 




2157




 





 





 





 





 





 



   




2158




 





 





 





 





 





 



   # Filter name 




2159




 





 





 





 





 





 



   filter => { 




2160




 





 





 





 





 





 



     title  => 'upper_case', 




2161




 





 





 





 





 





 



     author => 'upper_case' 




2162




 





 





 





 





 





 



   } 




2163




 





 





 





 





 





 



        




2164




 





 





 





 





 





 



   # At once 




2165




 





 





 





 





 





 



   filter => [ 




2166




 





 





 





 





 





 



     [qw/title author/]  => sub { uc $_[0] } 




2167




 





 





 





 





 





 



   ] 




2168




 





 





 





 





 





 



   




2169




 





 





 





 





 





 



 Filter. You can set subroutine or filter name 




2170




 





 





 





 





 





 



 registered by C. 




2171




 





 





 





 





 





 



 This filter is executed before data is saved into database. 




2172




 





 





 





 





 





 



 and before type rule filter is executed. 




2173




 





 





 





 





 





 



   




2174




 





 





 





 





 





 



 =item reuse 




2175




 





 





 





 





 





 



    




2176




 





 





 





 





 





 



   reuse => $hash_ref 




2177




 





 





 





 





 





 



   




2178




 





 





 





 





 





 



 Reuse statement handle in same SQL. 




2179




 





 





 





 





 





 



    




2180




 





 





 





 





 





 



   my $reuse = {}; 




2181




 





 





 





 





 





 



   $dbi->execute($sql, $param, reuse => $reuse); 




2182




 





 





 





 





 





 



   




2183




 





 





 





 





 





 



 This will improved performance when you want to execute same sql repeatedly. 




2184




 





 





 





 





 





 



   




2185




 





 





 





 





 





 



 =item table 




2186




 





 





 





 





 





 



    




2187




 





 





 





 





 





 



   table => 'author' 




2188




 





 





 





 





 





 



   




2189




 





 





 





 





 





 



 If you want to omit table name in column name 




2190




 





 





 





 





 





 



 and enable C and C type filter, 




2191




 





 





 





 





 





 



 You must set C option. 




2192




 





 





 





 





 





 



   




2193




 





 





 





 





 





 



   $dbi->execute("select * from book where title = :title and author = :author", 




2194




 





 





 





 





 





 



     {title => 'Perl', author => 'Ken', table => 'book'); 




2195




 





 





 





 





 





 



   




2196




 





 





 





 





 





 



   # Same 




2197




 





 





 





 





 





 



   $dbi->execute( 




2198




 





 





 





 





 





 



     "select * from book where title = :book.title and author = :book.author", 




2199




 





 





 





 





 





 



     {title => 'Perl', author => 'Ken'); 




2200




 





 





 





 





 





 



   




2201




 





 





 





 





 





 



 =item table_alias 




2202




 





 





 





 





 





 



   




2203




 





 





 





 





 





 



   table_alias => {worker => 'user'} # {ALIAS => TABLE} 




2204




 





 





 





 





 





 



   




2205




 





 





 





 





 





 



 Table alias. Key is alias table name, value is real table name, . 




2206




 





 





 





 





 





 



 If you set C, you can enable C and C type rule 




2207




 





 





 





 





 





 



 on alias table name. 




2208




 





 





 





 





 





 



   




2209




 





 





 





 





 





 



 =item type_rule_off 




2210




 





 





 





 





 





 



   




2211




 





 





 





 





 





 



   type_rule_off => 1 




2212




 





 





 





 





 





 



   




2213




 





 





 





 





 





 



 Turn C and C type rule off. 




2214




 





 





 





 





 





 



   




2215




 





 





 





 





 





 



 =item type_rule1_off 




2216




 





 





 





 





 





 



   




2217




 





 





 





 





 





 



   type_rule1_off => 1 




2218




 





 





 





 





 





 



   




2219




 





 





 





 





 





 



 Turn C type rule off. 




2220




 





 





 





 





 





 



   




2221




 





 





 





 





 





 



 =item type_rule2_off 




2222




 





 





 





 





 





 



   




2223




 





 





 





 





 





 



   type_rule2_off => 1 




2224




 





 





 





 





 





 



   




2225




 





 





 





 





 





 



 Turn C type rule off. 




2226




 





 





 





 





 





 



   




2227




 





 





 





 





 





 



 =item prepare_attr 




2228




 





 





 





 





 





 



   




2229




 





 





 





 





 





 



   prepare_attr => {mysql_use_result => 1} 




2230




 





 





 





 





 





 



   




2231




 





 





 





 





 





 



 Statemend handle attributes, 




2232




 





 





 





 





 





 



 this is L's C method second argument. 




2233




 





 





 





 





 





 



   




2234




 





 





 





 





 





 



 =head2 get_column_info 




2235




 





 





 





 





 





 



   




2236




 





 





 





 





 





 



   my $column_infos = $dbi->get_column_info(exclude_table => qr/^system_/); 




2237




 





 





 





 





 





 



   




2238




 





 





 





 





 





 



 get column information except for one which match C pattern. 




2239




 





 





 





 





 





 



   




2240




 





 





 





 





 





 



   [ 




2241




 





 





 





 





 





 



     {table => 'book', column => 'title', info => {...}}, 




2242




 





 





 





 





 





 



     {table => 'author', column => 'name' info => {...}} 




2243




 





 





 





 





 





 



   ] 




2244




 





 





 





 





 





 



   




2245




 





 





 





 





 





 



 =head2 get_table_info 




2246




 





 





 





 





 





 



   




2247




 





 





 





 





 





 



   my $table_infos = $dbi->get_table_info(exclude => qr/^system_/); 




2248




 





 





 





 





 





 



   




2249




 





 





 





 





 





 



 get table information except for one which match C pattern. 




2250




 





 





 





 





 





 



   




2251




 





 





 





 





 





 



   [ 




2252




 





 





 





 





 





 



     {table => 'book', info => {...}}, 




2253




 





 





 





 





 





 



     {table => 'author', info => {...}} 




2254




 





 





 





 





 





 



   ] 




2255




 





 





 





 





 





 



   




2256




 





 





 





 





 





 



 You can set this value to C. 




2257




 





 





 





 





 





 



   




2258




 





 





 





 





 





 



 =head2 insert 




2259




 





 





 





 





 





 



   




2260




 





 





 





 





 





 



   $dbi->insert({title => 'Perl', author => 'Ken'}, table  => 'book'); 




2261




 





 





 





 





 





 



   




2262




 





 





 





 





 





 



 Execute insert statement. First argument is row data. Return value is 




2263




 





 





 





 





 





 



 affected row count. 




2264




 





 





 





 





 





 



   




2265




 





 





 





 





 





 



 If you want to set constant value to row data, use scalar reference 




2266




 





 





 





 





 





 



 as parameter value. 




2267




 





 





 





 





 





 



   




2268




 





 





 





 





 





 



   {date => \"NOW()"} 




2269




 





 





 





 





 





 



   




2270




 





 





 





 





 





 



 You can pass multiple parameters, this is very fast. 




2271




 





 





 





 





 





 



   




2272




 





 





 





 





 





 



   $dbi->insert( 




2273




 





 





 





 





 





 



     [ 




2274




 





 





 





 





 





 



       {title => 'Perl', author => 'Ken'}, 




2275




 





 





 





 





 





 



       {title => 'Ruby', author => 'Tom'} 




2276




 





 





 





 





 





 



     ], 




2277




 





 





 





 





 





 



     table  => 'book' 




2278




 





 





 





 





 





 



   ); 




2279




 





 





 





 





 





 



   




2280




 





 





 





 





 





 



 In multiple insert, you can't use C option. 




2281




 





 





 





 





 





 



 and only first parameter is used to create sql. 




2282




 





 





 





 





 





 



   




2283




 





 





 





 





 





 



 B 




2284




 





 





 





 





 





 



   




2285




 





 





 





 





 





 



 C method use all of C method's options, 




2286




 





 





 





 





 





 



 and use the following new ones. 




2287




 





 





 





 





 





 



   




2288




 





 





 





 





 





 



 =over 4 




2289




 





 





 





 





 





 



   




2290




 





 





 





 





 





 



 =item bulk_insert 




2291




 





 





 





 





 





 



   




2292




 





 





 





 





 





 



   bulk_insert => 1 




2293




 





 





 





 





 





 



   




2294




 





 





 





 





 





 



 bulk insert is executed if database support bulk insert and  




2295




 





 





 





 





 





 



 multiple parameters is passed to C. 




2296




 





 





 





 





 





 



 The SQL like the following one is executed. 




2297




 





 





 





 





 





 



   




2298




 





 





 





 





 





 



   insert into book (id, title) values (?, ?), (?, ?); 




2299




 





 





 





 





 





 



   




2300




 





 





 





 





 





 



 =item ctime 




2301




 





 





 





 





 





 



   




2302




 





 





 





 





 





 



   ctime => 'created_time' 




2303




 





 





 





 





 





 



   




2304




 





 





 





 





 





 



 Created time column name. time when row is created is set to the column. 




2305




 





 





 





 





 





 



 default time format is "YYYY-mm-dd HH:MM:SS", which can be changed by 




2306




 





 





 





 





 





 



 C attribute. 




2307




 





 





 





 





 





 



   




2308




 





 





 





 





 





 



 =item prefix 




2309




 





 





 





 





 





 



   




2310




 





 





 





 





 





 



   prefix => 'or replace' 




2311




 





 





 





 





 





 



   




2312




 





 





 





 





 





 



 prefix before table name section 




2313




 





 





 





 





 





 



   




2314




 





 





 





 





 





 



   insert or replace into book 




2315




 





 





 





 





 





 



   




2316




 





 





 





 





 





 



 =item table 




2317




 





 





 





 





 





 



   




2318




 





 





 





 





 





 



   table => 'book' 




2319




 





 





 





 





 





 



   




2320




 





 





 





 





 





 



 Table name. 




2321




 





 





 





 





 





 



   




2322




 





 





 





 





 





 



 =item mtime 




2323




 





 





 





 





 





 



   




2324




 





 





 





 





 





 



 This option is same as C method C option. 




2325




 





 





 





 





 





 



   




2326




 





 





 





 





 





 



 =item wrap 




2327




 





 





 





 





 





 



   




2328




 





 





 





 





 





 



   wrap => {price => sub { "max($_[0])" }} 




2329




 





 





 





 





 





 



   




2330




 





 





 





 





 





 



 placeholder wrapped string. 




2331




 





 





 





 





 





 



   




2332




 





 





 





 





 





 



 If the following statement 




2333




 





 





 





 





 





 



   




2334




 





 





 





 





 





 



   $dbi->insert({price => 100}, table => 'book', 




2335




 





 





 





 





 





 



     {price => sub { "$_[0] + 5" }}); 




2336




 





 





 





 





 





 



   




2337




 





 





 





 





 





 



 is executed, the following SQL is executed. 




2338




 





 





 





 





 





 



   




2339




 





 





 





 





 





 



   insert into book price values ( ? + 5 ); 




2340




 





 





 





 





 





 



   




2341




 





 





 





 





 





 



 =back 




2342




 





 





 





 





 





 



   




2343




 





 





 





 





 





 



 =over 4 




2344




 





 





 





 





 





 



   




2345




 





 





 





 





 





 



 =head2 include_model 




2346




 





 





 





 





 





 



   




2347




 





 





 





 





 





 



   $dbi->include_model('MyModel'); 




2348




 





 





 





 





 





 



   




2349




 





 





 





 





 





 



 Include models from specified namespace, 




2350




 





 





 





 





 





 



 the following layout is needed to include models. 




2351




 





 





 





 





 





 



   




2352




 





 





 





 





 





 



   lib / MyModel.pm 




2353




 





 





 





 





 





 



       / MyModel / book.pm 




2354




 





 





 





 





 





 



                 / company.pm 




2355




 





 





 





 





 





 



   




2356




 





 





 





 





 





 



 Name space module, extending L. 




2357




 





 





 





 





 





 



   




2358




 





 





 





 





 





 



 B 




2359




 





 





 





 





 





 



   




2360




 





 





 





 





 





 



   package MyModel; 




2361




 





 





 





 





 





 



   use DBIx::Custom::Model -base; 




2362




 





 





 





 





 





 



    




2363




 





 





 





 





 





 



   1; 




2364




 





 





 





 





 





 



   




2365




 





 





 





 





 





 



 Model modules, extending name space module. 




2366




 





 





 





 





 





 



   




2367




 





 





 





 





 





 



 B 




2368




 





 





 





 





 





 



   




2369




 





 





 





 





 





 



   package MyModel::book; 




2370




 





 





 





 





 





 



   use MyModel -base; 




2371




 





 





 





 





 





 



    




2372




 





 





 





 





 





 



   1; 




2373




 





 





 





 





 





 



   




2374




 





 





 





 





 





 



 B 




2375




 





 





 





 





 





 



   




2376




 





 





 





 





 





 



   package MyModel::company; 




2377




 





 





 





 





 





 



   use MyModel -base; 




2378




 





 





 





 





 





 



    




2379




 





 





 





 





 





 



   1; 




2380




 





 





 





 





 





 



    




2381




 





 





 





 





 





 



 MyModel::book and MyModel::company is included by C. 




2382




 





 





 





 





 





 



   




2383




 





 





 





 





 





 



 You can get model object by C. 




2384




 





 





 





 





 





 



   




2385




 





 





 





 





 





 



   my $book_model = $dbi->model('book'); 




2386




 





 





 





 





 





 



   my $company_model = $dbi->model('company'); 




2387




 





 





 





 





 





 



   




2388




 





 





 





 





 





 



 You can include full-qualified table name like C 




2389




 





 





 





 





 





 



   




2390




 





 





 





 





 





 



   lib / MyModel.pm 




2391




 





 





 





 





 





 



       / MyModel / main / book.pm 




2392




 





 





 





 





 





 



                        / company.pm 




2393




 





 





 





 





 





 



   




2394




 





 





 





 





 





 



   my $main_book = $self->model('main.book'); 




2395




 





 





 





 





 





 



   




2396




 





 





 





 





 





 



 See L to know model features. 




2397




 





 





 





 





 





 



   




2398




 





 





 





 





 





 



 =head2 like_value 




2399




 





 





 





 





 





 



   




2400




 





 





 





 





 





 



   my $like_value = $dbi->like_value 




2401




 





 





 





 





 





 



   




2402




 





 





 





 





 





 



 Code reference which return a value for the like value. 




2403




 





 





 





 





 





 



   




2404




 





 





 





 





 





 



   sub { "%$_[0]%" } 




2405




 





 





 





 





 





 



   




2406




 





 





 





 





 





 



 =head2 mapper 




2407




 





 





 





 





 





 



   




2408




 





 





 





 





 





 



   my $mapper = $dbi->mapper(param => $param); 




2409




 





 





 





 





 





 



   




2410




 





 





 





 





 





 



 Create a new L object. 




2411




 





 





 





 





 





 



   




2412




 





 





 





 





 





 



 =head2 merge_param 




2413




 





 





 





 





 





 



   




2414




 





 





 





 





 





 



   my $param = $dbi->merge_param({key1 => 1}, {key1 => 1, key2 => 2}); 




2415




 





 





 





 





 





 



   




2416




 





 





 





 





 





 



 Merge parameters. The following new parameter is created. 




2417




 





 





 





 





 





 



   




2418




 





 





 





 





 





 



   {key1 => [1, 1], key2 => 2} 




2419




 





 





 





 





 





 



   




2420




 





 





 





 





 





 



 If same keys contains, the value is converted to array reference. 




2421




 





 





 





 





 





 



   




2422




 





 





 





 





 





 



 =head2 model 




2423




 





 





 





 





 





 



   




2424




 





 





 





 





 





 



   my $model = $dbi->model('book'); 




2425




 





 





 





 





 





 



   




2426




 





 





 





 





 





 



 Get a L object 




2427




 





 





 





 





 





 



 create by C or C 




2428




 





 





 





 





 





 



   




2429




 





 





 





 





 





 



 =head2 mycolumn 




2430




 





 





 





 





 





 



   




2431




 





 





 





 





 





 



   my $column = $dbi->mycolumn(book => ['author', 'title']); 




2432




 





 





 





 





 





 



   




2433




 





 





 





 





 





 



 Create column clause for myself. The following column clause is created. 




2434




 





 





 





 





 





 



   




2435




 





 





 





 





 





 



   book.author as author, 




2436




 





 





 





 





 





 



   book.title as title 




2437




 





 





 





 





 





 



   




2438




 





 





 





 





 





 



 =head2 new 




2439




 





 





 





 





 





 



   




2440




 





 





 





 





 





 



   my $dbi = DBIx::Custom->new( 




2441




 





 





 





 





 





 



     dsn => "dbi:mysql:database=dbname", 




2442




 





 





 





 





 





 



     user => 'ken', 




2443




 





 





 





 





 





 



     password => '!LFKD%$&', 




2444




 





 





 





 





 





 



     option => {mysql_enable_utf8 => 1} 




2445




 





 





 





 





 





 



   ); 




2446




 





 





 





 





 





 



   




2447




 





 





 





 





 





 



 Create a new L object. 




2448




 





 





 





 





 





 



   




2449




 





 





 





 





 





 



 =head2 not_exists 




2450




 





 





 





 





 





 



   




2451




 





 





 





 





 





 



   my $not_exists = $dbi->not_exists; 




2452




 





 





 





 





 





 



   




2453




 





 





 





 





 





 



 DBIx::Custom::NotExists object, indicating the column is not exists. 




2454




 





 





 





 





 





 



 This is used in C of L . 




2455




 





 





 





 





 





 



   




2456




 





 





 





 





 





 



 =head2 order 




2457




 





 





 





 





 





 



   




2458




 





 





 





 





 





 



   my $order = $dbi->order; 




2459




 





 





 





 





 





 



   




2460




 





 





 





 





 





 



 Create a new L object. 




2461




 





 





 





 





 





 



   




2462




 





 





 





 





 





 



 =head2 q 




2463




 





 





 





 





 





 



   




2464




 





 





 





 





 





 



   my $quooted = $dbi->q("title"); 




2465




 





 





 





 





 





 



   




2466




 





 





 





 





 





 



 Quote string by value of C. 




2467




 





 





 





 





 





 



   




2468




 





 





 





 





 





 



 =head2 register_filter 




2469




 





 





 





 





 





 



   




2470




 





 





 





 





 





 



   $dbi->register_filter( 




2471




 





 





 





 





 





 



     # Time::Piece object to database DATE format 




2472




 





 





 





 





 





 



     tp_to_date => sub { 




2473




 





 





 





 





 





 



       my $tp = shift; 




2474




 





 





 





 





 





 



       return $tp->strftime('%Y-%m-%d'); 




2475




 





 





 





 





 





 



     }, 




2476




 





 





 





 





 





 



     # database DATE format to Time::Piece object 




2477




 





 





 





 





 





 



     date_to_tp => sub { 




2478




 





 





 





 





 





 



       my $date = shift; 




2479




 





 





 





 





 





 



       return Time::Piece->strptime($date, '%Y-%m-%d'); 




2480




 





 





 





 





 





 



     } 




2481




 





 





 





 





 





 



   ); 




2482




 





 





 





 





 





 



    




2483




 





 





 





 





 





 



 Register filters, used by C option of many methods. 




2484




 





 





 





 





 





 



   




2485




 





 





 





 





 





 



 =head2 select 




2486




 





 





 





 





 





 



   




2487




 





 





 





 





 





 



   my $result = $dbi->select( 




2488




 





 





 





 





 





 



     column => ['author', 'title'], 




2489




 





 





 





 





 





 



     table  => 'book', 




2490




 





 





 





 





 





 



     where  => {author => 'Ken'}, 




2491




 





 





 





 





 





 



   ); 




2492




 





 





 





 





 





 



    




2493




 





 





 





 





 





 



 Execute select statement. 




2494




 





 





 





 





 





 



   




2495




 





 





 





 





 





 



 You can pass odd number arguments. first argument is C. 




2496




 





 





 





 





 





 



   




2497




 





 





 





 





 





 



   my $result = $dbi->select(['author', 'title'], table => 'book'); 




2498




 





 





 





 





 





 



   




2499




 





 





 





 





 





 



 B 




2500




 





 





 





 





 





 



   




2501




 





 





 





 





 





 



 C method use all of C method's options, 




2502




 





 





 





 





 





 



 and use the following new ones. 




2503




 





 





 





 





 





 



   




2504




 





 





 





 





 





 



 =over 4 




2505




 





 





 





 





 





 



   




2506




 





 





 





 





 





 



 =item column 




2507




 





 





 





 





 





 



    




2508




 





 





 





 





 





 



   column => 'author' 




2509




 





 





 





 





 





 



   column => ['author', 'title'] 




2510




 





 





 





 





 





 



   




2511




 





 





 





 





 





 



 Column clause. 




2512




 





 





 





 





 





 



    




2513




 





 





 





 





 





 



 if C is not specified, '*' is set. 




2514




 





 





 





 





 





 



   




2515




 





 





 





 





 





 



   column => '*' 




2516




 





 





 





 





 





 



   




2517




 





 





 





 





 





 



 You can specify hash of array reference. 




2518




 





 





 





 





 





 



   




2519




 





 





 





 





 





 



   column => [ 




2520




 





 





 





 





 





 



     {book => [qw/author title/]}, 




2521




 





 





 





 





 





 



     {person => [qw/name age/]} 




2522




 





 





 





 





 





 



   ] 




2523




 





 





 





 





 





 



   




2524




 





 





 





 





 





 



 This is expanded to the following one by using C method. 




2525




 





 





 





 





 





 



   




2526




 





 





 





 





 





 



   book.author as "book.author", 




2527




 





 





 





 





 





 



   book.title as "book.title", 




2528




 





 





 





 





 





 



   person.name as "person.name", 




2529




 





 





 





 





 





 



   person.age as "person.age" 




2530




 





 





 





 





 





 



   




2531




 





 





 





 





 





 



 You can specify own column by C<__MY__>. 




2532




 





 





 





 





 





 



   




2533




 





 





 





 





 





 



   column => [ 




2534




 





 





 





 





 





 



     {__MY__ => [qw/author title/]}, 




2535




 





 





 





 





 





 



   ] 




2536




 





 





 





 





 





 



   




2537




 





 





 





 





 





 



 This is expanded to the following one by using C method. 




2538




 





 





 





 





 





 



   




2539




 





 





 





 





 





 



   book.author as "author", 




2540




 





 





 





 





 





 



   book.title as "title", 




2541




 





 





 





 





 





 



   




2542




 





 





 





 





 





 



 C<__MY__> can be changed by C attribute. 




2543




 





 





 





 





 





 



   




2544




 





 





 





 





 





 



 =item param 




2545




 





 





 





 





 





 



   




2546




 





 





 





 





 





 



   param => {'table2.key3' => 5} 




2547




 





 





 





 





 





 



   




2548




 





 





 





 





 





 



 Parameter shown before where clause. 




2549




 





 





 





 





 





 



    




2550




 





 





 





 





 





 



 For example, if you want to contain named placeholder in join clause,  




2551




 





 





 





 





 





 



 you can pass parameter by C option. 




2552




 





 





 





 





 





 



   




2553




 





 





 





 





 





 



   join  => ['inner join (select * from table2 where table2.key3 = :table2.key3)' .  




2554




 





 





 





 





 





 



             ' as table2 on table1.key1 = table2.key1'] 




2555




 





 





 





 





 





 



   




2556




 





 





 





 





 





 



 =item prefix 




2557




 





 





 





 





 





 



   




2558




 





 





 





 





 





 



   prefix => 'SQL_CALC_FOUND_ROWS' 




2559




 





 





 





 





 





 



   




2560




 





 





 





 





 





 



 Prefix of column clause 




2561




 





 





 





 





 





 



   




2562




 





 





 





 





 





 



   select SQL_CALC_FOUND_ROWS title, author from book; 




2563




 





 





 





 





 





 



   




2564




 





 





 





 





 





 



 =item join 




2565




 





 





 





 





 





 



   




2566




 





 





 





 





 





 



   join => [ 




2567




 





 





 





 





 





 



     'left outer join company on book.company_id = company_id', 




2568




 





 





 





 





 





 



     'left outer join location on company.location_id = location.id' 




2569




 





 





 





 





 





 



   ] 




2570




 





 





 





 





 





 



        




2571




 





 





 





 





 





 



 Join clause. If column clause or where clause contain table name like "company.name", 




2572




 





 





 





 





 





 



 join clauses needed when SQL is created is used automatically. 




2573




 





 





 





 





 





 



   




2574




 





 





 





 





 





 



   $dbi->select( 




2575




 





 





 





 





 





 



     table => 'book', 




2576




 





 





 





 





 





 



     column => ['company.location_id as location_id'], 




2577




 





 





 





 





 





 



     where => {'company.name' => 'Orange'}, 




2578




 





 





 





 





 





 



     join => [ 




2579




 





 





 





 





 





 



       'left outer join company on book.company_id = company.id', 




2580




 





 





 





 





 





 



       'left outer join location on company.location_id = location.id' 




2581




 





 





 





 





 





 



     ] 




2582




 





 





 





 





 





 



   ); 




2583




 





 





 





 





 





 



   




2584




 





 





 





 





 





 



 In above select, column and where clause contain "company" table, 




2585




 





 





 





 





 





 



 the following SQL is created 




2586




 





 





 





 





 





 



   




2587




 





 





 





 





 





 



   select company.location_id as location_id 




2588




 





 





 





 





 





 



   from book 




2589




 





 





 





 





 





 



     left outer join company on book.company_id = company.id 




2590




 





 





 





 





 





 



   where company.name = ?; 




2591




 





 





 





 





 





 



   




2592




 





 





 





 





 





 



 You can specify two table by yourself. This is useful when join parser can't parse 




2593




 





 





 





 





 





 



 the join clause correctly. 




2594




 





 





 





 





 





 



   




2595




 





 





 





 





 





 



   $dbi->select( 




2596




 





 





 





 





 





 



     table => 'book', 




2597




 





 





 





 





 





 



     column => ['company.location_id as location_id'], 




2598




 





 





 





 





 





 



     where => {'company.name' => 'Orange'}, 




2599




 





 





 





 





 





 



     join => [ 




2600




 





 





 





 





 





 



       { 




2601




 





 





 





 





 





 



         clause => 'left outer join location on company.location_id = location.id', 




2602




 





 





 





 





 





 



         table => ['company', 'location'] 




2603




 





 





 





 





 





 



       } 




2604




 





 





 





 





 





 



     ] 




2605




 





 





 





 





 





 



   ); 




2606




 





 





 





 





 





 



   




2607




 





 





 





 





 





 



 =item table 




2608




 





 





 





 





 





 



   




2609




 





 





 





 





 





 



   table => 'book' 




2610




 





 





 





 





 





 



   




2611




 





 





 





 





 





 



 Table name. 




2612




 





 





 





 





 





 



   




2613




 





 





 





 





 





 



 =item where 




2614




 





 





 





 





 





 



    




2615




 





 





 





 





 





 



   # (1) Hash reference 




2616




 





 





 





 





 





 



   where => {author => 'Ken', 'title' => ['Perl', 'Ruby']} 




2617




 





 





 





 





 





 



   # -> where author = 'Ken' and title in ('Perl', 'Ruby') 




2618




 





 





 





 





 





 



    




2619




 





 





 





 





 





 



   # (2) DBIx::Custom::Where object 




2620




 





 





 





 





 





 



   where => $dbi->where( 




2621




 





 





 





 





 





 



     clause => ['and', ':author{=}', ':title{like}'], 




2622




 





 





 





 





 





 



     param  => {author => 'Ken', title => '%Perl%'} 




2623




 





 





 





 





 





 



   ) 




2624




 





 





 





 





 





 



   # -> where author = 'Ken' and title like '%Perl%' 




2625




 





 





 





 





 





 



    




2626




 





 





 





 





 





 



   # (3) Array reference[where clause, parameters, join(optional)] 




2627




 





 





 





 





 





 



   where => [ 




2628




 





 





 





 





 





 



     ['and', ':author{=}', ':title{like}'], 




2629




 





 





 





 





 





 



     {author => 'Ken', title => '%Perl%'}, 




2630




 





 





 





 





 





 



     ["left outer join table2 on table1.key1 = table2.key1"] 




2631




 





 





 





 





 





 



   ] 




2632




 





 





 





 





 





 



   # -> where author = 'Ken' and title like '%Perl%' 




2633




 





 





 





 





 





 



    




2634




 





 





 





 





 





 



   # (4) Array reference[String, Hash reference] 




2635




 





 





 





 





 





 



   where => [ 




2636




 





 





 





 





 





 



     ':author{=} and :title{like}', 




2637




 





 





 





 





 





 



     {author => 'Ken', title => '%Perl%'} 




2638




 





 





 





 





 





 



   ] 




2639




 





 





 





 





 





 



   #  -> where author = 'Ken' and title like '%Perl%' 




2640




 





 





 





 





 





 



    




2641




 





 





 





 





 





 



   # (5) String 




2642




 





 





 





 





 





 



   where => 'title is null' 




2643




 





 





 





 





 





 



   #  -> where title is null 




2644




 





 





 





 





 





 



   




2645




 





 





 





 





 





 



 Where clause. 




2646




 





 





 





 





 





 



 See also L to know how to create where clause. 




2647




 





 





 





 





 





 



    




2648




 





 





 





 





 





 



 =back 




2649




 





 





 





 





 





 



   




2650




 





 





 





 





 





 



 =head2 type_rule 




2651




 





 





 





 





 





 



   




2652




 





 





 





 





 





 



   $dbi->type_rule( 




2653




 





 





 





 





 





 



     into1 => { 




2654




 





 





 





 





 





 



       date => sub { ... }, 




2655




 





 





 





 





 





 



       datetime => sub { ... } 




2656




 





 





 





 





 





 



     }, 




2657




 





 





 





 





 





 



     into2 => { 




2658




 





 





 





 





 





 



       date => sub { ... }, 




2659




 





 





 





 





 





 



       datetime => sub { ... } 




2660




 





 





 





 





 





 



     }, 




2661




 





 





 





 





 





 



     from1 => { 




2662




 





 





 





 





 





 



       # DATE 




2663




 





 





 





 





 





 



       9 => sub { ... }, 




2664




 





 





 





 





 





 



       # DATETIME or TIMESTAMP 




2665




 





 





 





 





 





 



       11 => sub { ... }, 




2666




 





 





 





 





 





 



     } 




2667




 





 





 





 





 





 



     from2 => { 




2668




 





 





 





 





 





 



       # DATE 




2669




 





 





 





 





 





 



       9 => sub { ... }, 




2670




 





 





 





 





 





 



       # DATETIME or TIMESTAMP 




2671




 





 





 





 





 





 



       11 => sub { ... }, 




2672




 





 





 





 





 





 



     } 




2673




 





 





 





 





 





 



   ); 




2674




 





 





 





 





 





 



   




2675




 





 





 





 





 





 



 Filtering rule when data is send into and get from database. 




2676




 





 





 





 





 





 



 This has a little complex problem. 




2677




 





 





 





 





 





 



   




2678




 





 





 





 





 





 



 In C and C you can specify 




2679




 





 





 





 





 





 



 type name as same as type name defined 




2680




 





 





 





 





 





 



 by create table, such as C or C. 




2681




 





 





 





 





 





 



   




2682




 





 





 





 





 





 



 Note that type name and data type don't contain upper case. 




2683




 





 





 





 





 





 



 If these contain upper case character, you convert it to lower case. 




2684




 





 





 





 





 





 



   




2685




 





 





 





 





 





 



 C is executed after C. 




2686




 





 





 





 





 





 



   




2687




 





 





 





 





 





 



 Type rule of C and C is enabled on the following 




2688




 





 





 





 





 





 



 column name. 




2689




 





 





 





 





 





 



   




2690




 





 





 





 





 





 



 =over 4 




2691




 





 





 





 





 





 



   




2692




 





 





 





 





 





 



 =item 1. column name 




2693




 





 





 





 





 





 



   




2694




 





 





 





 





 





 



   issue_date 




2695




 





 





 





 





 





 



   issue_datetime 




2696




 





 





 





 





 





 



   




2697




 





 





 





 





 





 



 This need C option in each method. 




2698




 





 





 





 





 





 



   




2699




 





 





 





 





 





 



 =item 2. table name and column name, separator is dot 




2700




 





 





 





 





 





 



   




2701




 





 





 





 





 





 



   book.issue_date 




2702




 





 





 





 





 





 



   book.issue_datetime 




2703




 





 





 





 





 





 



   




2704




 





 





 





 





 





 



 =back 




2705




 





 





 





 





 





 



   




2706




 





 





 





 





 





 



 You get all type name used in database by C. 




2707




 





 





 





 





 





 



   




2708




 





 





 





 





 





 



   print $dbi->available_typename; 




2709




 





 





 





 





 





 



   




2710




 





 





 





 





 





 



 In C and C you specify data type, not type name. 




2711




 





 





 





 





 





 



 C is executed after C. 




2712




 





 





 





 





 





 



 You get all data type by C. 




2713




 





 





 





 





 





 



   




2714




 





 





 





 





 





 



   print $dbi->available_datatype; 




2715




 





 





 





 





 





 



   




2716




 





 





 





 





 





 



 You can also specify multiple types at once. 




2717




 





 





 





 





 





 



   




2718




 





 





 





 





 





 



   $dbi->type_rule( 




2719




 





 





 





 





 





 



     into1 => [ 




2720




 





 





 





 





 





 



       [qw/DATE DATETIME/] => sub { ... }, 




2721




 





 





 





 





 





 



     ], 




2722




 





 





 





 





 





 



   ); 




2723




 





 





 





 





 





 



   




2724




 





 





 





 





 





 



 =head2 update 




2725




 





 





 





 





 





 



   




2726




 





 





 





 





 





 



   $dbi->update({title => 'Perl'}, table  => 'book', where  => {id => 4}); 




2727




 





 





 





 





 





 



   




2728




 





 





 





 





 





 



 Execute update statement. First argument is update row data. 




2729




 





 





 





 





 





 



   




2730




 





 





 





 





 





 



 If you want to set constant value to row data, use scalar reference 




2731




 





 





 





 





 





 



 as parameter value. 




2732




 





 





 





 





 





 



   




2733




 





 





 





 





 





 



   {date => \"NOW()"} 




2734




 





 





 





 





 





 



   




2735




 





 





 





 





 





 



 B 




2736




 





 





 





 





 





 



   




2737




 





 





 





 





 





 



 C method use all of C method's options, 




2738




 





 





 





 





 





 



 and use the following new ones. 




2739




 





 





 





 





 





 



   




2740




 





 





 





 





 





 



 =over 4 




2741




 





 





 





 





 





 



   




2742




 





 





 





 





 





 



 =item prefix 




2743




 





 





 





 





 





 



   




2744




 





 





 





 





 





 



   prefix => 'or replace' 




2745




 





 





 





 





 





 



   




2746




 





 





 





 





 





 



 prefix before table name section 




2747




 





 





 





 





 





 



   




2748




 





 





 





 





 





 



   update or replace book 




2749




 





 





 





 





 





 



   




2750




 





 





 





 





 





 



 =item table 




2751




 





 





 





 





 





 



   




2752




 





 





 





 





 





 



   table => 'book' 




2753




 





 





 





 





 





 



   




2754




 





 





 





 





 





 



 Table name. 




2755




 





 





 





 





 





 



   




2756




 





 





 





 





 





 



 =item where 




2757




 





 





 





 





 





 



   




2758




 





 





 





 





 





 



 Same as C method's C option. 




2759




 





 





 





 





 





 



   




2760




 





 





 





 





 





 



 =item wrap 




2761




 





 





 





 





 





 



   




2762




 





 





 





 





 





 



   wrap => {price => sub { "max($_[0])" }} 




2763




 





 





 





 





 





 



   




2764




 





 





 





 





 





 



 placeholder wrapped string. 




2765




 





 





 





 





 





 



   




2766




 





 





 





 





 





 



 If the following statement 




2767




 





 





 





 





 





 



   




2768




 





 





 





 





 





 



   $dbi->update({price => 100}, table => 'book', 




2769




 





 





 





 





 





 



     {price => sub { "$_[0] + 5" }}); 




2770




 





 





 





 





 





 



   




2771




 





 





 





 





 





 



 is executed, the following SQL is executed. 




2772




 





 





 





 





 





 



   




2773




 





 





 





 





 





 



   update book set price =  ? + 5; 




2774




 





 





 





 





 





 



   




2775




 





 





 





 





 





 



 =item mtime 




2776




 





 





 





 





 





 



   




2777




 





 





 





 





 





 



   mtime => 'modified_time' 




2778




 





 





 





 





 





 



   




2779




 





 





 





 





 





 



 Modified time column name. time row is updated is set to the column. 




2780




 





 





 





 





 





 



 default time format is C, which can be changed by 




2781




 





 





 





 





 





 



 C attribute. 




2782




 





 





 





 





 





 



   




2783




 





 





 





 





 





 



 =back 




2784




 





 





 





 





 





 



   




2785




 





 





 





 





 





 



 =head2 update_all 




2786




 





 





 





 





 





 



   




2787




 





 





 





 





 





 



   $dbi->update_all({title => 'Perl'}, table => 'book', ); 




2788




 





 





 





 





 





 



   




2789




 





 





 





 





 





 



 Execute update statement for all rows. 




2790




 





 





 





 





 





 



 Options is same as C method. 




2791




 





 





 





 





 





 



   




2792




 





 





 





 





 





 



 =over 4 




2793




 





 





 





 





 





 



   




2794




 





 





 





 





 





 



 =item option 




2795




 





 





 





 





 





 



   




2796




 





 





 





 





 





 



   option => { 




2797




 





 





 





 





 





 



     select => { 




2798




 





 





 





 





 





 



       append => '...' 




2799




 





 





 





 





 





 



     }, 




2800




 





 





 





 





 





 



     insert => { 




2801




 





 





 





 





 





 



       prefix => '...' 




2802




 





 





 





 





 





 



     }, 




2803




 





 





 





 





 





 



     update => { 




2804




 





 





 





 





 





 



       filter => {} 




2805




 





 





 





 





 





 



     } 




2806




 





 





 





 





 





 



   } 




2807




 





 





 





 





 





 



   




2808




 





 





 





 





 





 



 If you want to pass option to each method, 




2809




 





 





 





 





 





 



 you can use C option. 




2810




 





 





 





 





 





 



   




2811




 





 





 





 





 





 



 =over 4 




2812




 





 





 





 





 





 



   




2813




 





 





 





 





 





 



 =item select_option 




2814




 





 





 





 





 





 



   




2815




 





 





 





 





 





 



   select_option => {append => 'for update'} 




2816




 





 





 





 





 





 



   




2817




 





 





 





 





 





 



 select method option, 




2818




 





 





 





 





 





 



 select method is used to check the row is already exists. 




2819




 





 





 





 





 





 



   




2820




 





 





 





 





 





 



 =head2 show_datatype 




2821




 





 





 





 





 





 



   




2822




 





 





 





 





 





 



   $dbi->show_datatype($table); 




2823




 





 





 





 





 





 



   




2824




 





 





 





 





 





 



 Show data type of the columns of specified table. 




2825




 





 





 





 





 





 



   




2826




 





 





 





 





 





 



   book 




2827




 





 





 





 





 





 



   title: 5 




2828




 





 





 





 





 





 



   issue_date: 91 




2829




 





 





 





 





 





 



   




2830




 





 





 





 





 





 



 This data type is used in C's C and C. 




2831




 





 





 





 





 





 



   




2832




 





 





 





 





 





 



 =head2 show_tables 




2833




 





 





 





 





 





 



   




2834




 





 





 





 





 





 



   $dbi->show_tables; 




2835




 





 





 





 





 





 



   




2836




 





 





 





 





 





 



 Show tables. 




2837




 





 





 





 





 





 



   




2838




 





 





 





 





 





 



 =head2 show_typename 




2839




 





 





 





 





 





 



   




2840




 





 





 





 





 





 



   $dbi->show_typename($table); 




2841




 





 





 





 





 





 



   




2842




 





 





 





 





 





 



 Show type name of the columns of specified table. 




2843




 





 





 





 





 





 



   




2844




 





 





 





 





 





 



   book 




2845




 





 





 





 





 





 



   title: varchar 




2846




 





 





 





 





 





 



   issue_date: date 




2847




 





 





 





 





 





 



   




2848




 





 





 





 





 





 



 This type name is used in C's C and C. 




2849




 





 





 





 





 





 



   




2850




 





 





 





 





 





 



 =head2 values_clause 




2851




 





 





 





 





 





 



   




2852




 





 





 





 





 





 



   my $values_clause = $dbi->values_clause({title => 'a', age => 2}); 




2853




 





 





 





 





 





 



   




2854




 





 





 





 





 





 



 Create values clause. 




2855




 





 





 





 





 





 



   




2856




 





 





 





 





 





 



   (title, author) values (title = :title, age = :age); 




2857




 





 





 





 





 





 



   




2858




 





 





 





 





 





 



 You can use this in insert statement. 




2859




 





 





 





 





 





 



   




2860




 





 





 





 





 





 



   my $insert_sql = "insert into book $values_clause"; 




2861




 





 





 





 





 





 



   




2862




 





 





 





 





 





 



 =head2 where 




2863




 





 





 





 





 





 



   




2864




 





 





 





 





 





 



   my $where = $dbi->where; 




2865




 





 





 





 





 





 



   $where->clause(['and', 'title = :title', 'author = :author']); 




2866




 





 





 





 





 





 



   $where->param({title => 'Perl', author => 'Ken'}); 




2867




 





 





 





 





 





 



   $where->join(['left join author on book.author = author.id]); 




2868




 





 





 





 





 





 



   




2869




 





 





 





 





 





 



 Create a new L object. 




2870




 





 





 





 





 





 



 See L to know how to create where clause. 




2871




 





 





 





 





 





 



   




2872




 





 





 





 





 





 



 =head1 ENVIRONMENTAL VARIABLES 




2873




 





 





 





 





 





 



   




2874




 





 





 





 





 





 



 =head2 DBIX_CUSTOM_DEBUG 




2875




 





 





 





 





 





 



   




2876




 





 





 





 





 





 



 If environment variable C is set to true, 




2877




 





 





 





 





 





 



 executed SQL and bind values are printed to STDERR. 




2878




 





 





 





 





 





 



   




2879




 





 





 





 





 





 



 =head2 DBIX_CUSTOM_DEBUG_ENCODING 




2880




 





 





 





 





 





 



   




2881




 





 





 





 





 





 



 DEBUG output encoding. Default to UTF-8. 




2882




 





 





 





 





 





 



   




2883




 





 





 





 





 





 



 =head2 DBIX_CUSTOM_SUPPRESS_DEPRECATION 




2884




 





 





 





 





 





 



   




2885




 





 





 





 





 





 



   $ENV{DBIX_CUSTOM_SUPPRESS_DEPRECATION} = '0.25'; 




2886




 





 





 





 





 





 



   




2887




 





 





 





 





 





 



 Suppress deprecation warnings before specified version. 




2888




 





 





 





 





 





 



   




2889




 





 





 





 





 





 



 =head1 DEPRECATED FUNCTIONALITY 




2890




 





 





 





 





 





 



   




2891




 





 





 





 





 





 



 L 




2892




 





 





 





 





 





 



   




2893




 





 





 





 





 





 



   # Methods 




2894




 





 





 





 





 





 



   DBIx::Custom AUTOLOAD feature # will be removed at 2022/5/1 




2895




 





 





 





 





 





 



   DBIx::Custom::helper method # will be removed at 2022/5/1 




2896




 





 





 





 





 





 



   DBIx::Custom::update_or_insert method is DEPRECATED! # will be removed at 2022/5/1 




2897




 





 





 





 





 





 



   DBIx::Custom::count method # will be removed at 2022/5/1 




2898




 





 





 





 





 





 



   DBIx::Custom::select,update,delete method's primary_key option is DEPRECATED! # will be removed at 2022/5/1 




2899




 





 





 





 





 





 



   DBIx::Custom::select,update,delete method's id option is DEPRECATED! # will be removed at 2022/5/1 




2900




 





 





 





 





 





 



   DBIx::Custom::setup method is DEPRECATED! # will be removed at 2022/5/1 




2901




 





 





 





 





 





 



   




2902




 





 





 





 





 





 



 L 




2903




 





 





 





 





 





 



    




2904




 





 





 





 





 





 



   # Options 




2905




 





 





 





 





 





 



   kv method's multi option (from 0.28) # will be removed at 2018/3/1 




2906




 





 





 





 





 





 



   




2907




 





 





 





 





 





 



 L 




2908




 





 





 





 





 





 



   




2909




 





 





 





 





 





 



   DBIx::Custom::Model AUTOLOAD feature # will be removed at 2022/5/1 




2910




 





 





 





 





 





 



   DBIx::Custom::Model::helper method is DEPRECATED! # will be removed at 2022/5/1 




2911




 





 





 





 





 





 



   DBIx::Custom::Model::update_or_insert method is DEPRECATED! # will be removed at 2022/5/1 




2912




 





 





 





 





 





 



   DBIx::Custom::Model::count method # will be removed at 2022/5/1 




2913




 





 





 





 





 





 



   DBIx::Custom::Model::primary_key attribute is DEPRECATED! # will be removed at 2022/5/1 




2914




 





 





 





 





 





 



   




2915




 





 





 





 





 





 



 =head1 BACKWARDS COMPATIBILITY POLICY 




2916




 





 





 





 





 





 



   




2917




 





 





 





 





 





 



 If a feature is DEPRECATED, you can know it by DEPRECATED warnings. 




2918




 





 





 





 





 





 



 DEPRECATED feature is removed after C, 




2919




 





 





 





 





 





 



 but if at least one person use the feature and tell me that thing 




2920




 





 





 





 





 





 



 I extend one year each time he tell me it. 




2921




 





 





 





 





 





 



   




2922




 





 





 





 





 





 



 DEPRECATION warnings can be suppressed by C 




2923




 





 





 





 





 





 



 environment variable. 




2924




 





 





 





 





 





 



   




2925




 





 





 





 





 





 



 EXPERIMENTAL features will be changed or deleted without warnings. 




2926




 





 





 





 





 





 



   




2927




 





 





 





 





 





 



 =head1 BUGS 




2928




 





 





 





 





 





 



   




2929




 





 





 





 





 





 



 Please tell me bugs if you find bug. 




2930




 





 





 





 





 





 



   




2931




 





 





 





 





 





 



 C<<  >> 




2932




 





 





 





 





 





 



   




2933




 





 





 





 





 





 



 L 




2934




 





 





 





 





 





 



   




2935




 





 





 





 





 





 



 =head1 AUTHOR 




2936




 





 





 





 





 





 



   




2937




 





 





 





 





 





 



 Yuki Kimoto, C<<  >> 




2938




 





 





 





 





 





 



   




2939




 





 





 





 





 





 



 =head1 COPYRIGHT & LICENSE 




2940




 





 





 





 





 





 



   




2941




 





 





 





 





 





 



 Copyright 2009-2019 Yuki Kimoto, all rights reserved. 




2942




 





 





 





 





 





 



   




2943




 





 





 





 





 





 



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




2944




 





 





 





 





 





 



 under the same terms as Perl itself. 




2945




 





 





 





 





 





 



   




2946




 





 





 





 





 





 



 =cut

If C is set, C method use C
information, you can improve the performance of C in
the following way.

  my $table_infos = $dbi->get_table_info(exclude => qr/^system_/);
  $dbi->user_table_info($table_info);
  $dbi->each_table(sub { ... });

=head2 execute

  my $result = $dbi->execute(
    "select * from book where title = :title and author like :author",
    {title => 'Perl', author => '%Ken%'}
  );

  my $result = $dbi->execute(
    "select * from book where title = :book.title and author like :book.author",
    {'book.title' => 'Perl', 'book.author' => '%Ken%'}
  );

Execute SQL. SQL can contain column parameter such as :author and :title.
You can append table name to column name such as :book.title and :book.author.
Second argument is data, embedded into column parameter.
Return value is L object when select statement is executed,
or the count of affected rows when insert, update, delete statement is executed.

Named placeholder such as C<:title> is replaced by placeholder C.

  # Original
  select * from book where title = :title and author like :author

  # Replaced
  select * from where title = ? and author like ?;

You can specify operator with named placeholder
by C syntax.

  # Original
  select * from book where :title{=} and :author{like}

  # Replaced
  select * from where title = ? and author like ?;

Note that colons in time format such as 12:13:15 is an exception,
it is not parsed as named placeholder.
If you want to use colon generally, you must escape it by C<\\>

  select * from where title = "aa\\:bb";

B

The following options are available.

=over 4

=item after_build_sql

You can filter sql after the sql is build.

  after_build_sql => $code_ref

The following one is one example.

  $dbi->select(
    table => 'book',
    column => 'distinct(name)',
    after_build_sql => sub {
      "select count(*) from ($_[0]) as t1"
    }
  );

The following SQL is executed.

  select count(*) from (select distinct(name) from book) as t1;

=item append

  append => 'order by name'

Append some statement after SQL.

=item bind_type

Specify database bind data type.

  bind_type => {image => DBI::SQL_BLOB}
  bind_type => [image => DBI::SQL_BLOB]
  bind_type => [[qw/image audio/] => DBI::SQL_BLOB]

This is used to bind parameter by C of statement handle.

  $sth->bind_param($pos, $value, DBI::SQL_BLOB);

=item filter

  filter => {
    title  => sub { uc $_[0] }
    author => sub { uc $_[0] }
  }

  # Filter name
  filter => {
    title  => 'upper_case',
    author => 'upper_case'
  }

  # At once
  filter => [
    [qw/title author/]  => sub { uc $_[0] }
  ]

Filter. You can set subroutine or filter name
registered by C.
This filter is executed before data is saved into database.
and before type rule filter is executed.

=item reuse

  reuse => $hash_ref

Reuse statement handle in same SQL.

  my $reuse = {};
  $dbi->execute($sql, $param, reuse => $reuse);

This will improved performance when you want to execute same sql repeatedly.

=item table

  table => 'author'

If you want to omit table name in column name
and enable C and C type filter,
You must set C option. 




2192




 





 





 





 





 





 



   




2193




 





 





 





 





 





 



   $dbi->execute("select * from book where title = :title and author = :author", 




2194




 





 





 





 





 





 



     {title => 'Perl', author => 'Ken', table => 'book'); 




2195




 





 





 





 





 





 



   




2196




 





 





 





 





 





 



   # Same 




2197




 





 





 





 





 





 



   $dbi->execute( 




2198




 





 





 





 





 





 



     "select * from book where title = :book.title and author = :book.author", 




2199




 





 





 





 





 





 



     {title => 'Perl', author => 'Ken'); 




2200




 





 





 





 





 





 



   




2201




 





 





 





 





 





 



 =item table_alias 




2202




 





 





 





 





 





 



   




2203




 





 





 





 





 





 



   table_alias => {worker => 'user'} # {ALIAS => TABLE} 




2204




 





 





 





 





 





 



   




2205




 





 





 





 





 





 



 Table alias. Key is alias table name, value is real table name, . 




2206




 





 





 





 





 





 



 If you set C, you can enable C and C type rule 




2207




 





 





 





 





 





 



 on alias table name. 




2208




 





 





 





 





 





 



   




2209




 





 





 





 





 





 



 =item type_rule_off 




2210




 





 





 





 





 





 



   




2211




 





 





 





 





 





 



   type_rule_off => 1 




2212




 





 





 





 





 





 



   




2213




 





 





 





 





 





 



 Turn C and C type rule off. 




2214




 





 





 





 





 





 



   




2215




 





 





 





 





 





 



 =item type_rule1_off 




2216




 





 





 





 





 





 



   




2217




 





 





 





 





 





 



   type_rule1_off => 1 




2218




 





 





 





 





 





 



   




2219




 





 





 





 





 





 



 Turn C type rule off. 




2220




 





 





 





 





 





 



   




2221




 





 





 





 





 





 



 =item type_rule2_off 




2222




 





 





 





 





 





 



   




2223




 





 





 





 





 





 



   type_rule2_off => 1 




2224




 





 





 





 





 





 



   




2225




 





 





 





 





 





 



 Turn C type rule off. 




2226




 





 





 





 





 





 



   




2227




 





 





 





 





 





 



 =item prepare_attr 




2228




 





 





 





 





 





 



   




2229




 





 





 





 





 





 



   prepare_attr => {mysql_use_result => 1} 




2230




 





 





 





 





 





 



   




2231




 





 





 





 





 





 



 Statemend handle attributes, 




2232




 





 





 





 





 





 



 this is L's C method second argument. 




2233




 





 





 





 





 





 



   




2234




 





 





 





 





 





 



 =head2 get_column_info 




2235




 





 





 





 





 





 



   




2236




 





 





 





 





 





 



   my $column_infos = $dbi->get_column_info(exclude_table => qr/^system_/); 




2237




 





 





 





 





 





 



   




2238




 





 





 





 





 





 



 get column information except for one which match C pattern. 




2239




 





 





 





 





 





 



   




2240




 





 





 





 





 





 



   [ 




2241




 





 





 





 





 





 



     {table => 'book', column => 'title', info => {...}}, 




2242




 





 





 





 





 





 



     {table => 'author', column => 'name' info => {...}} 




2243




 





 





 





 





 





 



   ] 




2244




 





 





 





 





 





 



   




2245




 





 





 





 





 





 



 =head2 get_table_info 




2246




 





 





 





 





 





 



   




2247




 





 





 





 





 





 



   my $table_infos = $dbi->get_table_info(exclude => qr/^system_/); 




2248




 





 





 





 





 





 



   




2249




 





 





 





 





 





 



 get table information except for one which match C pattern. 




2250




 





 





 





 





 





 



   




2251




 





 





 





 





 





 



   [ 




2252




 





 





 





 





 





 



     {table => 'book', info => {...}}, 




2253




 





 





 





 





 





 



     {table => 'author', info => {...}} 




2254




 





 





 





 





 





 



   ] 




2255




 





 





 





 





 





 



   




2256




 





 





 





 





 





 



 You can set this value to C. 




2257




 





 





 





 





 





 



   




2258




 





 





 





 





 





 



 =head2 insert 




2259




 





 





 





 





 





 



   




2260




 





 





 





 





 





 



   $dbi->insert({title => 'Perl', author => 'Ken'}, table  => 'book'); 




2261




 





 





 





 





 





 



   




2262




 





 





 





 





 





 



 Execute insert statement. First argument is row data. Return value is 




2263




 





 





 





 





 





 



 affected row count. 




2264




 





 





 





 





 





 



   




2265




 





 





 





 





 





 



 If you want to set constant value to row data, use scalar reference 




2266




 





 





 





 





 





 



 as parameter value. 




2267




 





 





 





 





 





 



   




2268




 





 





 





 





 





 



   {date => \"NOW()"} 




2269




 





 





 





 





 





 



   




2270




 





 





 





 





 





 



 You can pass multiple parameters, this is very fast. 




2271




 





 





 





 





 





 



   




2272




 





 





 





 





 





 



   $dbi->insert( 




2273




 





 





 





 





 





 



     [ 




2274




 





 





 





 





 





 



       {title => 'Perl', author => 'Ken'}, 




2275




 





 





 





 





 





 



       {title => 'Ruby', author => 'Tom'} 




2276




 





 





 





 





 





 



     ], 




2277




 





 





 





 





 





 



     table  => 'book' 




2278




 





 





 





 





 





 



   ); 




2279




 





 





 





 





 





 



   




2280




 





 





 





 





 





 



 In multiple insert, you can't use C option. 




2281




 





 





 





 





 





 



 and only first parameter is used to create sql. 




2282




 





 





 





 





 





 



   




2283




 





 





 





 





 





 



 B 




2284




 





 





 





 





 





 



   




2285




 





 





 





 





 





 



 C method use all of C method's options, 




2286




 





 





 





 





 





 



 and use the following new ones. 




2287




 





 





 





 





 





 



   




2288




 





 





 





 





 





 



 =over 4 




2289




 





 





 





 





 





 



   




2290




 





 





 





 





 





 



 =item bulk_insert 




2291




 





 





 





 





 





 



   




2292




 





 





 





 





 





 



   bulk_insert => 1 




2293




 





 





 





 





 





 



   




2294




 





 





 





 





 





 



 bulk insert is executed if database support bulk insert and  




2295




 





 





 





 





 





 



 multiple parameters is passed to C. 




2296




 





 





 





 





 





 



 The SQL like the following one is executed. 




2297




 





 





 





 





 





 



   




2298




 





 





 





 





 





 



   insert into book (id, title) values (?, ?), (?, ?); 




2299




 





 





 





 





 





 



   




2300




 





 





 





 





 





 



 =item ctime 




2301




 





 





 





 





 





 



   




2302




 





 





 





 





 





 



   ctime => 'created_time' 




2303




 





 





 





 





 





 



   




2304




 





 





 





 





 





 



 Created time column name. time when row is created is set to the column. 




2305




 





 





 





 





 





 



 default time format is "YYYY-mm-dd HH:MM:SS", which can be changed by 




2306




 





 





 





 





 





 



 C attribute. 




2307




 





 





 





 





 





 



   




2308




 





 





 





 





 





 



 =item prefix 




2309




 





 





 





 





 





 



   




2310




 





 





 





 





 





 



   prefix => 'or replace' 




2311




 





 





 





 





 





 



   




2312




 





 





 





 





 





 



 prefix before table name section 




2313




 





 





 





 





 





 



   




2314




 





 





 





 





 





 



   insert or replace into book 




2315




 





 





 





 





 





 



   




2316




 





 





 





 





 





 



 =item table 




2317




 





 





 





 





 





 



   




2318




 





 





 





 





 





 



   table => 'book' 




2319




 





 





 





 





 





 



   




2320




 





 





 





 





 





 



 Table name. 




2321




 





 





 





 





 





 



   




2322




 





 





 





 





 





 



 =item mtime 




2323




 





 





 





 





 





 



   




2324




 





 





 





 





 





 



 This option is same as C method C option. 




2325




 





 





 





 





 





 



   




2326




 





 





 





 





 





 



 =item wrap 




2327




 





 





 





 





 





 



   




2328




 





 





 





 





 





 



   wrap => {price => sub { "max($_[0])" }} 




2329




 





 





 





 





 





 



   




2330




 





 





 





 





 





 



 placeholder wrapped string. 




2331




 





 





 





 





 





 



   




2332




 





 





 





 





 





 



 If the following statement 




2333




 





 





 





 





 





 



   




2334




 





 





 





 





 





 



   $dbi->insert({price => 100}, table => 'book', 




2335




 





 





 





 





 





 



     {price => sub { "$_[0] + 5" }}); 




2336




 





 





 





 





 





 



   




2337




 





 





 





 





 





 



 is executed, the following SQL is executed. 




2338




 





 





 





 





 





 



   




2339




 





 





 





 





 





 



   insert into book price values ( ? + 5 ); 




2340




 





 





 





 





 





 



   




2341




 





 





 





 





 





 



 =back 




2342




 





 





 





 





 





 



   




2343




 





 





 





 





 





 



 =over 4 




2344




 





 





 





 





 





 



   




2345




 





 





 





 





 





 



 =head2 include_model 




2346




 





 





 





 





 





 



   




2347




 





 





 





 





 





 



   $dbi->include_model('MyModel'); 




2348




 





 





 





 





 





 



   




2349




 





 





 





 





 





 



 Include models from specified namespace, 




2350




 





 





 





 





 





 



 the following layout is needed to include models. 




2351




 





 





 





 





 





 



   




2352




 





 





 





 





 





 



   lib / MyModel.pm 




2353




 





 





 





 





 





 



       / MyModel / book.pm 




2354




 





 





 





 





 





 



                 / company.pm 




2355




 





 





 





 





 





 



   




2356




 





 





 





 





 





 



 Name space module, extending L. 




2357




 





 





 





 





 





 



   




2358




 





 





 





 





 





 



 B 




2359




 





 





 





 





 





 



   




2360




 





 





 





 





 





 



   package MyModel; 




2361




 





 





 





 





 





 



   use DBIx::Custom::Model -base; 




2362




 





 





 





 





 





 



    




2363




 





 





 





 





 





 



   1; 




2364




 





 





 





 





 





 



   




2365




 





 





 





 





 





 



 Model modules, extending name space module. 




2366




 





 





 





 





 





 



   




2367




 





 





 





 





 





 



 B 




2368




 





 





 





 





 





 



   




2369




 





 





 





 





 





 



   package MyModel::book; 




2370




 





 





 





 





 





 



   use MyModel -base; 




2371




 





 





 





 





 





 



    




2372




 





 





 





 





 





 



   1; 




2373




 





 





 





 





 





 



   




2374




 





 





 





 





 





 



 B 




2375




 





 





 





 





 





 



   




2376




 





 





 





 





 





 



   package MyModel::company; 




2377




 





 





 





 





 





 



   use MyModel -base; 




2378




 





 





 





 





 





 



    




2379




 





 





 





 





 





 



   1; 




2380




 





 





 





 





 





 



    




2381




 





 





 





 





 





 



 MyModel::book and MyModel::company is included by C. 




2382




 





 





 





 





 





 



   




2383




 





 





 





 





 





 



 You can get model object by C. 




2384




 





 





 





 





 





 



   




2385




 





 





 





 





 





 



   my $book_model = $dbi->model('book'); 




2386




 





 





 





 





 





 



   my $company_model = $dbi->model('company'); 




2387




 





 





 





 





 





 



   




2388




 





 





 





 





 





 



 You can include full-qualified table name like C 




2389




 





 





 





 





 





 



   




2390




 





 





 





 





 





 



   lib / MyModel.pm 




2391




 





 





 





 





 





 



       / MyModel / main / book.pm 




2392




 





 





 





 





 





 



                        / company.pm 




2393




 





 





 





 





 





 



   




2394




 





 





 





 





 





 



   my $main_book = $self->model('main.book'); 




2395




 





 





 





 





 





 



   




2396




 





 





 





 





 





 



 See L to know model features. 




2397




 





 





 





 





 





 



   




2398




 





 





 





 





 





 



 =head2 like_value 




2399




 





 





 





 





 





 



   




2400




 





 





 





 





 





 



   my $like_value = $dbi->like_value 




2401




 





 





 





 





 





 



   




2402




 





 





 





 





 





 



 Code reference which return a value for the like value. 




2403




 





 





 





 





 





 



   




2404




 





 





 





 





 





 



   sub { "%$_[0]%" } 




2405




 





 





 





 





 





 



   




2406




 





 





 





 





 





 



 =head2 mapper 




2407




 





 





 





 





 





 



   




2408




 





 





 





 





 





 



   my $mapper = $dbi->mapper(param => $param); 




2409




 





 





 





 





 





 



   




2410




 





 





 





 





 





 



 Create a new L object. 




2411




 





 





 





 





 





 



   




2412




 





 





 





 





 





 



 =head2 merge_param 




2413




 





 





 





 





 





 



   




2414




 





 





 





 





 





 



   my $param = $dbi->merge_param({key1 => 1}, {key1 => 1, key2 => 2}); 




2415




 





 





 





 





 





 



   




2416




 





 





 





 





 





 



 Merge parameters. The following new parameter is created. 




2417




 





 





 





 





 





 



   




2418




 





 





 





 





 





 



   {key1 => [1, 1], key2 => 2} 




2419




 





 





 





 





 





 



   




2420




 





 





 





 





 





 



 If same keys contains, the value is converted to array reference. 




2421




 





 





 





 





 





 



   




2422




 





 





 





 





 





 



 =head2 model 




2423




 





 





 





 





 





 



   




2424




 





 





 





 





 





 



   my $model = $dbi->model('book'); 




2425




 





 





 





 





 





 



   




2426




 





 





 





 





 





 



 Get a L object 




2427




 





 





 





 





 





 



 create by C or C 




2428




 





 





 





 





 





 



   




2429




 





 





 





 





 





 



 =head2 mycolumn 




2430




 





 





 





 





 





 



   




2431




 





 





 





 





 





 



   my $column = $dbi->mycolumn(book => ['author', 'title']); 




2432




 





 





 





 





 





 



   




2433




 





 





 





 





 





 



 Create column clause for myself. The following column clause is created. 




2434




 





 





 





 





 





 



   




2435




 





 





 





 





 





 



   book.author as author, 




2436




 





 





 





 





 





 



   book.title as title 




2437




 





 





 





 





 





 



   




2438




 





 





 





 





 





 



 =head2 new 




2439




 





 





 





 





 





 



   




2440




 





 





 





 





 





 



   my $dbi = DBIx::Custom->new( 




2441




 





 





 





 





 





 



     dsn => "dbi:mysql:database=dbname", 




2442




 





 





 





 





 





 



     user => 'ken', 




2443




 





 





 





 





 





 



     password => '!LFKD%$&', 




2444




 





 





 





 





 





 



     option => {mysql_enable_utf8 => 1} 




2445




 





 





 





 





 





 



   ); 




2446




 





 





 





 





 





 



   




2447




 





 





 





 





 





 



 Create a new L object. 




2448




 





 





 





 





 





 



   




2449




 





 





 





 





 





 



 =head2 not_exists 




2450




 





 





 





 





 





 



   




2451




 





 





 





 





 





 



   my $not_exists = $dbi->not_exists; 




2452




 





 





 





 





 





 



   




2453




 





 





 





 





 





 



 DBIx::Custom::NotExists object, indicating the column is not exists. 




2454




 





 





 





 





 





 



 This is used in C of L . 




2455




 





 





 





 





 





 



   




2456




 





 





 





 





 





 



 =head2 order 




2457




 





 





 





 





 





 



   




2458




 





 





 





 





 





 



   my $order = $dbi->order; 




2459




 





 





 





 





 





 



   




2460




 





 





 





 





 





 



 Create a new L object. 




2461




 





 





 





 





 





 



   




2462




 





 





 





 





 





 



 =head2 q 




2463




 





 





 





 





 





 



   




2464




 





 





 





 





 





 



   my $quooted = $dbi->q("title"); 




2465




 





 





 





 





 





 



   




2466




 





 





 





 





 





 



 Quote string by value of C. 




2467




 





 





 





 





 





 



   




2468




 





 





 





 





 





 



 =head2 register_filter 




2469




 





 





 





 





 





 



   




2470




 





 





 





 





 





 



   $dbi->register_filter( 




2471




 





 





 





 





 





 



     # Time::Piece object to database DATE format 




2472




 





 





 





 





 





 



     tp_to_date => sub { 




2473




 





 





 





 





 





 



       my $tp = shift; 




2474




 





 





 





 





 





 



       return $tp->strftime('%Y-%m-%d'); 




2475




 





 





 





 





 





 



     }, 




2476




 





 





 





 





 





 



     # database DATE format to Time::Piece object 




2477




 





 





 





 





 





 



     date_to_tp => sub { 




2478




 





 





 





 





 





 



       my $date = shift; 




2479




 





 





 





 





 





 



       return Time::Piece->strptime($date, '%Y-%m-%d'); 




2480




 





 





 





 





 





 



     } 




2481




 





 





 





 





 





 



   ); 




2482




 





 





 





 





 





 



    




2483




 





 





 





 





 





 



 Register filters, used by C option of many methods. 




2484




 





 





 





 





 





 



   




2485




 





 





 





 





 





 



 =head2 select 




2486




 





 





 





 





 





 



   




2487




 





 





 





 





 





 



   my $result = $dbi->select( 




2488




 





 





 





 





 





 



     column => ['author', 'title'], 




2489




 





 





 





 





 





 



     table  => 'book', 




2490




 





 





 





 





 





 



     where  => {author => 'Ken'}, 




2491




 





 





 





 





 





 



   ); 




2492




 





 





 





 





 





 



    




2493




 





 





 





 





 





 



 Execute select statement. 




2494




 





 





 





 





 





 



   




2495




 





 





 





 





 





 



 You can pass odd number arguments. first argument is C. 




2496




 





 





 





 





 





 



   




2497




 





 





 





 





 





 



   my $result = $dbi->select(['author', 'title'], table => 'book'); 




2498




 





 





 





 





 





 



   




2499




 





 





 





 





 





 



 B 




2500




 





 





 





 





 





 



   




2501




 





 





 





 





 





 



 C method use all of C method's options, 




2502




 





 





 





 





 





 



 and use the following new ones. 




2503




 





 





 





 





 





 



   




2504




 





 





 





 





 





 



 =over 4 




2505




 





 





 





 





 





 



   




2506




 





 





 





 





 





 



 =item column 




2507




 





 





 





 





 





 



    




2508




 





 





 





 





 





 



   column => 'author' 




2509




 





 





 





 





 





 



   column => ['author', 'title'] 




2510




 





 





 





 





 





 



   




2511




 





 





 





 





 





 



 Column clause. 




2512




 





 





 





 





 





 



    




2513




 





 





 





 





 





 



 if C is not specified, '*' is set. 




2514




 





 





 





 





 





 



   




2515




 





 





 





 





 





 



   column => '*' 




2516




 





 





 





 





 





 



   




2517




 





 





 





 





 





 



 You can specify hash of array reference. 




2518




 





 





 





 





 





 



   




2519




 





 





 





 





 





 



   column => [ 




2520




 





 





 





 





 





 



     {book => [qw/author title/]}, 




2521




 





 





 





 





 





 



     {person => [qw/name age/]} 




2522




 





 





 





 





 





 



   ] 




2523




 





 





 





 





 





 



   




2524




 





 





 





 





 





 



 This is expanded to the following one by using C method. 




2525




 





 





 





 





 





 



   




2526




 





 





 





 





 





 



   book.author as "book.author", 




2527




 





 





 





 





 





 



   book.title as "book.title", 




2528




 





 





 





 





 





 



   person.name as "person.name", 




2529




 





 





 





 





 





 



   person.age as "person.age" 




2530




 





 





 





 





 





 



   




2531




 





 





 





 





 





 



 You can specify own column by C<__MY__>. 




2532




 





 





 





 





 





 



   




2533




 





 





 





 





 





 



   column => [ 




2534




 





 





 





 





 





 



     {__MY__ => [qw/author title/]}, 




2535




 





 





 





 





 





 



   ] 




2536




 





 





 





 





 





 



   




2537




 





 





 





 





 





 



 This is expanded to the following one by using C method. 




2538




 





 





 





 





 





 



   




2539




 





 





 





 





 





 



   book.author as "author", 




2540




 





 





 





 





 





 



   book.title as "title", 




2541




 





 





 





 





 





 



   




2542




 





 





 





 





 





 



 C<__MY__> can be changed by C attribute. 




2543




 





 





 





 





 





 



   




2544




 





 





 





 





 





 



 =item param 




2545




 





 





 





 





 





 



   




2546




 





 





 





 





 





 



   param => {'table2.key3' => 5} 




2547




 





 





 





 





 





 



   




2548




 





 





 





 





 





 



 Parameter shown before where clause. 




2549




 





 





 





 





 





 



    




2550




 





 





 





 





 





 



 For example, if you want to contain named placeholder in join clause,  




2551




 





 





 





 





 





 



 you can pass parameter by C option. 




2552




 





 





 





 





 





 



   




2553




 





 





 





 





 





 



   join  => ['inner join (select * from table2 where table2.key3 = :table2.key3)' .  




2554




 





 





 





 





 





 



             ' as table2 on table1.key1 = table2.key1'] 




2555




 





 





 





 





 





 



   




2556




 





 





 





 





 





 



 =item prefix 




2557




 





 





 





 





 





 



   




2558




 





 





 





 





 





 



   prefix => 'SQL_CALC_FOUND_ROWS' 




2559




 





 





 





 





 





 



   




2560




 





 





 





 





 





 



 Prefix of column clause 




2561




 





 





 





 





 





 



   




2562




 





 





 





 





 





 



   select SQL_CALC_FOUND_ROWS title, author from book; 




2563




 





 





 





 





 





 



   




2564




 





 





 





 





 





 



 =item join 




2565




 





 





 





 





 





 



   




2566




 





 





 





 





 





 



   join => [ 




2567




 





 





 





 





 





 



     'left outer join company on book.company_id = company_id', 




2568




 





 





 





 





 





 



     'left outer join location on company.location_id = location.id' 




2569




 





 





 





 





 





 



   ] 




2570




 





 





 





 





 





 



        




2571




 





 





 





 





 





 



 Join clause. If column clause or where clause contain table name like "company.name", 




2572




 





 





 





 





 





 



 join clauses needed when SQL is created is used automatically. 




2573




 





 





 





 





 





 



   




2574




 





 





 





 





 





 



   $dbi->select( 




2575




 





 





 





 





 





 



     table => 'book', 




2576




 





 





 





 





 





 



     column => ['company.location_id as location_id'], 




2577




 





 





 





 





 





 



     where => {'company.name' => 'Orange'}, 




2578




 





 





 





 





 





 



     join => [ 




2579




 





 





 





 





 





 



       'left outer join company on book.company_id = company.id', 




2580




 





 





 





 





 





 



       'left outer join location on company.location_id = location.id' 




2581




 





 





 





 





 





 



     ] 




2582




 





 





 





 





 





 



   ); 




2583




 





 





 





 





 





 



   




2584




 





 





 





 





 





 



 In above select, column and where clause contain "company" table, 




2585




 





 





 





 





 





 



 the following SQL is created 




2586




 





 





 





 





 





 



   




2587




 





 





 





 





 





 



   select company.location_id as location_id 




2588




 





 





 





 





 





 



   from book 




2589




 





 





 





 





 





 



     left outer join company on book.company_id = company.id 




2590




 





 





 





 





 





 



   where company.name = ?; 




2591




 





 





 





 





 





 



   




2592




 





 





 





 





 





 



 You can specify two table by yourself. This is useful when join parser can't parse 




2593




 





 





 





 





 





 



 the join clause correctly. 




2594




 





 





 





 





 





 



   




2595




 





 





 





 





 





 



   $dbi->select( 




2596




 





 





 





 





 





 



     table => 'book', 




2597




 





 





 





 





 





 



     column => ['company.location_id as location_id'], 




2598




 





 





 





 





 





 



     where => {'company.name' => 'Orange'}, 




2599




 





 





 





 





 





 



     join => [ 




2600




 





 





 





 





 





 



       { 




2601




 





 





 





 





 





 



         clause => 'left outer join location on company.location_id = location.id', 




2602




 





 





 





 





 





 



         table => ['company', 'location'] 




2603




 





 





 





 





 





 



       } 




2604




 





 





 





 





 





 



     ] 




2605




 





 





 





 





 





 



   ); 




2606




 





 





 





 





 





 



   




2607




 





 





 





 





 





 



 =item table 




2608




 





 





 





 





 





 



   




2609




 





 





 





 





 





 



   table => 'book' 




2610




 





 





 





 





 





 



   




2611




 





 





 





 





 





 



 Table name. 




2612




 





 





 





 





 





 



   




2613




 





 





 





 





 





 



 =item where 




2614




 





 





 





 





 





 



    




2615




 





 





 





 





 





 



   # (1) Hash reference 




2616




 





 





 





 





 





 



   where => {author => 'Ken', 'title' => ['Perl', 'Ruby']} 




2617




 





 





 





 





 





 



   # -> where author = 'Ken' and title in ('Perl', 'Ruby') 




2618




 





 





 





 





 





 



    




2619




 





 





 





 





 





 



   # (2) DBIx::Custom::Where object 




2620




 





 





 





 





 





 



   where => $dbi->where( 




2621




 





 





 





 





 





 



     clause => ['and', ':author{=}', ':title{like}'], 




2622




 





 





 





 





 





 



     param  => {author => 'Ken', title => '%Perl%'} 




2623




 





 





 





 





 





 



   ) 




2624




 





 





 





 





 





 



   # -> where author = 'Ken' and title like '%Perl%' 




2625




 





 





 





 





 





 



    




2626




 





 





 





 





 





 



   # (3) Array reference[where clause, parameters, join(optional)] 




2627




 





 





 





 





 





 



   where => [ 




2628




 





 





 





 





 





 



     ['and', ':author{=}', ':title{like}'], 




2629




 





 





 





 





 





 



     {author => 'Ken', title => '%Perl%'}, 




2630




 





 





 





 





 





 



     ["left outer join table2 on table1.key1 = table2.key1"] 




2631




 





 





 





 





 





 



   ] 




2632




 





 





 





 





 





 



   # -> where author = 'Ken' and title like '%Perl%' 




2633




 





 





 





 





 





 



    




2634




 





 





 





 





 





 



   # (4) Array reference[String, Hash reference] 




2635




 





 





 





 





 





 



   where => [ 




2636




 





 





 





 





 





 



     ':author{=} and :title{like}', 




2637




 





 





 





 





 





 



     {author => 'Ken', title => '%Perl%'} 




2638




 





 





 





 





 





 



   ] 




2639




 





 





 





 





 





 



   #  -> where author = 'Ken' and title like '%Perl%' 




2640




 





 





 





 





 





 



    




2641




 





 





 





 





 





 



   # (5) String 




2642




 





 





 





 





 





 



   where => 'title is null' 




2643




 





 





 





 





 





 



   #  -> where title is null 




2644




 





 





 





 





 





 



   




2645




 





 





 





 





 





 



 Where clause. 




2646




 





 





 





 





 





 



 See also L to know how to create where clause. 




2647




 





 





 





 





 





 



    




2648




 





 





 





 





 





 



 =back 




2649




 





 





 





 





 





 



   




2650




 





 





 





 





 





 



 =head2 type_rule 




2651




 





 





 





 





 





 



   




2652




 





 





 





 





 





 



   $dbi->type_rule( 




2653




 





 





 





 





 





 



     into1 => { 




2654




 





 





 





 





 





 



       date => sub { ... }, 




2655




 





 





 





 





 





 



       datetime => sub { ... } 




2656




 





 





 





 





 





 



     }, 




2657




 





 





 





 





 





 



     into2 => { 




2658




 





 





 





 





 





 



       date => sub { ... }, 




2659




 





 





 





 





 





 



       datetime => sub { ... } 




2660




 





 





 





 





 





 



     }, 




2661




 





 





 





 





 





 



     from1 => { 




2662




 





 





 





 





 





 



       # DATE 




2663




 





 





 





 





 





 



       9 => sub { ... }, 




2664




 





 





 





 





 





 



       # DATETIME or TIMESTAMP 




2665




 





 





 





 





 





 



       11 => sub { ... }, 




2666




 





 





 





 





 





 



     } 




2667




 





 





 





 





 





 



     from2 => { 




2668




 





 





 





 





 





 



       # DATE 




2669




 





 





 





 





 





 



       9 => sub { ... }, 




2670




 





 





 





 





 





 



       # DATETIME or TIMESTAMP 




2671




 





 





 





 





 





 



       11 => sub { ... }, 




2672




 





 





 





 





 





 



     } 




2673




 





 





 





 





 





 



   ); 




2674




 





 





 





 





 





 



   




2675




 





 





 





 





 





 



 Filtering rule when data is send into and get from database. 




2676




 





 





 





 





 





 



 This has a little complex problem. 




2677




 





 





 





 





 





 



   




2678




 





 





 





 





 





 



 In C and C you can specify 




2679




 





 





 





 





 





 



 type name as same as type name defined 




2680




 





 





 





 





 





 



 by create table, such as C or C. 




2681




 





 





 





 





 





 



   




2682




 





 





 





 





 





 



 Note that type name and data type don't contain upper case. 




2683




 





 





 





 





 





 



 If these contain upper case character, you convert it to lower case. 




2684




 





 





 





 





 





 



   




2685




 





 





 





 





 





 



 C is executed after C. 




2686




 





 





 





 





 





 



   




2687




 





 





 





 





 





 



 Type rule of C and C is enabled on the following 




2688




 





 





 





 





 





 



 column name. 




2689




 





 





 





 





 





 



   




2690




 





 





 





 





 





 



 =over 4 




2691




 





 





 





 





 





 



   




2692




 





 





 





 





 





 



 =item 1. column name 




2693




 





 





 





 





 





 



   




2694




 





 





 





 





 





 



   issue_date 




2695




 





 





 





 





 





 



   issue_datetime 




2696




 





 





 





 





 





 



   




2697




 





 





 





 





 





 



 This need C option in each method. 




2698




 





 





 





 





 





 



   




2699




 





 





 





 





 





 



 =item 2. table name and column name, separator is dot 




2700




 





 





 





 





 





 



   




2701




 





 





 





 





 





 



   book.issue_date 




2702




 





 





 





 





 





 



   book.issue_datetime 




2703




 





 





 





 





 





 



   




2704




 





 





 





 





 





 



 =back 




2705




 





 





 





 





 





 



   




2706




 





 





 





 





 





 



 You get all type name used in database by C. 




2707




 





 





 





 





 





 



   




2708




 





 





 





 





 





 



   print $dbi->available_typename; 




2709




 





 





 





 





 





 



   




2710




 





 





 





 





 





 



 In C and C you specify data type, not type name. 




2711




 





 





 





 





 





 



 C is executed after C. 




2712




 





 





 





 





 





 



 You get all data type by C. 




2713




 





 





 





 





 





 



   




2714




 





 





 





 





 





 



   print $dbi->available_datatype; 




2715




 





 





 





 





 





 



   




2716




 





 





 





 





 





 



 You can also specify multiple types at once. 




2717




 





 





 





 





 





 



   




2718




 





 





 





 





 





 



   $dbi->type_rule( 




2719




 





 





 





 





 





 



     into1 => [ 




2720




 





 





 





 





 





 



       [qw/DATE DATETIME/] => sub { ... }, 




2721




 





 





 





 





 





 



     ], 




2722




 





 





 





 





 





 



   ); 




2723




 





 





 





 





 





 



   




2724




 





 





 





 





 





 



 =head2 update 




2725




 





 





 





 





 





 



   




2726




 





 





 





 





 





 



   $dbi->update({title => 'Perl'}, table  => 'book', where  => {id => 4}); 




2727




 





 





 





 





 





 



   




2728




 





 





 





 





 





 



 Execute update statement. First argument is update row data. 




2729




 





 





 





 





 





 



   




2730




 





 





 





 





 





 



 If you want to set constant value to row data, use scalar reference 




2731




 





 





 





 





 





 



 as parameter value. 




2732




 





 





 





 





 





 



   




2733




 





 





 





 





 





 



   {date => \"NOW()"} 




2734




 





 





 





 





 





 



   




2735




 





 





 





 





 





 



 B 




2736




 





 





 





 





 





 



   




2737




 





 





 





 





 





 



 C method use all of C method's options, 




2738




 





 





 





 





 





 



 and use the following new ones. 




2739




 





 





 





 





 





 



   




2740




 





 





 





 





 





 



 =over 4 




2741




 





 





 





 





 





 



   




2742




 





 





 





 





 





 



 =item prefix 




2743




 





 





 





 





 





 



   




2744




 





 





 





 





 





 



   prefix => 'or replace' 




2745




 





 





 





 





 





 



   




2746




 





 





 





 





 





 



 prefix before table name section 




2747




 





 





 





 





 





 



   




2748




 





 





 





 





 





 



   update or replace book 




2749




 





 





 





 





 





 



   




2750




 





 





 





 





 





 



 =item table 




2751




 





 





 





 





 





 



   




2752




 





 





 





 





 





 



   table => 'book' 




2753




 





 





 





 





 





 



   




2754




 





 





 





 





 





 



 Table name. 




2755




 





 





 





 





 





 



   




2756




 





 





 





 





 





 



 =item where 




2757




 





 





 





 





 





 



   




2758




 





 





 





 





 





 



 Same as C method's C option. 




2759




 





 





 





 





 





 



   




2760




 





 





 





 





 





 



 =item wrap 




2761




 





 





 





 





 





 



   




2762




 





 





 





 





 





 



   wrap => {price => sub { "max($_[0])" }} 




2763




 





 





 





 





 





 



   




2764




 





 





 





 





 





 



 placeholder wrapped string. 




2765




 





 





 





 





 





 



   




2766




 





 





 





 





 





 



 If the following statement 




2767




 





 





 





 





 





 



   




2768




 





 





 





 





 





 



   $dbi->update({price => 100}, table => 'book', 




2769




 





 





 





 





 





 



     {price => sub { "$_[0] + 5" }}); 




2770




 





 





 





 





 





 



   




2771




 





 





 





 





 





 



 is executed, the following SQL is executed. 




2772




 





 





 





 





 





 



   




2773




 





 





 





 





 





 



   update book set price =  ? + 5; 




2774




 





 





 





 





 





 



   




2775




 





 





 





 





 





 



 =item mtime 




2776




 





 





 





 





 





 



   




2777




 





 





 





 





 





 



   mtime => 'modified_time' 




2778




 





 





 





 





 





 



   




2779




 





 





 





 





 





 



 Modified time column name. time row is updated is set to the column. 




2780




 





 





 





 





 





 



 default time format is C, which can be changed by 




2781




 





 





 





 





 





 



 C attribute. 




2782




 





 





 





 





 





 



   




2783




 





 





 





 





 





 



 =back 




2784




 





 





 





 





 





 



   




2785




 





 





 





 





 





 



 =head2 update_all 




2786




 





 





 





 





 





 



   




2787




 





 





 





 





 





 



   $dbi->update_all({title => 'Perl'}, table => 'book', ); 




2788




 





 





 





 





 





 



   




2789




 





 





 





 





 





 



 Execute update statement for all rows. 




2790




 





 





 





 





 





 



 Options is same as C method. 




2791




 





 





 





 





 





 



   




2792




 





 





 





 





 





 



 =over 4 




2793




 





 





 





 





 





 



   




2794




 





 





 





 





 





 



 =item option 




2795




 





 





 





 





 





 



   




2796




 





 





 





 





 





 



   option => { 




2797




 





 





 





 





 





 



     select => { 




2798




 





 





 





 





 





 



       append => '...' 




2799




 





 





 





 





 





 



     }, 




2800




 





 





 





 





 





 



     insert => { 




2801




 





 





 





 





 





 



       prefix => '...' 




2802




 





 





 





 





 





 



     }, 




2803




 





 





 





 





 





 



     update => { 




2804




 





 





 





 





 





 



       filter => {} 




2805




 





 





 





 





 





 



     } 




2806




 





 





 





 





 





 



   } 




2807




 





 





 





 





 





 



   




2808




 





 





 





 





 





 



 If you want to pass option to each method, 




2809




 





 





 





 





 





 



 you can use C option. 




2810




 





 





 





 





 





 



   




2811




 





 





 





 





 





 



 =over 4 




2812




 





 





 





 





 





 



   




2813




 





 





 





 





 





 



 =item select_option 




2814




 





 





 





 





 





 



   




2815




 





 





 





 





 





 



   select_option => {append => 'for update'} 




2816




 





 





 





 





 





 



   




2817




 





 





 





 





 





 



 select method option, 




2818




 





 





 





 





 





 



 select method is used to check the row is already exists. 




2819




 





 





 





 





 





 



   




2820




 





 





 





 





 





 



 =head2 show_datatype 




2821




 





 





 





 





 





 



   




2822




 





 





 





 





 





 



   $dbi->show_datatype($table); 




2823




 





 





 





 





 





 



   




2824




 





 





 





 





 





 



 Show data type of the columns of specified table. 




2825




 





 





 





 





 





 



   




2826




 





 





 





 





 





 



   book 




2827




 





 





 





 





 





 



   title: 5 




2828




 





 





 





 





 





 



   issue_date: 91 




2829




 





 





 





 





 





 



   




2830




 





 





 





 





 





 



 This data type is used in C's C and C. 




2831




 





 





 





 





 





 



   




2832




 





 





 





 





 





 



 =head2 show_tables 




2833




 





 





 





 





 





 



   




2834




 





 





 





 





 





 



   $dbi->show_tables; 




2835




 





 





 





 





 





 



   




2836




 





 





 





 





 





 



 Show tables. 




2837




 





 





 





 





 





 



   




2838




 





 





 





 





 





 



 =head2 show_typename 




2839




 





 





 





 





 





 



   




2840




 





 





 





 





 





 



   $dbi->show_typename($table); 




2841




 





 





 





 





 





 



   




2842




 





 





 





 





 





 



 Show type name of the columns of specified table. 




2843




 





 





 





 





 





 



   




2844




 





 





 





 





 





 



   book 




2845




 





 





 





 





 





 



   title: varchar 




2846




 





 





 





 





 





 



   issue_date: date 




2847




 





 





 





 





 





 



   




2848




 





 





 





 





 





 



 This type name is used in C's C and C. 




2849




 





 





 





 





 





 



   




2850




 





 





 





 





 





 



 =head2 values_clause 




2851




 





 





 





 





 





 



   




2852




 





 





 





 





 





 



   my $values_clause = $dbi->values_clause({title => 'a', age => 2}); 




2853




 





 





 





 





 





 



   




2854




 





 





 





 





 





 



 Create values clause. 




2855




 





 





 





 





 





 



   




2856




 





 





 





 





 





 



   (title, author) values (title = :title, age = :age); 




2857




 





 





 





 





 





 



   




2858




 





 





 





 





 





 



 You can use this in insert statement. 




2859




 





 





 





 





 





 



   




2860




 





 





 





 





 





 



   my $insert_sql = "insert into book $values_clause"; 




2861




 





 





 





 





 





 



   




2862




 





 





 





 





 





 



 =head2 where 




2863




 





 





 





 





 





 



   




2864




 





 





 





 





 





 



   my $where = $dbi->where; 




2865




 





 





 





 





 





 



   $where->clause(['and', 'title = :title', 'author = :author']); 




2866




 





 





 





 





 





 



   $where->param({title => 'Perl', author => 'Ken'}); 




2867




 





 





 





 





 





 



   $where->join(['left join author on book.author = author.id]); 




2868




 





 





 





 





 





 



   




2869




 





 





 





 





 





 



 Create a new L object. 




2870




 





 





 





 





 





 



 See L to know how to create where clause. 




2871




 





 





 





 





 





 



   




2872




 





 





 





 





 





 



 =head1 ENVIRONMENTAL VARIABLES 




2873




 





 





 





 





 





 



   




2874




 





 





 





 





 





 



 =head2 DBIX_CUSTOM_DEBUG 




2875




 





 





 





 





 





 



   




2876




 





 





 





 





 





 



 If environment variable C is set to true, 




2877




 





 





 





 





 





 



 executed SQL and bind values are printed to STDERR. 




2878




 





 





 





 





 





 



   




2879




 





 





 





 





 





 



 =head2 DBIX_CUSTOM_DEBUG_ENCODING 




2880




 





 





 





 





 





 



   




2881




 





 





 





 





 





 



 DEBUG output encoding. Default to UTF-8. 




2882




 





 





 





 





 





 



   




2883




 





 





 





 





 





 



 =head2 DBIX_CUSTOM_SUPPRESS_DEPRECATION 




2884




 





 





 





 





 





 



   




2885




 





 





 





 





 





 



   $ENV{DBIX_CUSTOM_SUPPRESS_DEPRECATION} = '0.25'; 




2886




 





 





 





 





 





 



   




2887




 





 





 





 





 





 



 Suppress deprecation warnings before specified version. 




2888




 





 





 





 





 





 



   




2889




 





 





 





 





 





 



 =head1 DEPRECATED FUNCTIONALITY 




2890




 





 





 





 





 





 



   




2891




 





 





 





 





 





 



 L 




2892




 





 





 





 





 





 



   




2893




 





 





 





 





 





 



   # Methods 




2894




 





 





 





 





 





 



   DBIx::Custom AUTOLOAD feature # will be removed at 2022/5/1 




2895




 





 





 





 





 





 



   DBIx::Custom::helper method # will be removed at 2022/5/1 




2896




 





 





 





 





 





 



   DBIx::Custom::update_or_insert method is DEPRECATED! # will be removed at 2022/5/1 




2897




 





 





 





 





 





 



   DBIx::Custom::count method # will be removed at 2022/5/1 




2898




 





 





 





 





 





 



   DBIx::Custom::select,update,delete method's primary_key option is DEPRECATED! # will be removed at 2022/5/1 




2899




 





 





 





 





 





 



   DBIx::Custom::select,update,delete method's id option is DEPRECATED! # will be removed at 2022/5/1 




2900




 





 





 





 





 





 



   DBIx::Custom::setup method is DEPRECATED! # will be removed at 2022/5/1 




2901




 





 





 





 





 





 



   




2902




 





 





 





 





 





 



 L 




2903




 





 





 





 





 





 



    




2904




 





 





 





 





 





 



   # Options 




2905




 





 





 





 





 





 



   kv method's multi option (from 0.28) # will be removed at 2018/3/1 




2906




 





 





 





 





 





 



   




2907




 





 





 





 





 





 



 L 




2908




 





 





 





 





 





 



   




2909




 





 





 





 





 





 



   DBIx::Custom::Model AUTOLOAD feature # will be removed at 2022/5/1 




2910




 





 





 





 





 





 



   DBIx::Custom::Model::helper method is DEPRECATED! # will be removed at 2022/5/1 




2911




 





 





 





 





 





 



   DBIx::Custom::Model::update_or_insert method is DEPRECATED! # will be removed at 2022/5/1 




2912




 





 





 





 





 





 



   DBIx::Custom::Model::count method # will be removed at 2022/5/1 




2913




 





 





 





 





 





 



   DBIx::Custom::Model::primary_key attribute is DEPRECATED! # will be removed at 2022/5/1 




2914




 





 





 





 





 





 



   




2915




 





 





 





 





 





 



 =head1 BACKWARDS COMPATIBILITY POLICY 




2916




 





 





 





 





 





 



   




2917




 





 





 





 





 





 



 If a feature is DEPRECATED, you can know it by DEPRECATED warnings. 




2918




 





 





 





 





 





 



 DEPRECATED feature is removed after C, 




2919




 





 





 





 





 





 



 but if at least one person use the feature and tell me that thing 




2920




 





 





 





 





 





 



 I extend one year each time he tell me it. 




2921




 





 





 





 





 





 



   




2922




 





 





 





 





 





 



 DEPRECATION warnings can be suppressed by C 




2923




 





 





 





 





 





 



 environment variable. 




2924




 





 





 





 





 





 



   




2925




 





 





 





 





 





 



 EXPERIMENTAL features will be changed or deleted without warnings. 




2926




 





 





 





 





 





 



   




2927




 





 





 





 





 





 



 =head1 BUGS 




2928




 





 





 





 





 





 



   




2929




 





 





 





 





 





 



 Please tell me bugs if you find bug. 




2930




 





 





 





 





 





 



   




2931




 





 





 





 





 





 



 C<<  >> 




2932




 





 





 





 





 





 



   




2933




 





 





 





 





 





 



 L 




2934




 





 





 





 





 





 



   




2935




 





 





 





 





 





 



 =head1 AUTHOR 




2936




 





 





 





 





 





 



   




2937




 





 





 





 





 





 



 Yuki Kimoto, C<<  >> 




2938




 





 





 





 





 





 



   




2939




 





 





 





 





 





 



 =head1 COPYRIGHT & LICENSE 




2940




 





 





 





 





 





 



   




2941




 





 





 





 





 





 



 Copyright 2009-2019 Yuki Kimoto, all rights reserved. 




2942




 





 





 





 





 





 



   




2943




 





 





 





 





 





 



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




2944




 





 





 





 





 





 



 under the same terms as Perl itself. 




2945




 





 





 





 





 





 



   




2946




 





 





 





 





 





 



 =cut

  $dbi->execute("select * from book where title = :title and author = :author",
    {title => 'Perl', author => 'Ken', table => 'book');

  # Same
  $dbi->execute(
    "select * from book where title = :book.title and author = :book.author",
    {title => 'Perl', author => 'Ken');

=item table_alias

  table_alias => {worker => 'user'} # {ALIAS => TABLE}

Table alias. Key is alias table name, value is real table name, .
If you set C, you can enable C and C type rule
on alias table name.

=item type_rule_off

  type_rule_off => 1

Turn C and C type rule off.

=item type_rule1_off

  type_rule1_off => 1

Turn C type rule off.

=item type_rule2_off

  type_rule2_off => 1

Turn C type rule off.

=item prepare_attr

  prepare_attr => {mysql_use_result => 1}

Statemend handle attributes,
this is L's C method second argument.

=head2 get_column_info

  my $column_infos = $dbi->get_column_info(exclude_table => qr/^system_/);

get column information except for one which match C pattern.

  [
    {table => 'book', column => 'title', info => {...}},
    {table => 'author', column => 'name' info => {...}}
  ]

=head2 get_table_info

  my $table_infos = $dbi->get_table_info(exclude => qr/^system_/);

get table information except for one which match C pattern.

  [
    {table => 'book', info => {...}},
    {table => 'author', info => {...}}
  ]

You can set this value to C.

=head2 insert

  $dbi->insert({title => 'Perl', author => 'Ken'}, table  => 'book');

Execute insert statement. First argument is row data. Return value is
affected row count.

If you want to set constant value to row data, use scalar reference
as parameter value.

  {date => \"NOW()"}

You can pass multiple parameters, this is very fast.

  $dbi->insert(
    [
      {title => 'Perl', author => 'Ken'},
      {title => 'Ruby', author => 'Tom'}
    ],
    table  => 'book'
  );

In multiple insert, you can't use C option.
and only first parameter is used to create sql.

B

C method use all of C method's options,
and use the following new ones.

=over 4

=item bulk_insert

  bulk_insert => 1

bulk insert is executed if database support bulk insert and
multiple parameters is passed to C.
The SQL like the following one is executed.

  insert into book (id, title) values (?, ?), (?, ?);

=item ctime

  ctime => 'created_time'

Created time column name. time when row is created is set to the column.
default time format is "YYYY-mm-dd HH:MM:SS", which can be changed by
C attribute.

=item prefix

  prefix => 'or replace'

prefix before table name section

  insert or replace into book

=item table

  table => 'book'

Table name.

=item mtime

This option is same as C method C option.

=item wrap

  wrap => {price => sub { "max($_[0])" }}

placeholder wrapped string.

If the following statement

  $dbi->insert({price => 100}, table => 'book',
    {price => sub { "$_[0] + 5" }});

is executed, the following SQL is executed.

  insert into book price values ( ? + 5 );

=back

=over 4

=head2 include_model

  $dbi->include_model('MyModel');

Include models from specified namespace,
the following layout is needed to include models.

  lib / MyModel.pm
      / MyModel / book.pm
                / company.pm

Name space module, extending L.

B

  package MyModel;
  use DBIx::Custom::Model -base;

  1;

Model modules, extending name space module.

B

  package MyModel::book;
  use MyModel -base;

  1;

B

  package MyModel::company;
  use MyModel -base;

  1;

MyModel::book and MyModel::company is included by C.

You can get model object by C.

  my $book_model = $dbi->model('book');
  my $company_model = $dbi->model('company');

You can include full-qualified table name like C

  lib / MyModel.pm
      / MyModel / main / book.pm
                       / company.pm

  my $main_book = $self->model('main.book');

See L to know model features.

=head2 like_value

  my $like_value = $dbi->like_value

Code reference which return a value for the like value.

  sub { "%$_[0]%" }

=head2 mapper

  my $mapper = $dbi->mapper(param => $param);

Create a new L object.

=head2 merge_param

  my $param = $dbi->merge_param({key1 => 1}, {key1 => 1, key2 => 2});

Merge parameters. The following new parameter is created.

  {key1 => [1, 1], key2 => 2}

If same keys contains, the value is converted to array reference.

=head2 model

  my $model = $dbi->model('book');

Get a L object
create by C or C

=head2 mycolumn

  my $column = $dbi->mycolumn(book => ['author', 'title']);

Create column clause for myself. The following column clause is created.

  book.author as author,
  book.title as title

=head2 new

  my $dbi = DBIx::Custom->new(
    dsn => "dbi:mysql:database=dbname",
    user => 'ken',
    password => '!LFKD%$&',
    option => {mysql_enable_utf8 => 1}
  );

Create a new L object.

=head2 not_exists

  my $not_exists = $dbi->not_exists;

DBIx::Custom::NotExists object, indicating the column is not exists.
This is used in C of L .

=head2 order

  my $order = $dbi->order;

Create a new L object.

=head2 q

  my $quooted = $dbi->q("title");

Quote string by value of C.

=head2 register_filter

  $dbi->register_filter(
    # Time::Piece object to database DATE format
    tp_to_date => sub {
      my $tp = shift;
      return $tp->strftime('%Y-%m-%d');
    },
    # database DATE format to Time::Piece object
    date_to_tp => sub {
      my $date = shift;
      return Time::Piece->strptime($date, '%Y-%m-%d');
    }
  );

Register filters, used by C option of many methods.

=head2 select

  my $result = $dbi->select(
    column => ['author', 'title'],
    table  => 'book',
    where  => {author => 'Ken'},
  );

Execute select statement.

You can pass odd number arguments. first argument is C.

  my $result = $dbi->select(['author', 'title'], table => 'book');

B

C method use all of C method's options,
and use the following new ones.

=over 4

=item column

  column => 'author'
  column => ['author', 'title']

Column clause.

if C is not specified, '*' is set.

  column => '*'

You can specify hash of array reference.

  column => [
    {book => [qw/author title/]},
    {person => [qw/name age/]}
  ]

This is expanded to the following one by using C method.

  book.author as "book.author",
  book.title as "book.title",
  person.name as "person.name",
  person.age as "person.age"

You can specify own column by C<__MY__>.

  column => [
    {__MY__ => [qw/author title/]},
  ]

This is expanded to the following one by using C method.

  book.author as "author",
  book.title as "title",

C<__MY__> can be changed by C attribute.

=item param

  param => {'table2.key3' => 5}

Parameter shown before where clause.

For example, if you want to contain named placeholder in join clause,
you can pass parameter by C option.

  join  => ['inner join (select * from table2 where table2.key3 = :table2.key3)' .
            ' as table2 on table1.key1 = table2.key1']

=item prefix

  prefix => 'SQL_CALC_FOUND_ROWS'

Prefix of column clause

  select SQL_CALC_FOUND_ROWS title, author from book;

=item join

  join => [
    'left outer join company on book.company_id = company_id',
    'left outer join location on company.location_id = location.id'
  ]

Join clause. If column clause or where clause contain table name like "company.name",
join clauses needed when SQL is created is used automatically.

  $dbi->select(
    table => 'book',
    column => ['company.location_id as location_id'],
    where => {'company.name' => 'Orange'},
    join => [
      'left outer join company on book.company_id = company.id',
      'left outer join location on company.location_id = location.id'
    ]
  );

In above select, column and where clause contain "company" table,
the following SQL is created

  select company.location_id as location_id
  from book
    left outer join company on book.company_id = company.id
  where company.name = ?;

You can specify two table by yourself. This is useful when join parser can't parse
the join clause correctly.

  $dbi->select(
    table => 'book',
    column => ['company.location_id as location_id'],
    where => {'company.name' => 'Orange'},
    join => [
      {
        clause => 'left outer join location on company.location_id = location.id',
        table => ['company', 'location']
      }
    ]
  );

=item table

  table => 'book'

Table name.

=item where

  # (1) Hash reference
  where => {author => 'Ken', 'title' => ['Perl', 'Ruby']}
  # -> where author = 'Ken' and title in ('Perl', 'Ruby')

  # (2) DBIx::Custom::Where object
  where => $dbi->where(
    clause => ['and', ':author{=}', ':title{like}'],
    param  => {author => 'Ken', title => '%Perl%'}
  )
  # -> where author = 'Ken' and title like '%Perl%'

  # (3) Array reference[where clause, parameters, join(optional)]
  where => [
    ['and', ':author{=}', ':title{like}'],
    {author => 'Ken', title => '%Perl%'},
    ["left outer join table2 on table1.key1 = table2.key1"]
  ]
  # -> where author = 'Ken' and title like '%Perl%'

  # (4) Array reference[String, Hash reference]
  where => [
    ':author{=} and :title{like}',
    {author => 'Ken', title => '%Perl%'}
  ]
  #  -> where author = 'Ken' and title like '%Perl%'

  # (5) String
  where => 'title is null'
  #  -> where title is null

Where clause.
See also L to know how to create where clause.

=back

=head2 type_rule

  $dbi->type_rule(
    into1 => {
      date => sub { ... },
      datetime => sub { ... }
    },
    into2 => {
      date => sub { ... },
      datetime => sub { ... }
    },
    from1 => {
      # DATE
      9 => sub { ... },
      # DATETIME or TIMESTAMP
      11 => sub { ... },
    }
    from2 => {
      # DATE
      9 => sub { ... },
      # DATETIME or TIMESTAMP
      11 => sub { ... },
    }
  );

Filtering rule when data is send into and get from database.
This has a little complex problem.

In C and C you can specify
type name as same as type name defined
by create table, such as C or C.

Note that type name and data type don't contain upper case.
If these contain upper case character, you convert it to lower case.

C is executed after C.

Type rule of C and C is enabled on the following
column name.

=over 4

=item 1. column name

  issue_date
  issue_datetime

This need C option in each method. 




2698




 





 





 





 





 





 



   




2699




 





 





 





 





 





 



 =item 2. table name and column name, separator is dot 




2700




 





 





 





 





 





 



   




2701




 





 





 





 





 





 



   book.issue_date 




2702




 





 





 





 





 





 



   book.issue_datetime 




2703




 





 





 





 





 





 



   




2704




 





 





 





 





 





 



 =back 




2705




 





 





 





 





 





 



   




2706




 





 





 





 





 





 



 You get all type name used in database by C. 




2707




 





 





 





 





 





 



   




2708




 





 





 





 





 





 



   print $dbi->available_typename; 




2709




 





 





 





 





 





 



   




2710




 





 





 





 





 





 



 In C and C you specify data type, not type name. 




2711




 





 





 





 





 





 



 C is executed after C. 




2712




 





 





 





 





 





 



 You get all data type by C. 




2713




 





 





 





 





 





 



   




2714




 





 





 





 





 





 



   print $dbi->available_datatype; 




2715




 





 





 





 





 





 



   




2716




 





 





 





 





 





 



 You can also specify multiple types at once. 




2717




 





 





 





 





 





 



   




2718




 





 





 





 





 





 



   $dbi->type_rule( 




2719




 





 





 





 





 





 



     into1 => [ 




2720




 





 





 





 





 





 



       [qw/DATE DATETIME/] => sub { ... }, 




2721




 





 





 





 





 





 



     ], 




2722




 





 





 





 





 





 



   ); 




2723




 





 





 





 





 





 



   




2724




 





 





 





 





 





 



 =head2 update 




2725




 





 





 





 





 





 



   




2726




 





 





 





 





 





 



   $dbi->update({title => 'Perl'}, table  => 'book', where  => {id => 4}); 




2727




 





 





 





 





 





 



   




2728




 





 





 





 





 





 



 Execute update statement. First argument is update row data. 




2729




 





 





 





 





 





 



   




2730




 





 





 





 





 





 



 If you want to set constant value to row data, use scalar reference 




2731




 





 





 





 





 





 



 as parameter value. 




2732




 





 





 





 





 





 



   




2733




 





 





 





 





 





 



   {date => \"NOW()"} 




2734




 





 





 





 





 





 



   




2735




 





 





 





 





 





 



 B 




2736




 





 





 





 





 





 



   




2737




 





 





 





 





 





 



 C method use all of C method's options, 




2738




 





 





 





 





 





 



 and use the following new ones. 




2739




 





 





 





 





 





 



   




2740




 





 





 





 





 





 



 =over 4 




2741




 





 





 





 





 





 



   




2742




 





 





 





 





 





 



 =item prefix 




2743




 





 





 





 





 





 



   




2744




 





 





 





 





 





 



   prefix => 'or replace' 




2745




 





 





 





 





 





 



   




2746




 





 





 





 





 





 



 prefix before table name section 




2747




 





 





 





 





 





 



   




2748




 





 





 





 





 





 



   update or replace book 




2749




 





 





 





 





 





 



   




2750




 





 





 





 





 





 



 =item table 




2751




 





 





 





 





 





 



   




2752




 





 





 





 





 





 



   table => 'book' 




2753




 





 





 





 





 





 



   




2754




 





 





 





 





 





 



 Table name. 




2755




 





 





 





 





 





 



   




2756




 





 





 





 





 





 



 =item where 




2757




 





 





 





 





 





 



   




2758




 





 





 





 





 





 



 Same as C method's C option. 




2759




 





 





 





 





 





 



   




2760




 





 





 





 





 





 



 =item wrap 




2761




 





 





 





 





 





 



   




2762




 





 





 





 





 





 



   wrap => {price => sub { "max($_[0])" }} 




2763




 





 





 





 





 





 



   




2764




 





 





 





 





 





 



 placeholder wrapped string. 




2765




 





 





 





 





 





 



   




2766




 





 





 





 





 





 



 If the following statement 




2767




 





 





 





 





 





 



   




2768




 





 





 





 





 





 



   $dbi->update({price => 100}, table => 'book', 




2769




 





 





 





 





 





 



     {price => sub { "$_[0] + 5" }}); 




2770




 





 





 





 





 





 



   




2771




 





 





 





 





 





 



 is executed, the following SQL is executed. 




2772




 





 





 





 





 





 



   




2773




 





 





 





 





 





 



   update book set price =  ? + 5; 




2774




 





 





 





 





 





 



   




2775




 





 





 





 





 





 



 =item mtime 




2776




 





 





 





 





 





 



   




2777




 





 





 





 





 





 



   mtime => 'modified_time' 




2778




 





 





 





 





 





 



   




2779




 





 





 





 





 





 



 Modified time column name. time row is updated is set to the column. 




2780




 





 





 





 





 





 



 default time format is C, which can be changed by 




2781




 





 





 





 





 





 



 C attribute. 




2782




 





 





 





 





 





 



   




2783




 





 





 





 





 





 



 =back 




2784




 





 





 





 





 





 



   




2785




 





 





 





 





 





 



 =head2 update_all 




2786




 





 





 





 





 





 



   




2787




 





 





 





 





 





 



   $dbi->update_all({title => 'Perl'}, table => 'book', ); 




2788




 





 





 





 





 





 



   




2789




 





 





 





 





 





 



 Execute update statement for all rows. 




2790




 





 





 





 





 





 



 Options is same as C method. 




2791




 





 





 





 





 





 



   




2792




 





 





 





 





 





 



 =over 4 




2793




 





 





 





 





 





 



   




2794




 





 





 





 





 





 



 =item option 




2795




 





 





 





 





 





 



   




2796




 





 





 





 





 





 



   option => { 




2797




 





 





 





 





 





 



     select => { 




2798




 





 





 





 





 





 



       append => '...' 




2799




 





 





 





 





 





 



     }, 




2800




 





 





 





 





 





 



     insert => { 




2801




 





 





 





 





 





 



       prefix => '...' 




2802




 





 





 





 





 





 



     }, 




2803




 





 





 





 





 





 



     update => { 




2804




 





 





 





 





 





 



       filter => {} 




2805




 





 





 





 





 





 



     } 




2806




 





 





 





 





 





 



   } 




2807




 





 





 





 





 





 



   




2808




 





 





 





 





 





 



 If you want to pass option to each method, 




2809




 





 





 





 





 





 



 you can use C option. 




2810




 





 





 





 





 





 



   




2811




 





 





 





 





 





 



 =over 4 




2812




 





 





 





 





 





 



   




2813




 





 





 





 





 





 



 =item select_option 




2814




 





 





 





 





 





 



   




2815




 





 





 





 





 





 



   select_option => {append => 'for update'} 




2816




 





 





 





 





 





 



   




2817




 





 





 





 





 





 



 select method option, 




2818




 





 





 





 





 





 



 select method is used to check the row is already exists. 




2819




 





 





 





 





 





 



   




2820




 





 





 





 





 





 



 =head2 show_datatype 




2821




 





 





 





 





 





 



   




2822




 





 





 





 





 





 



   $dbi->show_datatype($table); 




2823




 





 





 





 





 





 



   




2824




 





 





 





 





 





 



 Show data type of the columns of specified table. 




2825




 





 





 





 





 





 



   




2826




 





 





 





 





 





 



   book 




2827




 





 





 





 





 





 



   title: 5 




2828




 





 





 





 





 





 



   issue_date: 91 




2829




 





 





 





 





 





 



   




2830




 





 





 





 





 





 



 This data type is used in C's C and C. 




2831




 





 





 





 





 





 



   




2832




 





 





 





 





 





 



 =head2 show_tables 




2833




 





 





 





 





 





 



   




2834




 





 





 





 





 





 



   $dbi->show_tables; 




2835




 





 





 





 





 





 



   




2836




 





 





 





 





 





 



 Show tables. 




2837




 





 





 





 





 





 



   




2838




 





 





 





 





 





 



 =head2 show_typename 




2839




 





 





 





 





 





 



   




2840




 





 





 





 





 





 



   $dbi->show_typename($table); 




2841




 





 





 





 





 





 



   




2842




 





 





 





 





 





 



 Show type name of the columns of specified table. 




2843




 





 





 





 





 





 



   




2844




 





 





 





 





 





 



   book 




2845




 





 





 





 





 





 



   title: varchar 




2846




 





 





 





 





 





 



   issue_date: date 




2847




 





 





 





 





 





 



   




2848




 





 





 





 





 





 



 This type name is used in C's C and C. 




2849




 





 





 





 





 





 



   




2850




 





 





 





 





 





 



 =head2 values_clause 




2851




 





 





 





 





 





 



   




2852




 





 





 





 





 





 



   my $values_clause = $dbi->values_clause({title => 'a', age => 2}); 




2853




 





 





 





 





 





 



   




2854




 





 





 





 





 





 



 Create values clause. 




2855




 





 





 





 





 





 



   




2856




 





 





 





 





 





 



   (title, author) values (title = :title, age = :age); 




2857




 





 





 





 





 





 



   




2858




 





 





 





 





 





 



 You can use this in insert statement. 




2859




 





 





 





 





 





 



   




2860




 





 





 





 





 





 



   my $insert_sql = "insert into book $values_clause"; 




2861




 





 





 





 





 





 



   




2862




 





 





 





 





 





 



 =head2 where 




2863




 





 





 





 





 





 



   




2864




 





 





 





 





 





 



   my $where = $dbi->where; 




2865




 





 





 





 





 





 



   $where->clause(['and', 'title = :title', 'author = :author']); 




2866




 





 





 





 





 





 



   $where->param({title => 'Perl', author => 'Ken'}); 




2867




 





 





 





 





 





 



   $where->join(['left join author on book.author = author.id]); 




2868




 





 





 





 





 





 



   




2869




 





 





 





 





 





 



 Create a new L object. 




2870




 





 





 





 





 





 



 See L to know how to create where clause. 




2871




 





 





 





 





 





 



   




2872




 





 





 





 





 





 



 =head1 ENVIRONMENTAL VARIABLES 




2873




 





 





 





 





 





 



   




2874




 





 





 





 





 





 



 =head2 DBIX_CUSTOM_DEBUG 




2875




 





 





 





 





 





 



   




2876




 





 





 





 





 





 



 If environment variable C is set to true, 




2877




 





 





 





 





 





 



 executed SQL and bind values are printed to STDERR. 




2878




 





 





 





 





 





 



   




2879




 





 





 





 





 





 



 =head2 DBIX_CUSTOM_DEBUG_ENCODING 




2880




 





 





 





 





 





 



   




2881




 





 





 





 





 





 



 DEBUG output encoding. Default to UTF-8. 




2882




 





 





 





 





 





 



   




2883




 





 





 





 





 





 



 =head2 DBIX_CUSTOM_SUPPRESS_DEPRECATION 




2884




 





 





 





 





 





 



   




2885




 





 





 





 





 





 



   $ENV{DBIX_CUSTOM_SUPPRESS_DEPRECATION} = '0.25'; 




2886




 





 





 





 





 





 



   




2887




 





 





 





 





 





 



 Suppress deprecation warnings before specified version. 




2888




 





 





 





 





 





 



   




2889




 





 





 





 





 





 



 =head1 DEPRECATED FUNCTIONALITY 




2890




 





 





 





 





 





 



   




2891




 





 





 





 





 





 



 L 




2892




 





 





 





 





 





 



   




2893




 





 





 





 





 





 



   # Methods 




2894




 





 





 





 





 





 



   DBIx::Custom AUTOLOAD feature # will be removed at 2022/5/1 




2895




 





 





 





 





 





 



   DBIx::Custom::helper method # will be removed at 2022/5/1 




2896




 





 





 





 





 





 



   DBIx::Custom::update_or_insert method is DEPRECATED! # will be removed at 2022/5/1 




2897




 





 





 





 





 





 



   DBIx::Custom::count method # will be removed at 2022/5/1 




2898




 





 





 





 





 





 



   DBIx::Custom::select,update,delete method's primary_key option is DEPRECATED! # will be removed at 2022/5/1 




2899




 





 





 





 





 





 



   DBIx::Custom::select,update,delete method's id option is DEPRECATED! # will be removed at 2022/5/1 




2900




 





 





 





 





 





 



   DBIx::Custom::setup method is DEPRECATED! # will be removed at 2022/5/1 




2901




 





 





 





 





 





 



   




2902




 





 





 





 





 





 



 L 




2903




 





 





 





 





 





 



    




2904




 





 





 





 





 





 



   # Options 




2905




 





 





 





 





 





 



   kv method's multi option (from 0.28) # will be removed at 2018/3/1 




2906




 





 





 





 





 





 



   




2907




 





 





 





 





 





 



 L 




2908




 





 





 





 





 





 



   




2909




 





 





 





 





 





 



   DBIx::Custom::Model AUTOLOAD feature # will be removed at 2022/5/1 




2910




 





 





 





 





 





 



   DBIx::Custom::Model::helper method is DEPRECATED! # will be removed at 2022/5/1 




2911




 





 





 





 





 





 



   DBIx::Custom::Model::update_or_insert method is DEPRECATED! # will be removed at 2022/5/1 




2912




 





 





 





 





 





 



   DBIx::Custom::Model::count method # will be removed at 2022/5/1 




2913




 





 





 





 





 





 



   DBIx::Custom::Model::primary_key attribute is DEPRECATED! # will be removed at 2022/5/1 




2914




 





 





 





 





 





 



   




2915




 





 





 





 





 





 



 =head1 BACKWARDS COMPATIBILITY POLICY 




2916




 





 





 





 





 





 



   




2917




 





 





 





 





 





 



 If a feature is DEPRECATED, you can know it by DEPRECATED warnings. 




2918




 





 





 





 





 





 



 DEPRECATED feature is removed after C, 




2919




 





 





 





 





 





 



 but if at least one person use the feature and tell me that thing 




2920




 





 





 





 





 





 



 I extend one year each time he tell me it. 




2921




 





 





 





 





 





 



   




2922




 





 





 





 





 





 



 DEPRECATION warnings can be suppressed by C 




2923




 





 





 





 





 





 



 environment variable. 




2924




 





 





 





 





 





 



   




2925




 





 





 





 





 





 



 EXPERIMENTAL features will be changed or deleted without warnings. 




2926




 





 





 





 





 





 



   




2927




 





 





 





 





 





 



 =head1 BUGS 




2928




 





 





 





 





 





 



   




2929




 





 





 





 





 





 



 Please tell me bugs if you find bug. 




2930




 





 





 





 





 





 



   




2931




 





 





 





 





 





 



 C<<  >> 




2932




 





 





 





 





 





 



   




2933




 





 





 





 





 





 



 L 




2934




 





 





 





 





 





 



   




2935




 





 





 





 





 





 



 =head1 AUTHOR 




2936




 





 





 





 





 





 



   




2937




 





 





 





 





 





 



 Yuki Kimoto, C<<  >> 




2938




 





 





 





 





 





 



   




2939




 





 





 





 





 





 



 =head1 COPYRIGHT & LICENSE 




2940




 





 





 





 





 





 



   




2941




 





 





 





 





 





 



 Copyright 2009-2019 Yuki Kimoto, all rights reserved. 




2942




 





 





 





 





 





 



   




2943




 





 





 





 





 





 



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




2944




 





 





 





 





 





 



 under the same terms as Perl itself. 




2945




 





 





 





 





 





 



   




2946




 





 





 





 





 





 



 =cut

=item 2. table name and column name, separator is dot

  book.issue_date
  book.issue_datetime

=back

You get all type name used in database by C.

  print $dbi->available_typename;

In C and C you specify data type, not type name.
C is executed after C.
You get all data type by C.

  print $dbi->available_datatype;

You can also specify multiple types at once.

  $dbi->type_rule(
    into1 => [
      [qw/DATE DATETIME/] => sub { ... },
    ],
  );

=head2 update

  $dbi->update({title => 'Perl'}, table  => 'book', where  => {id => 4});

Execute update statement. First argument is update row data.

If you want to set constant value to row data, use scalar reference
as parameter value.

  {date => \"NOW()"}

B

C method use all of C method's options,
and use the following new ones.

=over 4

=item prefix

  prefix => 'or replace'

prefix before table name section

  update or replace book

=item table

  table => 'book'

Table name.

=item where

Same as C method's C option.

=item wrap

  wrap => {price => sub { "max($_[0])" }}

placeholder wrapped string.

If the following statement

  $dbi->update({price => 100}, table => 'book',
    {price => sub { "$_[0] + 5" }});

is executed, the following SQL is executed.

  update book set price =  ? + 5;

=item mtime

  mtime => 'modified_time'

Modified time column name. time row is updated is set to the column.
default time format is C, which can be changed by
C attribute.

=back

=head2 update_all

  $dbi->update_all({title => 'Perl'}, table => 'book', );

Execute update statement for all rows.
Options is same as C method.

=over 4

=item option

  option => {
    select => {
      append => '...'
    },
    insert => {
      prefix => '...'
    },
    update => {
      filter => {}
    }
  }

If you want to pass option to each method,
you can use C option.

=over 4

=item select_option

  select_option => {append => 'for update'}

select method option,
select method is used to check the row is already exists.

=head2 show_datatype

  $dbi->show_datatype($table);

Show data type of the columns of specified table.

  book
  title: 5
  issue_date: 91

This data type is used in C's C and C.

=head2 show_tables

  $dbi->show_tables;

Show tables.

=head2 show_typename

  $dbi->show_typename($table);

Show type name of the columns of specified table.

  book
  title: varchar
  issue_date: date

This type name is used in C's C and C.

=head2 values_clause

  my $values_clause = $dbi->values_clause({title => 'a', age => 2});

Create values clause.

  (title, author) values (title = :title, age = :age);

You can use this in insert statement.

  my $insert_sql = "insert into book $values_clause";

=head2 where

  my $where = $dbi->where;
  $where->clause(['and', 'title = :title', 'author = :author']);
  $where->param({title => 'Perl', author => 'Ken'});
  $where->join(['left join author on book.author = author.id]);

Create a new L object.
See L to know how to create where clause.

=head1 ENVIRONMENTAL VARIABLES

=head2 DBIX_CUSTOM_DEBUG

If environment variable C is set to true,
executed SQL and bind values are printed to STDERR.

=head2 DBIX_CUSTOM_DEBUG_ENCODING

DEBUG output encoding. Default to UTF-8.

=head2 DBIX_CUSTOM_SUPPRESS_DEPRECATION

  $ENV{DBIX_CUSTOM_SUPPRESS_DEPRECATION} = '0.25';

Suppress deprecation warnings before specified version.

=head1 DEPRECATED FUNCTIONALITY

L

  # Methods
  DBIx::Custom AUTOLOAD feature # will be removed at 2022/5/1
  DBIx::Custom::helper method # will be removed at 2022/5/1
  DBIx::Custom::update_or_insert method is DEPRECATED! # will be removed at 2022/5/1
  DBIx::Custom::count method # will be removed at 2022/5/1
  DBIx::Custom::select,update,delete method's primary_key option is DEPRECATED! # will be removed at 2022/5/1
  DBIx::Custom::select,update,delete method's id option is DEPRECATED! # will be removed at 2022/5/1
  DBIx::Custom::setup method is DEPRECATED! # will be removed at 2022/5/1

L

  # Options
  kv method's multi option (from 0.28) # will be removed at 2018/3/1

L

  DBIx::Custom::Model AUTOLOAD feature # will be removed at 2022/5/1
  DBIx::Custom::Model::helper method is DEPRECATED! # will be removed at 2022/5/1
  DBIx::Custom::Model::update_or_insert method is DEPRECATED! # will be removed at 2022/5/1
  DBIx::Custom::Model::count method # will be removed at 2022/5/1
  DBIx::Custom::Model::primary_key attribute is DEPRECATED! # will be removed at 2022/5/1

=head1 BACKWARDS COMPATIBILITY POLICY

If a feature is DEPRECATED, you can know it by DEPRECATED warnings.
DEPRECATED feature is removed after C,
but if at least one person use the feature and tell me that thing
I extend one year each time he tell me it.

DEPRECATION warnings can be suppressed by C
environment variable.

EXPERIMENTAL features will be changed or deleted without warnings.

=head1 BUGS

Please tell me bugs if you find bug.

C<<  >>

L

=head1 AUTHOR

Yuki Kimoto, C<<  >>

=head1 COPYRIGHT & LICENSE

Copyright 2009-2019 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