File Coverage

blib/lib/Test/Mock/Mango/Cursor.pm

Criterion	Covered	Total	%
statement	40	42	95.2
branch	12	12	100.0
condition			n/a
subroutine	9	10	90.0
pod	0	7	0.0
total	61	71	85.9

package Test::Mock::Mango::Cursor;

use v5.10;
use strict;
use warnings;

our $VERSION = '0.03';

sub new { bless {index=>0}, shift }

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

	my $docs = undef;
	my $err  = undef;

	if (defined $Test::Mock::Mango::error) {
		$err                      = $Test::Mock::Mango::error;
		$Test::Mock::Mango::error = undef;
	}
	else {
		$docs = $Test::Mock::Mango::data->{collection};
	}

	return $cb->($self,$err,$docs) if $cb;
	return $docs;
}

# ------------------------------------------------------------------------------

# Naive no-op. Just return the parent so it can chain.
sub limit { shift }
sub sort { shift }

# ------------------------------------------------------------------------------

# Naive "next" - simply iterate through the docs in the defined test data
sub next {
	my ($self, $cb) = @_;

	my $doc = undef;
	my $err = undef;

	if (defined $Test::Mock::Mango::error) {
		$err                      = $Test::Mock::Mango::error;
		$Test::Mock::Mango::error = undef;
	}
	else {
		$doc = $Test::Mock::Mango::data->{collection}->[$self->{index}++];
	}

	return $cb->($self,$err,$doc) if $cb;
	return $doc;
}

# ------------------------------------------------------------------------------

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

	my $count = undef;
	my $err   = undef;

	if (defined $Test::Mock::Mango::error) {
		$err                      = $Test::Mock::Mango::error;
		$Test::Mock::Mango::error = undef;
	}
	else {
		$count = scalar @{$Test::Mock::Mango::data->{collection}};
	}

	return $cb->($self,$err,$count) if $cb;
	return $count;
}

# ------------------------------------------------------------------------------

sub backlog {
	my ($self) = @_;
	return 2; # Arbitary for a valid call
}

1;

=encoding utf8

=head1 NAME

Test::Mock::Mango::Cursor - fake Mango::Cursor

=head1 DESCRIPTION

Simulated mango cursor for unit testing as part of L.

=cut