@@ -1,3 +1,17 @@

+0.1699

+    - added EXPERIMENTAL order method

+    - added EXPERIMENTAL DBIx::Custom::Order module

+    - changed backword compatible 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

+      I extend one year each time you tell me it.

+

+      EXPERIMENTAL functionality will be changed without warnings.

+      ------------------------------------------------------------------------

 0.1698

     - fixed DBIx::Custom::Where to_string method small bug

     - added EXPERIMENTAL execute method table_alias option

@@ -12,6 +12,7 @@ use DBIx::Custom::QueryBuilder;

 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 Encode qw/encode encode_utf8 decode_utf8/;

@@ -732,6 +733,11 @@ sub new {

 sub not_exists { bless {}, 'DBIx::Custom::NotExists' }

+sub order {

+    my $self = shift;

+    return DBIx::Custom::Order->new(@_);

+}

+

 sub register_filter {

     my $self = shift;

@@ -760,10 +766,10 @@ sub select {

     croak qq{"join" must be array reference } . _subname

       unless ref $join eq 'ARRAY';

     my $relation = delete $args{relation};

-    warn "select() relation option is DEPRECATED! use join option instead"

+    warn "select() relation option is DEPRECATED!"

       if $relation;

     my $param = delete $args{param} || {}; # DEPRECATED!

-    warn "select() param option is DEPRECATED! use where_param option instead"

+    warn "select() param option is DEPRECATED!"

       if keys %$param;

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

     my $wrap = delete $args{wrap};

@@ -1244,7 +1250,7 @@ sub _connect {

     # Attributes

     my $dsn = $self->data_source;

-    warn "data_source is DEPRECATED! use dsn instead\n"

+    warn "data_source is DEPRECATED!\n"

       if $dsn;

     $dsn ||= $self->dsn;

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

@@ -1420,7 +1426,6 @@ sub _where_to_obj {

     return $obj;

 }

-# DEPRECATED!

 sub _apply_filter {

     my ($self, $table, @cinfos) = @_;

@@ -1500,10 +1505,7 @@ sub create_query {

 sub apply_filter {

     my $self = shift;

-    warn "apply_filter is DEPRECATED! " . 

-         "use type_rule method and DBIx::Custom::Result filter method, " .

-         "instead";

-    

+    warn "apply_filter is DEPRECATED!";

     return $self->_apply_filter(@_);

 }

@@ -1740,7 +1742,7 @@ sub _add_relation_table {

 =head1 NAME

-DBIx::Custom - Useful database access, respecting SQL!

+DBIx::Custom - Execute insert, update, delete, and select statement easily

 =head1 SYNOPSYS

@@ -2503,6 +2505,12 @@ Create a new L<DBIx::Custom> object.

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

 This is used by C<clause> of L<DBIx::Custom::Where> .

+=head2 C<order> EXPERIMENTAL

+

+    my $order = $dbi->order;

+

+Create a new L<DBIx::Custom::Order> object.

+

 =head2 C<register_filter>

     $dbi->register_filter(

@@ -2931,10 +2939,91 @@ executed SQL and bind values are printed to STDERR.

 DEBUG output encoding. Default to UTF-8.

-=head1 STABILITY

+=head1 DEPRECATED FUNCTIONALITIES

+

+L<DBIx::Custom>

+

+    # Attribute methods

+    data_source # Removed at 2017/1/1

+    dbi_options # Removed at 2017/1/1

+    filter_check # Removed at 2017/1/1

+    reserved_word_quote # Removed at 2017/1/1

+    

+    # Methods

+    create_query # Removed at 2017/1/1

+    apply_filter # Removed at 2017/1/1

+    select_at # Removed at 2017/1/1

+    delete_at # Removed at 2017/1/1

+    update_at # Removed at 2017/1/1

+    insert_at # Removed at 2017/1/1

+    register_tag # Removed at 2017/1/1

+    default_bind_filter # Removed at 2017/1/1

+    default_fetch_filter # Removed at 2017/1/1

+    insert_param_tag # Removed at 2017/1/1

+    register_tag_processor # Removed at 2017/1/1

+    update_param_tag # Removed at 2017/1/1

+    

+    # Options

+    select method relation option # Removed at 2017/1/1

+    select method param option # Removed at 2017/1/1

+    

+    # Others

+    execute("select * from {= title}"); # execute tag parsing functionality

+                                        # Removed at 2017/1/1

+

+L<DBIx::Custom::Model>

+

+    # Attribute method

+    filter # Removed at 2017/1/1

+    name # Removed at 2017/1/1

+    type # Removed at 2017/1/1

+

+L<DBIx::Custom::Query>

+    

+    # Attribute method

+    default_filter # Removed at 2017/1/1

+

+L<DBIx::Custom::QueryBuilder>

+    

+    # Attribute method

+    tags # Removed at 2017/1/1

+    tag_processors # Removed at 2017/1/1

+    

+    # Method

+    register_tag # Removed at 2017/1/1

+    register_tag_processor # Removed at 2017/1/1

+    

+    # Others

+    build_query("select * from {= title}"); # tag parsing functionality

+                                            # Removed at 2017/1/1

+

+L<DBIx::Custom::Result>

+    

+    # Attribute method

+    filter_check # Removed at 2017/1/1

+    

+    # Methods

+    end_filter # Removed at 2017/1/1

+    remove_end_filter # Removed at 2017/1/1

+    remove_filter # Removed at 2017/1/1

+    default_filter # Removed at 2017/1/1

+

+L<DBIx::Custom::Tag>

+

+    This module is DEPRECATED! # Removed at 2017/1/1

+

+=head1 BACKWORD COMPATIBLE 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

+I extend one year each time you tell me it.

+

+EXPERIMENTAL functionality will be changed without warnings.

-L<DBIx::Custom> is stable. APIs keep backword compatible

-except EXPERIMENTAL one in the feature.

+This policy is changed at 2011/6/28

 =head1 BUGS

@@ -0,0 +1,74 @@

+package DBIx::Custom::Order;

+use Object::Simple -base;

+use overload

+  'bool'   => sub {1},

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

+  fallback => 1;

+

+has orders => sub { [] };

+

+sub prepend { unshift @{shift->orders}, @_ }

+

+sub to_string {

+    my $self = shift;

+    

+    my $exists = {};

+    my @orders;

+    foreach my $order (@{$self->orders}) {

+        next unless defined $order;

+        $order =~ s/^\s+//;

+        $order =~ s/\s+$//;

+        my ($column, $direction) = split /\s+/, $order;

+        push @orders, $order unless $exists->{$column};

+        $exists->{$column} = 1;

+    }

+    

+    return '' unless @orders;

+    return 'order by ' . join(', ', @orders);

+}

+

+1;

+

+=head1 NAME

+

+DBIx::Custom::Order - Order by EXPERIMENTAL

+

+=head1 SYNOPSIS

+

+    # Result

+    my $order = DBIx::Custom::Order->new;

+    $order->prepend('title', 'author desc');

+    my $order_by = "$order";

+    

+

+=head1 ATTRIBUTES

+

+=head2 C<orders>

+

+    my $orders = $result->orders;

+    $result = $result->orders(\%orders);

+

+Parts of order by clause

+

+=head1 METHODS

+

+L<DBIx::Custom::Result> inherits all methods from L<Object::Simple>

+and implements the following new ones.

+

+=head2 C<prepend>

+

+    $order->prepend('title', 'author desc');

+

+Prepend order parts to C<orders>.

+

+=head2 C<to_string>

+

+    my $order_by = $order->to_string;

+

+Create order by clause. If column name is duplicated, First one is used.

+C<to_string> override stringification. so you can write the follwoing way.

+

+    my $order_by = "$order";

+

+=cut

+

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

 # DEPRECATED!

 sub register_tag_processor {

     my $self = shift;

-    warn "register_tag_processor is DEPRECATED! use register_tag instead";

+    warn "register_tag_processor is DEPRECATED!";

     # Merge tag

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

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

@@ -284,6 +284,7 @@ sub type_rule2_on {

 # DEPRECATED!

 sub end_filter {

+    warn "end_filter method is DEPRECATED!";

     my $self = shift;

     if (@_) {

         my $end_filter = {};

@@ -309,27 +310,24 @@ sub end_filter {

     }

     return $self->{end_filter} ||= {};

 }

-

 # DEPRECATED!

 sub remove_end_filter {

+    warn "remove_end_filter is DEPRECATED!";

     my $self = shift;

-    warn "remove_end_filter is DEPRECATED! use filter_off attribute instead";

     $self->{end_filter} = {};

     return $self;

 }

-

 # DEPRECATED!

 sub remove_filter {

+    warn "remove_filter is DEPRECATED!";

     my $self = shift;

-    warn "remove_filter is DEPRECATED! use filter_off attribute instead";

     $self->{filter} = {};

     return $self;

 }

-

 # DEPRECATED!

 sub default_filter {

-    my $self = shift;

     warn "default_filter is DEPRECATED!";

+    my $self = shift;

     if (@_) {

         my $fname = $_[0];

         if (@_ && !$fname) {

@@ -344,7 +342,6 @@ sub default_filter {

     }

     return $self->{default_filter};

 }

-

 # DEPRECATED!

 has 'filter_check'; 

@@ -3286,4 +3286,25 @@ $dbi->execute("insert into table1 (key1) values (:table2.key1)", {'table2.key1'

 $result = $dbi->select(table => 'table1');

 is($result->one->{key1}, 'A');

+

+test 'order';

+$dbi = DBIx::Custom->connect(dsn => 'dbi:SQLite:dbname=:memory:');

+{

+    $dbi->execute("create table table1 (key1, key2)");

+    $dbi->insert({key1 => 1, key2 => 1}, table => 'table1');

+    $dbi->insert({key1 => 1, key2 => 3}, table => 'table1');

+    $dbi->insert({key1 => 2, key2 => 2}, table => 'table1');

+    $dbi->insert({key1 => 2, key2 => 4}, table => 'table1');

+    my $order = $dbi->order;

+    $order->prepend('key1', 'key2 desc');

+    $result = $dbi->select(table => 'table1', append => "$order");

+    is_deeply($result->all, [{key1 => 1, key2 => 3}, {key1 => 1, key2 => 1},

+      {key1 => 2, key2 => 4}, {key1 => 2, key2 => 2}]);

+    $order->prepend('key1 desc');

+    $result = $dbi->select(table => 'table1', append => "$order");

+    is_deeply($result->all, [{key1 => 2, key2 => 4}, {key1 => 2, key2 => 2},

+      {key1 => 1, key2 => 3}, {key1 => 1, key2 => 1}]);

+}

+

+

 =cut

@@ -3,6 +3,8 @@ use strict;

 use warnings;

 use DBI;

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

+

 BEGIN {

     eval { require DBD::SQLite; 1 }

         or plan skip_all => 'DBD::SQLite required';