Commits

nuclon committed 68468ff

POD documentation fixes

Comments (0)

Files changed (11)

lib/Qless/Client.pm

 Qless::Client
 
 =cut
+
 use strict; use warnings;
 use JSON::XS qw(decode_json);
 use Sys::Hostname qw(hostname);
 	};
 	use warnings;
 	use strict qw(refs);
-	
 }
 
 =head2 C<track($jid)>
 sub config { $_[0]->{'config'} };
 
 =head2 C<workers([$name])>
+
 =cut
+
 sub workers { $#_ == 1 ? $_[0]->{'workers'}->item($_[1]) : $_[0]->{'workers'} }
 
 =head2 C<queues([$name])>
 sub jobs    { $#_ == 1 ? $_[0]->{'jobs'}->item($_[1])    : $_[0]->{'jobs'} }
 
 =head2 C<worker_name>
+
 =cut
+
 sub worker_name { $#_ == 1 ? $_[0]->{'worker_name'} = $_[1] : $_[0]->{'worker_name'} }
 
 =head2 C<redis>
+
 =cut
+
 sub redis       { $_[0]->{'redis'} }
 
 1;

lib/Qless/ClientJobs.pm

 Qless::ClientJobs
 
 =cut
+
 use strict; use warnings;
 use JSON::XS qw(decode_json encode_json);
 use Qless::Job;

lib/Qless/Config.pm

 Qless::Config
 
 =cut
+
 use strict; use warnings;
 use JSON::XS qw(decode_json);
 
 Qless::Job
 
 =cut
+
 use strict; use warnings;
 use base 'Qless::BaseJob';
 use Qless::Utils qw(fix_empty_array);

lib/Qless/Jobs.pm

 Qless::Jobs
 
 =cut
+
 use strict; use warnings;
 use Time::HiRes qw(time);
 sub new {
 Qless::Lua
 
 =cut
+
 use strict; use warnings;
 use File::ShareDir qw();
 use overload '&{}' => sub { my $self = shift; sub { $self->call(@_) }; }, fallback => 1;

lib/Qless/Queue.pm

 Qless:Queue
 
 =cut
+
 use strict; use warnings;
 use JSON::XS qw(decode_json encode_json);
 use Qless::Jobs;
 
 
 =head2 C<jobs>
+
 =cut
+
 sub jobs {
 	my ($self) = @_;
 	Qless::Jobs->new($self->{'name'}, $self->{'client'});
 }
 
 =head2 C<counts>
+
 =cut
+
 sub counts {
 	my ($self) = @_;
 	return decode_json($self->{'client'}->_queues([], time, $self->{'name'}));
 }
 
 =head2 C<stats>
+
 =cut
+
 sub stats {
 	my ($self, $date) = @_;
 	return decode_json($self->{'client'}->_stats([], $self->{'name'}, $date || time));
 }
 
 =head2 C<length>
+
 =cut
+
 sub length {
 	my ($self) = @_;
 

lib/Qless/Queues.pm

 Qless::Queues
 
 =cut
+
 use strict; use warnings;
 use Qless::Queue;
 use JSON::XS qw(decode_json);

lib/Qless/RecurringJob.pm

 Qless::RecurringJob
 
 =cut
+
 use strict; use warnings;
 use base 'Qless::BaseJob';
 use JSON::XS qw(decode_json encode_json);

lib/Qless/Worker.pm

 Qless::Worker
 
 =cut
+
 use strict; use warnings;
 
 sub new {

lib/Qless/Workers.pm

 Qless::Workers
 
 =cut
+
 use strict; use warnings;
 use JSON::XS qw(decode_json);
 use Time::HiRes qw(time);