File Coverage

blib/lib/Mandel/Iterator.pm

Criterion	Covered	Total	%
statement	9	20	45.0
branch	0	4	0.0
condition			n/a
subroutine	3	7	42.8
pod	2	2	100.0
total	14	33	42.4

package Mandel::Iterator;

=head1 NAME

Mandel::Iterator - An object iterating over a collection cursor

=head1 SYNOPSIS

=head1 DESCRIPTION

=cut

use Mojo::Base -base;
use Scalar::Util 'blessed';
use Carp 'confess';

require Mandel::Collection;    # TODO: Fix ugly method call below

=head1 ATTRIBUTES

=head2 cursor

An object we can do C on. Normally a L object.

=head2 model

An object that inherit from L.

=cut

has cursor => sub { confess "cursor required in constructor" };
has model  => sub { confess "model required in constructor" };

=head1 METHODS

=head2 next

  $self = $self->next(sub { my($self, $err, $obj) = @_; ... });

Fetch next document.

=cut

sub next {
  my ($self, $cb) = @_;

  $self->cursor->next(
    sub {
      my ($cursor, $err, $doc) = @_;

      # TODO: Fix this ugly method call
      $self->$cb($err, $doc ? $self->Mandel::Collection::_new_document($doc, 1) : undef);
    }
  );

  $self;
}

=head2 rewind

  $self = $self->rewind($cb);

Rewind cursor and kill it on the server

=cut

sub rewind {
  my ($self, $cb) = @_;

  if ($self->{cursor}) {
    $self->cursor->rewind(
      sub {
        $self->$cb($_[1]);
      }
    );
  }
  else {
    $self->$cb('');
  }

  $self;
}

=head1 SEE ALSO

L, L, L

=head1 AUTHOR

Jan Henning Thorsen - C

=cut

1;