File Coverage

blib/lib/AnyEvent/Gearman/Job.pm
Criterion Covered Total %
statement 8 16 50.0
branch n/a
condition n/a
subroutine 3 7 42.8
pod 5 5 100.0
total 16 28 57.1


line stmt bran cond sub pod time code
1             package AnyEvent::Gearman::Job;
2 3     3   15 use Any::Moose;
  3         7  
  3         19  
3              
4             extends 'AnyEvent::Gearman::Task';
5              
6 3     3   7336 no Any::Moose;
  3         8  
  3         18  
7              
8             sub complete {
9 3     3 1 34 my ($self, $result) = @_;
10 3         47 $self->event( on_complete => $result );
11             }
12              
13             sub data {
14 0     0 1   my ($self, $data) = @_;
15 0           $self->event( on_data => $data );
16             }
17              
18             sub fail {
19 0     0 1   my ($self) = @_;
20 0           $self->event('on_fail');
21             }
22              
23             sub status {
24 0     0 1   my ($self, $numerator, $denominator) = @_;
25 0           $self->event( on_status => $numerator, $denominator );
26             }
27              
28             sub warning {
29 0     0 1   my ($self, $warning) = @_;
30 0           $self->event( on_warning => $warning );
31             }
32              
33             __PACKAGE__->meta->make_immutable;
34              
35             __END__