File Coverage

blib/lib/Alzabo/Runtime/Cursor.pm

Criterion	Covered	Total	%
statement	9	24	37.5
branch	0	4	0.0
condition			n/a
subroutine	3	10	30.0
pod	5	6	83.3
total	17	44	38.6

package Alzabo::Runtime::Cursor;

use strict;
use vars qw($VERSION);

use Alzabo::Runtime;

$VERSION = 2.0;

1;

sub new
{
    shift->_virtual;
}

sub next
{
    shift->_virtual;
}

sub all_rows
{
    shift->_virtual;
}

sub _virtual
{
    my $self = shift;

    my $sub = (caller(1))[3];
    Alzabo::Exception::VirtualMethod->throw
            ( error =>
              "$sub is a virtual method and must be subclassed in " . ref $self );
}

sub reset
{
    my $self = shift;

    $self->{statement}->execute( $self->{statement}->bind );

    $self->{count} = 0;
}

sub count
{
    my $self = shift;

    return $self->{count};
}

sub next_as_hash
{
    my $self = shift;

    my @next = $self->next or return;

    return map { defined $_ ? ( $_->table->name => $_ ) : () } @next;
}

__END__