File Coverage

blib/lib/IPC/QWorker/WorkUnit.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition 1 3 33.3
subroutine 4 4 100.0
pod 0 1 0.0
total 19 22 86.3


line stmt bran cond sub pod time code
1             package IPC::QWorker::WorkUnit;
2              
3 11     11   6314 use strict;
  11         22  
  11         363  
4 11     11   55 use warnings;
  11         33  
  11         352  
5 11     11   55 use utf8;
  11         11  
  11         198  
6              
7             # ABSTRACT: work unit to process by IPC::QWorker
8             our $VERSION = '0.08'; # VERSION
9              
10             sub new {
11 120     120 0 822 my $this = shift;
12 120   33     302 my $class = ref($this) || $this;
13 120         358 my $self = {
14             'cmd' => undef,
15             'params' => undef,
16             @_
17             };
18 120         196 bless($self, $class);
19 120         264 return($self);
20             }
21              
22             1;
23              
24             # vim:ts=2:expandtab:syntax=perl:
25              
26             __END__