File Coverage

blib/lib/DBIx/DataModel/Schema/ResultAs/Flat_arrayref.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	28	28	100.0

#----------------------------------------------------------------------
package DBIx::DataModel::Schema::ResultAs::Flat_arrayref;
#----------------------------------------------------------------------
use warnings;
use strict;

use parent 'DBIx::DataModel::Schema::ResultAs';

use namespace::clean;

sub get_result {
  my ($self, $statement) = @_;

  $statement->execute;
  $statement->make_fast;
  my @vals;
  my @headers = $statement->headers;
  while (my $row = $statement->next) {
    push @vals, @{$row}{@headers};
  }
  $statement->finish;

  return \@vals;
}

# THINK : should we take a list of columns as arguments,
# i.e. -result_as => [flat_arrayref => ($col1, ...)], instead of taking
# ->headers ? Easy to implement, but it wouldn't really make sense,
# because the choice of columns is done in the -columns arg to
# select().



1;

__END__