File Coverage

blib/lib/Eixo/Queue/Mongo.pm

Criterion	Covered	Total	%
statement	9	12	75.0
branch	0	2	0.0
condition			n/a
subroutine	3	6	50.0
pod	0	3	0.0
total	12	23	52.1

package Eixo::Queue::Mongo;

use strict;

use Eixo::Base::Clase qw(Eixo::Queue);
use Eixo::Queue::MongoDriver;

has(

	mongo_driver=>undef,

	db=>undef,

	collection => undef,

	host=>undef,

	port=>undef,

);

sub init{

	$_[0]->mongo_driver(

		Eixo::Queue::MongoDriver->new(

			db=>$_[0]->db,

			host=>$_[0]->host,

			port=>$_[0]->port,

			collection=>$_[0]->collection

		)

	) unless($_[0]->mongo_driver);

}

sub add{

	$_[0]->mongo_driver->addJob($_[1]);
}

sub status{

	$_[0]->mongo_driver->getJob(@_[1..$#_]);

}


1;