File Coverage

lib/DBIx/Iterator/Statement.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	4	6	66.6
condition			n/a
subroutine	9	9	100.0
pod	5	5	100.0
total	44	46	95.6

#!perl

use strict;
use warnings;

package DBIx::Iterator::Statement;
{
  $DBIx::Iterator::Statement::VERSION = '0.0.2';
}

# ABSTRACT: Query your database using iterators and save memory

use Carp qw(confess);


sub new {
    my ($class, $query, $db) = @_;
    confess("Please specify a database query") unless defined $query;
    confess("Please specify a database iterator factory") unless defined $db;
    my $sth = $db->dbh->prepare($query);
    return bless {
        'sth'   => $sth,
        'db'    => $db,
    }, $class;
}


sub db {
    my ($self) = @_;
    return $self->{'db'};
}


sub sth {
    my ($self) = @_;
    return $self->{'sth'};
}


## no critic (Subroutines::RequireArgUnpacking)
sub bind_param {
    my $self = shift;
    return $self->sth->bind_param(@_);
}
## use critic


## no critic (Subroutines::RequireArgUnpacking)
sub execute {
    my $self = shift;
    $self->sth->execute(@_);
## use critic
    return sub {
        my $row = $self->sth->fetchrow_hashref();
        return $row, $self if wantarray;
        return $row;
    };
}

1;

__END__