File Coverage

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

Criterion	Covered	Total	%
statement	37	37	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	8	8	100.0
pod	1	2	50.0
total	48	52	92.3

#----------------------------------------------------------------------
package DBIx::DataModel::Schema::ResultAs::File_tabular;
#----------------------------------------------------------------------
use warnings;
use strict;
use Carp::Clan       qw[^(DBIx::DataModel::|SQL::Abstract)];
use File::Tabular;

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

use namespace::clean;

sub new {
  my $class = shift;

  my $self = {ft_args => \@_};
  return bless $self, $class;
}



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

  $statement->execute;
  $statement->make_fast;

  my @headers = $statement->headers;
  my @ft_args = @{$self->{ft_args}};
  push @ft_args, {} unless @ft_args && ref $ft_args[1];

  $ft_args[-1]{headers}      = [$statement->headers];
  $ft_args[-1]{printHeaders} = 1;

  my $ft = File::Tabular->new(@ft_args);
  my $n_rows = 0;
  while (my $row = $statement->next) {
    $ft->append($row);
    $n_rows += 1;
  }
  $statement->finish;

  return $n_rows;
}


1;


__END__