@@ -1,3 +1,11 @@

+0.1675

+    - removed DEPRECATED DBIx::Custom::MySQL and DBIx::Custom::SQLite

+      these implementations remine in https://github.com/yuki-kimoto/DBIx-Custom/wiki

+      for some users.

+    - removed EXPERIMENTAL replace().

+    - removed EXPERIMENTAL mark from many methods.

+0.1674

+    - fixed test bug

 0.1673

     - fixed dbh() method bug.

 0.1672

@@ -1,6 +1,6 @@

 package DBIx::Custom;

-our $VERSION = '0.1673';

+our $VERSION = '0.1675';

 use 5.008001;

 use strict;

@@ -786,26 +786,6 @@ sub register_filter {

 sub register_tag { shift->query_builder->register_tag(@_) }

-sub replace {

-    my ($self, $join, $search, $replace) = @_;

-    

-    # Replace

-    my @replace_join;

-    my $is_replaced;

-    foreach my $j (@$join) {

-        if ($search eq $j) {

-            push @replace_join, $replace;

-            $is_replaced = 1;

-        }

-        else {

-            push @replace_join, $j;

-        }

-    }

-    croak qq{Can't replace "$search" with "$replace"} unless $is_replaced;

-    

-    return \@replace_join;

-}

-

 our %SELECT_ARGS

   = map { $_ => 1 } @COMMON_ARGS, qw/column where append relation join param/;

@@ -1533,7 +1513,7 @@ L<DBIx::Custom Wiki|https://github.com/yuki-kimoto/DBIx-Custom/wiki>

 =head1 ATTRIBUTES

-=head2 C<connector> EXPERIMENTAL

+=head2 C<connector>

     my $connector = $dbi->connector;

     $dbi          = $dbi->connector(DBIx::Connector->new(...));

@@ -1592,7 +1572,7 @@ the value is used to check if the process is in transaction.

 Filters, registered by C<register_filter()>.

-=head2 C<models> EXPERIMENTAL

+=head2 C<models>

     my $models = $dbi->models;

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

@@ -1613,7 +1593,7 @@ Password, used when C<connect()> is executed.

 Query builder, default to L<DBIx::Custom::QueryBuilder> object.

-=head2 C<reserved_word_quote> EXPERIMENTAL

+=head2 C<reserved_word_quote>

      my reserved_word_quote = $dbi->reserved_word_quote;

      $dbi                   = $dbi->reserved_word_quote('"');

@@ -1648,7 +1628,7 @@ L<DBIx::Custom> inherits all methods from L<Object::Simple>

 and use all methods of L<DBI>

 and implements the following new ones.

-=head2 C<apply_filter> EXPERIMENTAL

+=head2 C<apply_filter>

     $dbi->apply_filter(

         'book',

@@ -1901,7 +1881,7 @@ filter name registerd by C<register_filter()>.

 These filters are added to the C<out> filters, set by C<apply_filter()>.

-=head2 C<column> EXPERIMENTAL

+=head2 C<column>

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

@@ -2108,7 +2088,7 @@ Create insert parameter tag.

     (title, author) values ({? title}, {? author});

-=head2 C<include_model> EXPERIMENTAL

+=head2 C<include_model>

     $dbi->include_model('MyModel');

@@ -2156,7 +2136,7 @@ You can get model object by C<model()>.

 See L<DBIx::Custom::Model> to know model features.

-=head2 C<merge_param> EXPERIMENTAL

+=head2 C<merge_param>

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

@@ -2166,7 +2146,7 @@ $param:

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

-=head2 C<method> EXPERIMENTAL

+=head2 C<method>

     $dbi->method(

         update_or_insert => sub {

@@ -2186,7 +2166,7 @@ Register method. These method is called directly from L<DBIx::Custom> object.

     $dbi->update_or_insert;

     $dbi->find_or_create;

-=head2 C<model> EXPERIMENTAL

+=head2 C<model>

     $dbi->model('book')->method(

         insert => sub { ... },

@@ -2197,7 +2177,7 @@ Register method. These method is called directly from L<DBIx::Custom> object.

 Set and get a L<DBIx::Custom::Model> object,

-=head2 C<mycolumn> EXPERIMENTAL

+=head2 C<mycolumn>

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

@@ -2277,21 +2257,6 @@ Column names is

     ['title', 'author']

-=head2 C<replace> EXPERIMENTAL

-    

-    my $join = [

-        'left outer join table2 on table1.key1 = table2.key1',

-        'left outer join table3 on table2.key3 = table3.key3'

-    ];

-    $join = $dbi->replace(

-        $join,

-        'left outer join table2 on table1.key1 = table2.key1',

-        'left outer join (select * from table2 where {= table2.key1}) ' . 

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

-    );

-

-Replace join clauses if match the expression.

-

 =head2 C<select>

     my $result = $dbi->select(

@@ -2350,7 +2315,7 @@ or array refrence, which contains where clause and paramter.

         ]

     );

-=item C<join> EXPERIMENTAL

+=item C<join>

 Join clause used in need. This is array reference.

@@ -2445,7 +2410,7 @@ You can check SQL.

     my $sql = $query->sql;

-=item C<type> EXPERIMENTAL

+=item C<type>

 Specify database data type.

@@ -2668,7 +2633,7 @@ Create update parameter tag.

     set title = {? title}, author = {? author}

 You can create tag without 'set '

-by C<no_set> option. This option is EXPERIMENTAL.

+by C<no_set> option.

     my $update_param_tag = $dbi->update_param_tag(

         {title => 'a', age => 2}

@@ -2686,7 +2651,7 @@ by C<no_set> option. This option is EXPERIMENTAL.

 Create a new L<DBIx::Custom::Where> object.

-=head2 C<setup_model> EXPERIMENTAL

+=head2 C<setup_model>

     $dbi->setup_model;

@@ -120,7 +120,7 @@ sub new {

 =head1 NAME

-DBIx::Custom::Model - Model EXPERIMENTAL

+DBIx::Custom::Model - Model

 =head1 SYNOPSIS

@@ -246,7 +246,7 @@ you don't have to specify C<table> option.

 Same as C<insert_at()> of L<DBIx::Custom> except that

 you don't have to specify C<table> and C<primary_key> option.

-=head2 C<method> EXPERIMENTAL

+=head2 C<method>

     $model->method(

         update_or_insert => sub {

@@ -1,36 +0,0 @@

-package DBIx::Custom::MySQL;

-

-use strict;

-use warnings;

-

-use base 'DBIx::Custom';

-

-__PACKAGE__->attr([qw/database host port/]);

-

-sub connect {

-    my $proto = shift;

-    

-    # Create a new object

-    my $self = ref $proto ? $proto : $proto->new(@_);

-    

-    # Data source

-    if (!$self->data_source) {

-        my $database = $self->database;

-        my $host     = $self->host;

-        my $port     = $self->port;

-        my $data_source = "dbi:mysql:";

-        $data_source .= "database=$database;" if $database;

-        $data_source .= "host=$host;"         if $host;

-        $data_source .= "port=$port;"         if $port;

-        $self->data_source($data_source);

-    }

-    

-    return $self->SUPER::connect;

-}

-

-1;

-

-=head1 NAME

-

-DBIx::Custom::MySQL - DEPRECATED!

-

@@ -372,7 +372,7 @@ Statement handle of L<DBI>.

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

 and implements the following new ones.

-=head2 C<end_filter> EXPERIMENTAL

+=head2 C<end_filter>

     $result = $result->end_filter(title  => 'to_something',

                                      author => 'to_something');

@@ -444,19 +444,19 @@ Filters.

 These each filters override the filters applied by C<apply_filter> of

 L<DBIx::Custom>.

-=head2 C<remove_end_filter> EXPERIMENTAL

+=head2 C<remove_end_filter>

     $result->remove_end_filter;

 Remove end filter.

-=head2 C<remove_filter> EXPERIMENTAL

+=head2 C<remove_filter>

     $result->remove_filter;

 Remove filter. End filter is not removed.

-=head2 C<stash> EXPERIMENTAL

+=head2 C<stash>

     my $stash = $result->stash;

     my $foo = $result->stash->{foo};

@@ -1,42 +0,0 @@

-package DBIx::Custom::SQLite;

-

-use strict;

-use warnings;

-

-use base 'DBIx::Custom';

-

-__PACKAGE__->attr('database');

-

-sub connect {

-    my $proto = shift;

-    

-    # Create a new object

-    my $self = ref $proto ? $proto : $proto->new(@_);

-    

-    # Data source

-    my $database = $self->database;

-    if (!$self->data_source && $database) {

-        $self->data_source("dbi:SQLite:dbname=$database")

-    }

-    

-    return $self->SUPER::connect;

-}

-

-sub connect_memory {

-    my $self = shift->new(@_);

-    

-    # Data source

-    $self->data_source('dbi:SQLite:dbname=:memory:');

-    

-    # Connect to database

-    $self->connect;

-    

-    return $self;

-}

-

-1;

-

-=head1 NAME

-

-DBIx::Custom::SQLite - DEPRECATED!

-

@@ -2108,36 +2108,3 @@ $rows = $dbi->select(

 )->fetch_hash_all;

 is_deeply($rows, [{table1_key1 => 2, key2 => 3, key3 => 5}]);

-$dbi = DBIx::Custom->connect($NEW_ARGS->{0});

-$dbi->reserved_word_quote('"');

-$dbi->execute($CREATE_TABLE->{0});

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

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

-$dbi->execute($CREATE_TABLE->{2});

-$dbi->insert(table => 'table2', param => {key1 => 1, key3 => 4});

-$dbi->insert(table => 'table2', param => {key1 => 2, key3 => 5});

-$join = ['inner join table2 on "table1"."key1" = "table2"."key1"'];

-$join = $dbi->replace(

-    $join,

-    'inner join table2 on "table1"."key1" = "table2"."key1"',

-    'inner join (select * from table2 where {= table2.key3}) as table2'

-);

-

-$rows = $dbi->select(

-    table => 'table1',

-    column => 'table1.key1 as table1_key1, key2, key3',

-    where   => {'table1.key2' => 3},

-    join  => ['inner join table2 on "table1"."key1" = "table2"."key1"'],

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

-)->fetch_hash_all;

-is_deeply($rows, [{table1_key1 => 2, key2 => 3, key3 => 5}]);

-

-$join = ['inner join table2 on "table1"."key1" = "table2"."key1"'];

-eval {

-    $join = $dbi->replace(

-        $join,

-        'pppp inner join table2 on "table1"."key1" = "table2"."key1"',

-        'inner join (select * from table2 where {= table2.key3}) as table2'

-    );

-};

-like($@, qr/replace/);

@@ -2,8 +2,6 @@ use Test::More;

 use strict;

 use warnings;

-use DBIx::Connector;

-

 # user password database

 our ($USER, $PASSWORD, $DATABASE) = connect_info();

@@ -11,6 +9,8 @@ plan skip_all => 'private MySQL test' unless $USER;

 plan 'no_plan';

+require DBIx::Connector;

+

 # Function for test name

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