@@ -1,5 +1,5 @@

 0.25

-  - added DBIX_CUSTOM_SUPPRESS_DEPRECTION environment varaible

+  - added DBIX_CUSTOM_SUPPRESS_DEPRECATION environment varaible

     to suppress deprecation warnings

   - removed EXPERIMENTAL status from DBIx::Custom::Result::kv method

   - removed EXPERIMETNAL status from DBIx::Custom::Result::flat method

@@ -2,7 +2,7 @@ use 5.008007;

 package DBIx::Custom;

 use Object::Simple -base;

-our $VERSION = '0.24';

+our $VERSION = '0.25';

 use Carp 'croak';

 use DBI;

@@ -13,7 +13,7 @@ use DBIx::Custom::Where;

 use DBIx::Custom::Model;

 use DBIx::Custom::Tag;

 use DBIx::Custom::Order;

-use DBIx::Custom::Util qw/_array_to_hash _subname/;

+use DBIx::Custom::Util qw/_array_to_hash _subname _deprecate/;

 use DBIx::Custom::Mapper;

 use DBIx::Custom::NotExists;

 use Encode qw/encode encode_utf8 decode_utf8/;

@@ -230,7 +230,7 @@ sub dbh {

 sub delete {

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

-  warn "delete method where_param option is DEPRECATED!"

+  _deprecate('0.24', "delete method where_param option is DEPRECATED!")

     if $opt{where_param};

   # Don't allow delete all rows

@@ -278,7 +278,7 @@ sub create_model {

       ? [%{$model->filter}]

       : $model->filter;

     $filter ||= [];

-    warn "DBIx::Custom::Model filter method is DEPRECATED!"

+    _deprecate('0.24', "DBIx::Custom::Model filter method is DEPRECATED!")

       if @$filter;

     $self->_apply_filter($model->table, @$filter);

   }

@@ -375,7 +375,7 @@ sub execute {

   }

   # Options

-  warn "sqlfilter option is DEPRECATED" if $opt{sqlfilter};

+  _deprecate('0.24', "sqlfilter option is DEPRECATED") if $opt{sqlfilter};

   $params ||= $opt{param} || {};

   my $tables = $opt{table} || [];

   $tables = [$tables] unless ref $tables eq 'ARRAY';

@@ -414,8 +414,9 @@ sub execute {

   my $query;

   if (ref $sql) {

     $query = $sql;

-    warn "execute method receiving query object as first parameter is DEPRECATED!" .

-      "because this is very buggy.";

+    _deprecate('0.24', "execute method receiving query " .

+      "object as first parameter is DEPRECATED!" .

+      "because this is very buggy.");

   }

   else {

     $query = $opt{reuse}->{$sql} if $opt{reuse};

@@ -456,7 +457,8 @@ sub execute {

   # Merge id to parameter

   if (defined $opt{id}) {

     my $statement = $query->{statement};

-    warn "execute method id option is DEPRECATED!" unless $statement;

+    _deprecate('0.24', "execute method id option is DEPRECATED!")

+      unless $statement;

     croak "execute id option must be specified with primary_key option"

       unless $opt{primary_key};

     $opt{primary_key} = [$opt{primary_key}] unless ref $opt{primary_key};

@@ -683,7 +685,8 @@ sub insert {

   # Options

   my $params = @_ % 2 ? shift : undef;

   my %opt = @_;

-  warn "insert method param option is DEPRECATED!" if $opt{param};

+  _deprecate('0.24', "insert method param option is DEPRECATED!")

+    if $opt{param};

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

   my $multi;

@@ -692,7 +695,7 @@ sub insert {

   # Timestamp(DEPRECATED!)

   if (!$multi && $opt{timestamp} && (my $insert_timestamp = $self->insert_timestamp)) {

-    warn "insert timestamp option is DEPRECATED! use ctime option";

+    _deprecate('0.24', "insert timestamp option is DEPRECATED! use ctime option");

     my $columns = $insert_timestamp->[0];

     $columns = [$columns] unless ref $columns eq 'ARRAY';

     my $value = $insert_timestamp->[1];

@@ -702,11 +705,11 @@ sub insert {

   # Created time and updated time

   my @timestamp_cleanup;

-  warn "insert method created_at option is DEPRECATED! "

-      . "use ctime option instead. " . _subname

+  _deprecate('0.24', "insert method created_at option is DEPRECATED! " .

+      "use ctime option instead. ")

     if $opt{created_at};

-  warn "insert method updated_at option is DEPRECATED! "

-      . "use mtime option instead. " . _subname

+  _deprecate('0.24', "insert method updated_at option is DEPRECATED! " .

+      "use mtime option instead. ")

     if $opt{updated_at};

   $opt{ctime} ||= $opt{created_at};

   $opt{mtime} ||= $opt{updated_at};

@@ -768,7 +771,7 @@ sub insert {

 sub insert_timestamp {

   my $self = shift;

-  warn "insert_timestamp method is DEPRECATED! use now attribute";

+  _deprecate('0.24', "insert_timestamp method is DEPRECATED! use now attribute");

   if (@_) {

     $self->{insert_timestamp} = [@_];

@@ -1037,12 +1040,12 @@ sub select {

   $opt{table} = $tables;

   $table_is_empty = 1 unless @$tables;

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

-  warn "select method where_param option is DEPRECATED!"

+  _deprecate('0.24', "select method where_param option is DEPRECATED!")

     if $opt{where_param};

   # Add relation tables(DEPRECATED!);

   if ($opt{relation}) {

-    warn "select() relation option is DEPRECATED!";

+    _deprecate('0.24', "select() relation option is DEPRECATED!");

     $self->_add_relation_table($tables, $opt{relation});

   }

@@ -1061,10 +1064,10 @@ sub select {

         $column = $self->column(%$column) if ref $column eq 'HASH';

       }

       elsif (ref $column eq 'ARRAY') {

-        warn "select column option [COLUMN => ALIAS] syntax is DEPRECATED!" .

-          "use q method to quote the value";

+        _deprecate('0.24', "select column option [COLUMN => ALIAS] syntax " .

+          "is DEPRECATED! use q method to quote the value");

         if (@$column == 3 && $column->[1] eq 'as') {

-          warn "[COLUMN, as => ALIAS] is DEPRECATED! use [COLUMN => ALIAS]";

+          _deprecate('0.24', "[COLUMN, as => ALIAS] is DEPRECATED! use [COLUMN => ALIAS]");

           splice @$column, 1, 1;

         }

@@ -1262,8 +1265,8 @@ sub update {

   # Options

   my $param = @_ % 2 ? shift : undef;

   my %opt = @_;

-  warn "update param option is DEPRECATED!" if $opt{param};

-  warn "update method where_param option is DEPRECATED!"

+  _deprecate('0.24', "update param option is DEPRECATED!") if $opt{param};

+  _deprecate('0.24', "update method where_param option is DEPRECATED!")

     if $opt{where_param};

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

@@ -1273,7 +1276,7 @@ sub update {

   # Timestamp(DEPRECATED!)

   if ($opt{timestamp} && (my $update_timestamp = $self->update_timestamp)) {

-    warn "update timestamp option is DEPRECATED! use mtime";

+    _deprecate('0.24', "update timestamp option is DEPRECATED! use mtime");

     my $columns = $update_timestamp->[0];

     $columns = [$columns] unless ref $columns eq 'ARRAY';

     my $value = $update_timestamp->[1];

@@ -1283,8 +1286,8 @@ sub update {

   # Created time and updated time

   my @timestamp_cleanup;

-  warn "update method update_at option is DEPRECATED! "

-      . "use mtime option instead " . _subname

+  _deprecate('0.24', "update method update_at option is DEPRECATED! " .

+      "use mtime option instead.")

     if $opt{updated_at};

   $opt{mtime} ||= $opt{updated_at};

   if (defined $opt{mtime}) {

@@ -1334,7 +1337,7 @@ sub update_or_insert {

 sub update_timestamp {

   my $self = shift;

-  warn "update_timestamp method is DEPRECATED! use now method";

+  _deprecate('0.24', "update_timestamp method is DEPRECATED! use now method");

   if (@_) {

     $self->{update_timestamp} = [@_];

@@ -1575,7 +1578,7 @@ sub _connect {

   # Attributes

   my $dsn = $self->data_source;

-  warn "data_source is DEPRECATED!\n"

+  _deprecate('0.24', "data_source is DEPRECATED!\n")

     if $dsn;

   $dsn ||= $self->dsn;

   croak qq{"dsn" must be specified } . _subname

@@ -1631,9 +1634,9 @@ sub _need_tables {

 sub _option {

   my $self = shift;

   my $option = {%{$self->dbi_options}, %{$self->dbi_option}, %{$self->option}};

-  warn "dbi_options is DEPRECATED! use option instead\n"

+  _deprecate('0.24', "dbi_options is DEPRECATED! use option instead\n")

     if keys %{$self->dbi_options};

-  warn "dbi_option is DEPRECATED! use option instead\n"

+  _deprecate('0.24', "dbi_option is DEPRECATED! use option instead\n")

     if keys %{$self->dbi_option};

   return $option;

 }

@@ -1887,15 +1890,15 @@ has filter_check  => 1;

 has 'reserved_word_quote';

 has dbi_option => sub { {} };

 has default_dbi_option => sub {

-  warn "default_dbi_option is DEPRECATED! use default_option instead";

+  _deprecate('0.24', "default_dbi_option is DEPRECATED! use default_option instead");

   return shift->default_option;

 };

 # DEPRECATED

 sub tag_parse {

  my $self = shift;

- warn "tag_parse is DEPRECATED! use \$ENV{DBIX_CUSTOM_TAG_PARSE} " .

-   "environment variable";

+ _deprecate('0.24', "tag_parse is DEPRECATED! use \$ENV{DBIX_CUSTOM_TAG_PARSE} " .

+   "environment variable");

   if (@_) {

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

     return $self;

@@ -1905,14 +1908,14 @@ sub tag_parse {

 # DEPRECATED!

 sub method {

-  warn "method is DEPRECATED! use helper instead";

+  _deprecate('0.24', "method is DEPRECATED! use helper instead");

   return shift->helper(@_);

 }

 # DEPRECATED!

 sub assign_param {

   my $self = shift;

-  warn "assing_param is DEPRECATED! use assign_clause instead";

+  _deprecate('0.24', "assing_param is DEPRECATED! use assign_clause instead");

   return $self->assign_clause(@_);

 }

@@ -1920,7 +1923,7 @@ sub assign_param {

 sub update_param {

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

-  warn "update_param is DEPRECATED! use assign_clause instead.";

+  _deprecate('0.24', "update_param is DEPRECATED! use assign_clause instead.");

   # Create update parameter tag

   my $tag = $self->assign_clause($param, $opts);

@@ -1931,7 +1934,7 @@ sub update_param {

 # DEPRECATED!

 sub create_query {

-  warn "create_query is DEPRECATED! use query option of each method";

+  _deprecate('0.24', "create_query is DEPRECATED! use query option of each method");

   shift->_create_query(@_);

 }

@@ -1939,7 +1942,7 @@ sub create_query {

 sub apply_filter {

   my $self = shift;

-  warn "apply_filter is DEPRECATED!";

+  _deprecate('0.24', "apply_filter is DEPRECATED!");

   return $self->_apply_filter(@_);

 }

@@ -1947,7 +1950,7 @@ sub apply_filter {

 sub select_at {

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

-  warn "select_at is DEPRECATED! use select method id option instead";

+  _deprecate('0.24', "select_at is DEPRECATED! use select method id option instead");

   # Options

   my $primary_keys = delete $opt{primary_key};

@@ -1969,7 +1972,7 @@ sub select_at {

 sub delete_at {

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

-  warn "delete_at is DEPRECATED! use delete method id option instead";

+  _deprecate('0.24', "delete_at is DEPRECATED! use delete method id option instead");

   # Options

   my $primary_keys = delete $opt{primary_key};

@@ -1985,7 +1988,7 @@ sub delete_at {

 sub update_at {

   my $self = shift;

-  warn "update_at is DEPRECATED! use update method id option instead";

+  _deprecate('0.24', "update_at is DEPRECATED! use update method id option instead");

   # Options

   my $param;

@@ -2006,7 +2009,7 @@ sub update_at {

 sub insert_at {

   my $self = shift;

-  warn "insert_at is DEPRECATED! use insert method id option instead";

+  _deprecate('0.24', "insert_at is DEPRECATED! use insert method id option instead");

   # Options

   my $param;

@@ -2029,7 +2032,7 @@ sub insert_at {

 sub register_tag {

   my $self = shift;

-  warn "register_tag is DEPRECATED!";

+  _deprecate('0.24', "register_tag is DEPRECATED!");

   # Merge tag

   my $tags = ref $_[0] eq 'HASH' ? $_[0] : {@_};

@@ -2041,7 +2044,7 @@ sub register_tag {

 # DEPRECATED!

 sub register_tag_processor {

   my $self = shift;

-  warn "register_tag_processor is DEPRECATED!";

+  _deprecate('0.24', "register_tag_processor is DEPRECATED!");

   # Merge tag

   my $tag_processors = ref $_[0] eq 'HASH' ? $_[0] : {@_};

   $self->{_tags} = {%{$self->{_tags} || {}}, %{$tag_processors}};

@@ -2052,7 +2055,7 @@ sub register_tag_processor {

 sub default_bind_filter {

   my $self = shift;

-  warn "default_bind_filter is DEPRECATED!";

+  _deprecate('0.24', "default_bind_filter is DEPRECATED!");

   if (@_) {

     my $fname = $_[0];

@@ -2076,7 +2079,7 @@ sub default_bind_filter {

 sub default_fetch_filter {

   my $self = shift;

-  warn "default_fetch_filter is DEPRECATED!";

+  _deprecate('0.24', "default_fetch_filter is DEPRECATED!");

   if (@_) {

     my $fname = $_[0];

@@ -2100,21 +2103,21 @@ sub default_fetch_filter {

 # DEPRECATED!

 sub insert_param {

   my $self = shift;

-  warn "insert_param is DEPRECATED! use values_clause instead";

+  _deprecate('0.24', "insert_param is DEPRECATED! use values_clause instead");

   return $self->values_clause(@_);

 }

 # DEPRECATED!

 sub insert_param_tag {

-  warn "insert_param_tag is DEPRECATED! " .

-    "use insert_param instead!";

+  _deprecate('0.24', "insert_param_tag is DEPRECATED! " .

+    "use insert_param instead!");

   return shift->insert_param(@_);

 }

 # DEPRECATED!

 sub update_param_tag {

-  warn "update_param_tag is DEPRECATED! " .

-    "use update_param instead";

+  _deprecate('0.24', "update_param_tag is DEPRECATED! " .

+    "use update_param instead");

   return shift->update_param(@_);

 }

 # DEPRECATED!

@@ -3722,15 +3725,21 @@ executed SQL and bind values are printed to STDERR.

 DEBUG output encoding. Default to UTF-8.

-=head2 C<DBIX_CUSTOM_TAG_PARSE>

-

-If you set DBIX_CUSTOM_TAG_PARSE to 0, tag parsing is off.

-

 =head2 C<DBIX_CUSTOM_DISABLE_MODEL_EXECUTE>

 If you set DBIX_CUSTOM_DISABLE_MODEL_EXECUTE to 1,

 L<DBIx::Custom::Model> execute method call L<DBIx::Custom> execute.

+=head2 C<DBIX_CUSTOM_SUPPRESS_DEPRECATION>

+

+  $ENV{DBIX_CUSTOM_SUPPRESS_DEPRECATION} = '0.25';

+

+Suppress deprecation warnings before specified version.

+

+=head2 C<DBIX_CUSTOM_TAG_PARSE>

+

+If you set DBIX_CUSTOM_TAG_PARSE to 0, tag parsing is off.

+

 =head1 DEPRECATED FUNCTIONALITY

 L<DBIx::Custom>

@@ -3834,6 +3843,7 @@ L<DBIx::Custom::Result>

   filter_check # will be removed at 2017/1/1

   # Methods

+  column (from 0.25) # will be removed at 2017/2/1

   fetch_first # will be removed at 2017/2/1

   fetch_hash_first # will be removed 2017/2/1

   filter_on # will be removed at 2017/1/1

@@ -3855,14 +3865,15 @@ L<DBIx::Custom::Order>

 =head1 BACKWARDS COMPATIBILITY POLICY

-If a functionality is DEPRECATED, you can know it by DEPRECATED warnings

-except for attribute method.

-You can check all DEPRECATED functionalities by document.

-DEPRECATED functionality is removed after five years,

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

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

+DEPRECATED feature is removed after C<five years>,

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

 I extend one year each time he tell me it.

-EXPERIMENTAL functionality will be changed without warnings.

+DEPRECATION warnings can be suppressed by C<DBIX_CUSTOM_SUPPRESS_DEPRECATION>

+environment variable.

+

+EXPERIMENTAL features will be changed without warnings.

 =head1 BUGS

@@ -4,7 +4,7 @@ use Object::Simple -base;

 use DBIx::Custom::NotExists;

 use Carp 'croak';

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

+use DBIx::Custom::Util qw/_subname _deprecate/;

 # Carp trust relationship

 push @DBIx::Custom::CARP_NOT, __PACKAGE__;

@@ -43,13 +43,13 @@ sub map {

     }

     elsif (!ref $mapping) {

       $new_key = $mapping;

-      warn qq/map method's string value "$mapping" is DEPRECATED. / .

-           qq/use {key => ...} syntax instead/

+      _deprecate('0.24', qq/map method's string value "$mapping" is DEPRECATED. / .

+        qq/use {key => ...} syntax instead/);

     }

     elsif (ref $mapping eq 'CODE') {

       $value = $mapping;

-      warn qq/map method's code reference value "$mapping" is DEPRECATED. / .

-           qq/use {value => ...} syntax instead/

+      _deprecate('0.24', qq/map method's code reference value "$mapping" is DEPRECATED. / .

+        qq/use {value => ...} syntax instead/);

     }

     $new_key = $key unless defined $new_key;

@@ -2,7 +2,7 @@ package DBIx::Custom::Model;

 use Object::Simple -base;

 use Carp 'croak';

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

+use DBIx::Custom::Util qw/_subname _deprecate/;

 # Carp trust relationship

 push @DBIx::Custom::CARP_NOT, __PACKAGE__;

@@ -93,11 +93,12 @@ sub execute {

       $self->dbi->execute(@_);

   }

   else {

-    warn "DBIx::Custom::Model execute method is DEPRECATED! " .

-     "use DBIx::Custom execute method. " .

-     "If you want to call DBIx::Custom execute method directory from model, " .

-     "set \$ENV{DBIX_CUSTOM_DISABLE_MODEL_EXECUTE} to 1 " .

-     "until DBIx::Custom::Model execute method is removed in the future." ;

+    _deprecate('0.24', "DBIx::Custom::Model execute method is DEPRECATED! " .

+      "use DBIx::Custom execute method. " .

+      "If you want to call DBIx::Custom execute method directory from model, " .

+      "set \$ENV{DBIX_CUSTOM_DISABLE_MODEL_EXECUTE} to 1 " .

+      "until DBIx::Custom::Model execute method is removed in the future." );

+    

     return $self->dbi->execute(

       shift,

       shift,

@@ -162,7 +163,7 @@ has 'updated_at';

 # DEPRECATED!

 sub method {

-  warn "method method is DEPRECATED! use helper instead";

+  _deprecate('0.24', "method method is DEPRECATED! use helper instead");

   return shift->helper(@_);

 }

@@ -1,5 +1,7 @@

 package DBIx::Custom::Order;

 use Object::Simple -base;

+use DBIx::Custom::Util '_deprecate';

+

 use overload

   'bool'   => sub {1},

   '""'     => sub { shift->to_string },

@@ -13,8 +15,8 @@ sub prepend {

   for my $order (reverse @_) {

     if (ref $order eq 'ARRAY') {

-      warn "prepend method receiving array reference is DEPRECATED! " .

-           "use q method to quote column name.";

+      _deprecate('0.24', "prepend method receiving array reference is DEPRECATED! " .

+        "use q method to quote column name.");

       my $column = shift @$order;

       $column = $self->dbi->q($column) if defined $column;

       my $derection = shift @$order;

@@ -1,63 +0,0 @@

-package DBIx::Custom::Pool;

-use Object::Simple -base;

-use Carp 'croak';

-use Digest::MD5 'md5_hex';

-

-has count => 5;

-

-sub prepare {

-  my ($self, $cb) = @_;

-  

-  my $count = $self->count;

-  for (my $i = 0; $i < $count; $i++) {

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

-    

-    my $id = $self->_id;

-    

-    $self->{_pool}{$id} = $dbi;

-  }

-  return $self;

-}

-

-sub get {

-  my $self = shift;

-  

-  my @ids = keys %{$self->{_pool}};

-  croak "Pool is empty" unless @ids;

-  my $id = $ids[0];

-  my $dbi = delete $self->{_pool}{$id};

-  $self->{_borrow}{$id} = 1;

-  $dbi->{_pool_id} = $id;

-  return $dbi;

-}

-

-sub back {

-  my ($self, $dbi) = @_;

-  my $id = $dbi->{_pool_id};

-  return unless ref $dbi && defined $id;

-  croak "This DBIx::Custom object is already returned back"

-    if $self->{_pool}{$id};

-  delete $self->{_borrow}{$id};

-  $self->{_pool}{$id} = $dbi;

-  

-  return $self;

-}

-

-sub _id {

-  my $self = shift;

-  my $id;

-  do { $id = md5_hex('c' . time . rand 999) }

-    while $self->{_pool}->{$id} || $self->{_borrow}->{$id};

-  return $id;

-}

-

-1;

-

-=head1 NAME

-

-DBIx::Custom::Pool

-

-=head1 DESCRIPTION

-

-DBI Pool. this module is very experimental.

-

@@ -2,7 +2,7 @@ package DBIx::Custom::Query;

 use Object::Simple -base;

 use Carp 'croak';

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

+use DBIx::Custom::Util qw/_subname _deprecate/;

 has [qw/sth statement/],

   sql => '',

@@ -11,7 +11,7 @@ has [qw/sth statement/],

 # DEPRECATED!

 has 'default_filter';

 sub filters {

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

+  _depredcate('0.24', "DBIx::Custom::Query filters attribute method is DEPRECATED!");

   my $self = shift;

   if (@_) {

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

@@ -22,7 +22,7 @@ sub filters {

 # DEPRECATED!

 sub tables {

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

+  _deprecate('0.24', "DBIx::Custom::Query tables attribute method is DEPRECATED!");

   my $self = shift;

   if (@_) {

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

@@ -33,7 +33,7 @@ sub tables {

 #DEPRECATED!

 sub filter {

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

+  _deprecate('0.24', "DBIx::Custom::Query filter method is DEPRECATED!");

   my $self = shift;

   if (@_) {

     my $filter = {};

@@ -5,7 +5,7 @@ use Object::Simple -base;

 use Carp 'croak';

 use DBIx::Custom::Query;

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

+use DBIx::Custom::Util qw/_subname _deprecate/;

 # Carp trust relationship

 push @DBIx::Custom::CARP_NOT, __PACKAGE__;

@@ -17,8 +17,8 @@ sub build_query {

   my $query = $self->_parse_tag($sql);

   my $tag_count = delete $query->{tag_count};

-  warn qq/Tag system such as {? name} is DEPRECATED! / .

-      qq/use parameter system such as :name instead/

+  _deprecate('0.24', qq/Tag system such as {? name} is DEPRECATED! / .

+      qq/use parameter system such as :name instead/)

     if $tag_count;

   my $query2 = $self->_parse_parameter($query->sql);

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

@@ -70,7 +70,7 @@ has tags => sub { {} };

 sub register_tag {

   my $self = shift;

-  warn "register_tag is DEPRECATED!";

+  _deprecate('0.24', "register_tag is DEPRECATED!");

   # Merge tag

   my $tags = ref $_[0] eq 'HASH' ? $_[0] : {@_};

@@ -260,7 +260,7 @@ has tag_processors => sub { {} };

 # DEPRECATED!

 sub register_tag_processor {

   my $self = shift;

-  warn "register_tag_processor is DEPRECATED!";

+  _deprecate('0.24', "register_tag_processor is DEPRECATED!");

   # Merge tag

   my $tag_processors = ref $_[0] eq 'HASH' ? $_[0] : {@_};

   $self->tag_processors({%{$self->tag_processors}, %{$tag_processors}});

@@ -2,22 +2,13 @@ package DBIx::Custom::Result;

 use Object::Simple -base;

 use Carp 'croak';

-use DBIx::Custom::Util qw/_array_to_hash _subname/;

+use DBIx::Custom::Util qw/_array_to_hash _subname _deprecate/;

 has [qw/dbi sth/],

   stash => sub { {} };

 *all = \&fetch_hash_all;

-sub column {

-  my $self = shift;

-  

-  my $column = [];

-  my $rows = $self->fetch_all;

-  push @$column, $_->[0] for @$rows;

-  return $column;

-}

-

 sub fetch {

   my $self = shift;

@@ -350,6 +341,15 @@ sub value {

   return $value;

 }

+sub values {

+  my $self = shift;

+  

+  my $values = [];

+  my $rows = $self->fetch_all;

+  push @$values, $_->[0] for @$rows;

+  return $values;

+}

+

 sub _cache {

   my $self = shift;

   $self->{_type_map} = {};

@@ -367,23 +367,35 @@ sub _cache {

   $self->{_cache} = 1;

 }

+# DEPRECATED!

+sub column {

+  my $self = shift;

+  

+  _deprecate('0.25', "DBIx::Custom::Result::column method is DEPRECATED. "

+    . "use values method instead");

+  

+  return $self->values(@_);

+}

+

 # DEPRECATED!

 sub fetch_hash_first {

   my $self = shift;

-  warn "DBIx::Custom::Result::fetch_hash_first is DEPRECATED! use fetch_hash_one instead";

+  _deprecate('0.24', "DBIx::Custom::Result::fetch_hash_first is DEPRECATED! "

+    . "use fetch_hash_one instead");

   return $self->fetch_hash_one(@_);

 }

 # DEPRECATED!

 sub fetch_first {

   my $self = shift;

-  warn "DBIx::Custom::Result::fetch_first is DEPRECATED! use fetch_one instead";

+  _deprecate('0.24', "DBIx::Custom::Result::fetch_first is DEPRECATED! "

+    . " use fetch_one instead");

   return $self->fetch_one(@_);

 }

 # DEPRECATED!

 sub filter_off {

-  warn "filter_off method is DEPRECATED!";

+  _deprecate('0.24', "filter_off method is DEPRECATED!");

   my $self = shift;

   $self->{filter_off} = 1;

   return $self;

@@ -391,7 +403,7 @@ sub filter_off {

 # DEPRECATED!

 sub filter_on {

-  warn "filter_on method is DEPRECATED!";

+  _deprecated('0.24', "filter_on method is DEPRECATED!");

   my $self = shift;

   $self->{filter_off} = 0;

   return $self;

@@ -399,7 +411,7 @@ sub filter_on {

 # DEPRECATED!

 sub end_filter {

-  warn "end_filter method is DEPRECATED!";

+  _deprecate('0.24', "end_filter method is DEPRECATED!");

   my $self = shift;

   if (@_) {

     my $end_filter = {};

@@ -427,21 +439,21 @@ sub end_filter {

 }

 # DEPRECATED!

 sub remove_end_filter {

-  warn "remove_end_filter is DEPRECATED!";

+  _deprecate('0.24', "remove_end_filter is DEPRECATED!");

   my $self = shift;

   $self->{end_filter} = {};

   return $self;

 }

 # DEPRECATED!

 sub remove_filter {

-  warn "remove_filter is DEPRECATED!";

+  _deprecate('0.24', "remove_filter is DEPRECATED!");

   my $self = shift;

   $self->{filter} = {};

   return $self;

 }

 # DEPRECATED!

 sub default_filter {

-  warn "default_filter is DEPRECATED!";

+  _deprecate('0.24', "default_filter is DEPRECATED!");

   my $self = shift;

   if (@_) {

     my $fname = $_[0];

@@ -524,14 +536,6 @@ and implements the following new ones.

 Same as C<fetch_hash_all>.

-=head2 C<column>

-

-  my $column = $result->column;

-

-Get first column's all values.

-

-  my $names = $dbi->select('name', table => 'book')->column;

-

 =head2 C<fetch>

   my $row = $result->fetch;

@@ -756,4 +760,12 @@ Get first column's first value.

   my $count = $dbi->select('count(*)')->value;

+=head2 C<values>

+

+  my $values = $result->values;

+

+Get first column's values.

+

+  my $names = $dbi->select('name', table => 'book')->values;

+

 =cut

@@ -5,7 +5,7 @@ use warnings;

 use base 'Exporter';

-our @EXPORT_OK = qw/_array_to_hash _subname/;

+our @EXPORT_OK = qw/_array_to_hash _subname _deprecate/;

 sub _array_to_hash {

   my $array = shift;

@@ -29,6 +29,15 @@ sub _array_to_hash {

 sub _subname { '(' . (caller 1)[3] . ')' }

+sub _deprecate {

+  my ($deprecated_version, $message) = @_;

+  

+  my $suppress_version = $ENV{DBIX_CUSTOM_SUPPRESS_DEPRECATION} || 0;

+  

+  warn "$message (Version: $deprecated_version) (" . (caller 1)[3] . ")\n"

+    if $suppress_version < $deprecated_version;

+}

+

 1;

 =head1 NAME

@@ -5,6 +5,8 @@ use Encode qw/encode_utf8/;

 use FindBin;

 use Scalar::Util 'isweak';

+$ENV{DBIX_CUSTOM_SUPPRESS_DEPRECATION} = '0.25';

+

 my $dbi;

 plan skip_all => $ENV{DBIX_CUSTOM_SKIP_MESSAGE} || 'common.t is always skipped'

@@ -13,7 +15,6 @@ plan skip_all => $ENV{DBIX_CUSTOM_SKIP_MESSAGE} || 'common.t is always skipped'

 plan 'no_plan';

-$SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /DEPRECATED/};

 sub test { print "# $_[0]\n" }

 # Dot to under score

@@ -403,6 +404,7 @@ $rows = $result->fetch_hash_all;

 is_deeply($rows, [{$key1 => 1, $key2 => 2}, {$key1 => 3, $key2 => 4}], "all");

 is_deeply($dbi->select($key1, table => $table1)->column, [1, 3]);

+is_deeply($dbi->select($key1, table => $table1)->values, [1, 3]);

 is($dbi->select('count(*)', table => $table1)->value, 2);

 ok(!defined $dbi->select($key1, table => $table1, where => {$key1 => 10})->value);

@@ -4190,6 +4192,12 @@ $model = $dbi->model($table1);

 $model->columns([$key1, $key2]);

 is_deeply($model->columns, [$key1, $key2]);

+test 'columns';

+$dbi = MyDBI1->connect;

+$model = $dbi->model($table1);

+$model->columns([$key1, $key2]);

+is_deeply($model->columns, [$key1, $key2]);

+

 test 'setup_model';

 $dbi = MyDBI1->connect;

 $dbi->user_table_info($user_table_info);