File Coverage

blib/lib/Qless/Jobs.pm

Criterion	Covered	Total	%
statement	9	26	34.6
branch	0	2	0.0
condition	0	20	0.0
subroutine	3	9	33.3
pod	0	6	0.0
total	12	63	19.0

package Qless::Jobs;
=head1 NAME

Qless::Jobs

=cut

use strict; use warnings;
use Time::HiRes qw();
sub new {
	my $class = shift;
	my ($name, $client) = @_;

	$class = ref $class if ref $class;
	my $self = bless {}, $class;

	$self->{'name'}   = $name;
	$self->{'client'} = $client;

	$self;
}

sub running {
	my ($self, $offset, $count) = @_;
	return $self->{'client'}->_jobs([], 'running', Time::HiRes::time, $self->{'name'}, $offset||0, $count||25);
}

sub stalled {
	my ($self, $offset, $count) = @_;
	return $self->{'client'}->_jobs([], 'stalled', Time::HiRes::time, $self->{'name'}, $offset||0, $count||25);
}

sub scheduled {
	my ($self, $offset, $count) = @_;
	return $self->{'client'}->_jobs([], 'scheduled', Time::HiRes::time, $self->{'name'}, $offset||0, $count||25);
}

sub depends {
	my ($self, $offset, $count) = @_;
	return $self->{'client'}->_jobs([], 'depends', Time::HiRes::time, $self->{'name'}, $offset||0, $count||25);
}

sub recurring {
	my ($self, $offset, $count) = @_;
	return $self->{'client'}->_jobs([], 'recurring', Time::HiRes::time, $self->{'name'}, $offset||0, $count||25);
}

1;