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

+0.27 (2012-09-17)

+  - fixed documentation miss about execute method's table_alias option.

 0.26

   - fixed bug that when id option's value is object, don't work.

 0.25

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

 package DBIx::Custom;

 use Object::Simple -base;

-our $VERSION = '0.26';

+our $VERSION = '0.27';

 use Carp 'croak';

 use DBI;

@@ -2185,33 +2185,38 @@ DBIx::Custom - DBI extension to execute insert, update, delete, and select easil

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

   # Select

-  my $result = $dbi->select(table  => 'book',

-    column => ['title', 'author'], where  => {author => 'Ken'});

+  #   select title, author from book where author = ?

+  my $result = $dbi->select(

+    ['title', 'author'],

+    table  => 'book',

+    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->select(

-    table  => 'book',

-    column => [

+    [

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

       {company => ['name']}

     ],

+    table  => 'book',

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

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

-    append => 'order by id limit 5'

+    append => 'order by id limit 0, 5'

   );

-  # Fetch

-  while (my $row = $result->fetch) {

-      

-  }

-  

-  # Fetch as hash

-  while (my $row = $result->fetch_hash) {

-      

-  }

+  # Get all rows or only one row

+  my $rows = $result->all;

+  my $row = $result->one;

-  # Execute SQL with parameter.

-  $dbi->execute(

+  # Execute SQL.

+  my $result = $dbi->execute(

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

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

   );

@@ -2259,19 +2264,13 @@ Create C<order by> clause flexibly

 =back

-=head1 DOCUMENTATION

+=head1 DOCUMENTS

-L<DBIx::Custom::Guide> - How to use L<DBIx::Custom>

+L<DBIx::Custom Documents|https://github.com/yuki-kimoto/DBIx-Custom/wiki/DBIx::Custom-Documents>

-L<DBIx::Custom Wiki|https://github.com/yuki-kimoto/DBIx-Custom/wiki>

-- Theare are various examples.

+L<DBIx::Custom API reference|http://search.cpan.org/~kimoto/DBIx-Custom/>

-Module documentations - 

-L<DBIx::Custom::Result>,

-L<DBIx::Custom::Query>,

-L<DBIx::Custom::Where>,

-L<DBIx::Custom::Model>,

-L<DBIx::Custom::Order>

+L<DBIx::Custom Examples|Wiki|https://github.com/yuki-kimoto/DBIx-Custom/wiki>

 =head1 ATTRIBUTES

@@ -2939,9 +2938,9 @@ You must set C<table> option.

 =item C<table_alias>

-  table_alias => {user => 'worker'}

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

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

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

 If you set C<table_alias>, you can enable C<into1> and C<into2> type rule

 on alias table name.

@@ -1,9 +0,0 @@

-=head1 NAME

-

-DBIx::Custom::Guide - DBIx::Custom Guide

-

-=head1 LINK

-

-Guide is moved to the following page.

-

-L<https://github.com/yuki-kimoto/DBIx-Custom/wiki/DBIx%3A%3ACustom-Guide>

@@ -171,7 +171,7 @@ sub method {

 =head1 NAME

-DBIx::Custom::Model - Model

+DBIx::Custom::Model - Model object

 =head1 SYNOPSIS

@@ -9,7 +9,7 @@ sub singleton { $not_exists }

 =head1 NAME

-DBIx::Custom::NotExists

+DBIx::Custom::NotExists - Not exsits object

 =head1 SYNOPSYS

@@ -51,7 +51,7 @@ sub to_string {

 =head1 NAME

-DBIx::Custom::Order - Order by

+DBIx::Custom::Order - Order by clause

 =head1 SYNOPSIS

@@ -55,4 +55,8 @@ XE =

     )

   )

+If "the password will expire within 7 days" is displayed on test,

+please change password

+

+  PASSWORD

@@ -4989,4 +4989,39 @@ $model->insert({$key1 => 1, $key3 => 3});

 is($model->count(id => 1), 1);

 is($model->count(where => {"$table2.$key3" => 3}), 1);

+test 'table_alias option';

+$dbi = DBIx::Custom->connect;

+eval { $dbi->execute("drop table $table1") };

+$dbi->execute($create_table1_type);

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

+$dbi->user_column_info($user_column_info);

+$dbi->type_rule(

+  into1 => {

+    $date_typename => sub { '2010-' . $_[0] }

+  }

+);

+$result = $dbi->execute(

+  "select * from $table1 TABLE1_ALIAS where :TABLE1_ALIAS.${key1}{=}",

+  {"TABLE1_ALIAS.${key1}" => '01-01'},

+  table_alias => {TABLE1_ALIAS => $table1}

+);

+like($result->one->{$key1}, qr/^2010-01-01/);

+

+$dbi = DBIx::Custom->connect;

+eval { $dbi->execute("drop table $table1") };

+$dbi->execute($create_table1_type);

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

+$dbi->user_column_info($user_column_info);

+$dbi->type_rule(

+  into2 => {

+    $date_typename => sub { '2010-' . $_[0] }

+  }

+);

+$result = $dbi->execute(

+  "select * from $table1 TABLE1_ALIAS where :TABLE1_ALIAS.${key1}{=}",

+  {"TABLE1_ALIAS.${key1}" => '01-01'},

+  table_alias => {TABLE1_ALIAS => $table1}

+);

+like($result->one->{$key1}, qr/^2010-01-01/);

+

 1;