File Coverage

lib/DBIx/Iterator.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	5	6	83.3
condition			n/a
subroutine	8	8	100.0
pod	4	4	100.0
total	40	41	97.5

use strict;
use warnings;
package DBIx::Iterator;
{
  $DBIx::Iterator::VERSION = '0.0.2';
}

# ABSTRACT: Query your database using iterators and save memory

use Carp qw(confess);
use DBIx::Iterator::Statement;


sub new {
    my ($class, $dbh) = @_;
    confess("Please specify a database handle") unless defined $dbh;
    return bless {
        'dbh' => $dbh,
    }, $class;
}


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


sub prepare {
    my ($self, $query) = @_;
    confess("Please specify a database query") unless defined $query;
    return DBIx::Iterator::Statement->new($query, $self);
}


sub query {
    my ($self, $query, @placeholder_values) = @_;
    confess("Please specify a query") unless defined $query;
    return $self->prepare($query)->execute(@placeholder_values);
}

1;

__END__