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   7645 use strict;
  11         33  
  11         429  
4 11     11   55 use warnings;
  11         33  
  11         330  
5 11     11   66 use utf8;
  11         11  
  11         77  
6              
7             our $VERSION = '0.07'; # VERSION
8              
9             sub new {
10 120     120 0 1257 my $this = shift;
11 120   33     378 my $class = ref($this) || $this;
12 120         422 my $self = {
13             'cmd' => undef,
14             'params' => undef,
15             @_
16             };
17 120         251 bless($self, $class);
18 120         317 return($self);
19             }
20              
21             1;
22              
23             # vim:ts=2:syntax=perl:
24             # vim600:foldmethod=marker: