File Coverage

blib/lib/Gearman/JobStatus.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	8	8	100.0
condition	6	9	66.6
subroutine	8	8	100.0
pod	4	5	80.0
total	45	49	91.8

package Gearman::JobStatus;
use version;
$Gearman::JobStatus::VERSION = qv("2.001_001");

use strict;
use warnings;

=head1 NAME

Gearman::JobStatus - represents a job status in gearman distributed job system

=head1 DESCRIPTION

L get_status($handle) returns I for a given handle

=head1 METHODS

=cut

sub new {
    my ($class, $known, $running, $nu, $de) = @_;
    $nu = '' unless defined($nu) && length($nu);
    $de = '' unless defined($de) && length($de);

    return bless [$known, $running, $nu, $de], $class;
} ## end sub new

=head2 known()

=cut

sub known { shift->[0]; }

=head2 running()

=cut

sub running { shift->[1]; }

=head2 progress()

=cut

sub progress {
    my $self = shift;
    return $self->[2] ne '' ? [$self->[2], $self->[3]] : undef;
}

=head2 percent()

=cut

sub percent {
    my $self = shift;
    return ($self->[2] ne '' && $self->[3])
        ? ($self->[2] / $self->[3])
        : undef;
} ## end sub percent

1;