File Coverage

blib/lib/App/TinyMVC/Scheduler.pm

Criterion	Covered	Total	%
statement	9	20	45.0
branch			n/a
condition			n/a
subroutine	3	7	42.8
pod	0	4	0.0
total	12	31	38.7

#!/usr/bin/perl

package App::TinyMVC::Scheduler;

use strict;
use warnings;

our $VERSION = '0.01_2';

use Cache::Memcached;

sub new {
	my($class) = @_;
	my $self = bless({}, $class);

	my $memd = new Cache::Memcached {
    		'servers' => [ "127.0.0.1:11211" ],
    		'debug' => 0,
    		'compress_threshold' => 10_000,
		};

	$self->{'memd'} = $memd;
	return $self;
}

sub workers {
	my($self,$tinymvc,$cache_id) = @_;

	$self->{'memd'}->get('app_tinymvc::'.$cache_id.'_working');
}

sub processing {
	my($self,$tinymvc,$cache_id) = @_;

	$self->{'memd'}->set('app_tinymvc::'.$cache_id.'_working', '1', 10);
}

sub finished {
    my($self,$tinymvc,$cache_id) = @_;

	$self->{'memd'}->delete('app_tinymvc::'.$cache_id.'_working');
}

1;