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

+0.22

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

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

 0.2111

   - "created_at" option is renamed to "ctime" option.

     "created_at" is DEPRECATED!

@@ -18,36 +18,6 @@ sub column {

   return $column;

 }

-sub filter {

-  my $self = shift;

-  

-  # Set

-  if (@_) {

-    

-    # Convert filter name to subroutine

-    my $filter = @_ == 1 ? $_[0] : [@_];

-    $filter = _array_to_hash($filter);

-    for my $column (keys %$filter) {

-      my $fname = $filter->{$column};

-      if  (exists $filter->{$column}

-        && defined $fname

-        && ref $fname ne 'CODE') 

-      {

-        croak qq{Filter "$fname" is not registered" } . _subname

-          unless exists $self->dbi->filters->{$fname};

-        $filter->{$column} = $self->dbi->filters->{$fname};

-      }

-    }

-    

-    # Merge

-    $self->{filter} = {%{$self->filter}, %$filter};

-    

-    return $self;

-  }

-  

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

-}

-

 sub fetch {

   my $self = shift;

@@ -246,6 +216,46 @@ sub fetch_one {

   return $row;

 }

+sub filter {

+  my $self = shift;

+  

+  # Set

+  if (@_) {

+    

+    # Convert filter name to subroutine

+    my $filter = @_ == 1 ? $_[0] : [@_];

+    $filter = _array_to_hash($filter);

+    for my $column (keys %$filter) {

+      my $fname = $filter->{$column};

+      if  (exists $filter->{$column}

+        && defined $fname

+        && ref $fname ne 'CODE') 

+      {

+        croak qq{Filter "$fname" is not registered" } . _subname

+          unless exists $self->dbi->filters->{$fname};

+        $filter->{$column} = $self->dbi->filters->{$fname};

+      }

+    }

+    

+    # Merge

+    $self->{filter} = {%{$self->filter}, %$filter};

+    

+    return $self;

+  }

+  

+  return $self->{filter} ||= {};

+}

+

+sub flat {

+  my $self = shift;

+  

+  my @flat;

+  while (my $row = $self->fetch) {

+    push @flat, @$row;

+  }

+  return @flat;

+}

+

 sub header { shift->sth->{NAME} }

 *one = \&fetch_hash_one;

@@ -563,6 +573,29 @@ Set filter for column.

 You can use subroutine or filter name as filter.

 This filter is executed after C<type_rule> filter.

+=head2 C<flat> EXPERIMENTAL

+

+  my $flat = $result->flat;

+

+All value is flatten and added to one array reference.

+  

+  my @flat = $dbi->select(['id', 'title'])->flat;

+

+If C<fetch_all> method return the following data

+

+  [

+    [1, 'Perl'],

+    [2, 'Ruby']

+  ]

+

+C<flat> method return the following data.

+

+  (1, 'Perl', 2, 'Ruby')

+

+You can create key-value pair easily.

+

+  my %titles = $dbi->select(['id', 'title'])->flat;

+

 =head2 C<header>

   my $header = $result->header;

@@ -3579,6 +3579,11 @@ $result->filter({$key1 => 'three_times'});

 $rows = $result->fetch_hash_all;

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

+test 'flat';

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

+$rows = [$result->flat];

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

+

 test 'DBIx::Custom::Result fetch_multi';

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

 $dbi->execute($create_table1);