File Coverage

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

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	24	24	100.0

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

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

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

  $statement->execute;
  $statement->make_fast;
  my @headers = $statement->headers;
  my @vals = (\@headers);

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

  return \@vals;
}

1;

__END__