File Coverage

blib/lib/Job/Machine/Base.pm

Criterion	Covered	Total	%
statement	12	26	46.1
branch	0	2	0.0
condition	0	5	0.0
subroutine	4	9	44.4
pod	3	5	60.0
total	19	47	40.4

package Job::Machine::Base;
$Job::Machine::Base::VERSION = '0.22';
use strict;
use warnings;
use Carp;
use Job::Machine::DB;

sub new {
	my ($class, %args) = @_;
	$args{db} = Job::Machine::DB->new( %args );
	return bless \%args, $class;
}

sub db { return $_[0]->{db} };

sub id {
	my ($self, $id) = @_;
	$self->{id} = $id if defined $id;
	return $self->{id};
}

sub subscribe {
	my ($self, $queue, $reply) = @_;
	$queue ||= $self->{queue};
	$reply ||= 0;
	return $self->db->listen(queue => $queue, reply => $reply);
}

sub log {
	my ($self, $msg) = @_;
	print STDERR $msg, "\n";
	return;
	# $Carp::CarpLevel = 1;
	# carp($msg);
}

1;

__END__