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

+0.2105

+    - added EXPERIMENTAL DBIx::Custom::Result::value method

+    - added EXPERIMENTAL DBIx::Custom::Result::column method

 0.2104

     - improved bulk_insert performance

 0.2103

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

 package DBIx::Custom;

 use Object::Simple -base;

-our $VERSION = '0.2104';

+our $VERSION = '0.2105';

 use 5.008001;

 use Carp 'croak';

@@ -1,13 +0,0 @@

-=encoding utf8

-

-=head1 NAME

-

-DBIx::Custom::Guide - DBIx::Customガイド

-

-=head1 LINK

-

-ドキュメントは以下のリンクに移動しました。

-

-L<http://d.hatena.ne.jp/perlcodesample/20110401/1305597081>

-

-=cut

@@ -9,6 +9,15 @@ has [qw/dbi sth/],

 *all = \&fetch_hash_all;

+sub column {

+    my $self = shift;

+    

+    my $column = [];

+    my $rows = $self->fetch_all;

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

+    return $column;

+}

+

 sub filter {

     my $self = shift;

@@ -305,6 +314,13 @@ sub type_rule2_on {

     return $self;

 }

+sub value {

+    my $self = shift;

+    my $row = $self->fetch_first;

+    my $value = $row ? $row->[0] : undef;

+    return $value;

+}

+

 sub _cache {

     my $self = shift;

     $self->{_type_map} = {};

@@ -465,6 +481,14 @@ and implements the following new ones.

 Same as C<fetch_hash_all>.

+=head2 C<column> EXPERIMENTAL

+

+    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;

@@ -542,7 +566,7 @@ Same as C<fetch_hash_first>.

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

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

-Stash is hash reference for data.

+Stash is hash reference to save some data.

 =head2 C<type_rule>

@@ -606,4 +630,12 @@ By default, type rule is on.

 Turn C<from2> type rule on.

 By default, type rule is on.

+=head2 C<value> EXPERIMENTAL

+

+    my $value = $result->value;

+

+Get first column's first value.

+

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

+

 =cut

@@ -298,12 +298,17 @@ is_deeply(\@rows, [{$key1 => 1, $key2 => 2}, {$key1 => 3, $key2 => 4}], "fetch_h

 $result = $dbi->execute($query);

 $rows = $result->fetch_all;

-is_deeply($rows, [[1, 2], [3, 4]], "fetch_all");

+is_deeply($rows, [[1, 2], [3, 4]]);

 $result = $dbi->execute($query);

 $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($dbi->select('count(*)', table => $table1)->value, 2);

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

+

 test 'Insert query return value';

 $source = "insert into $table1 {insert_param $key1 $key2}";

 $query = $dbi->execute($source, {}, query => 1);