File Coverage

blib/lib/Cinnamon/Task.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 2 0.0
total 22 24 91.6


line stmt bran cond sub pod time code
1             package Cinnamon::Task;
2 4     4   106490 use strict;
  4         8  
  4         172  
3 4     4   18 use warnings;
  4         9  
  4         103  
4              
5 4     4   828 use Moo;
  4         15870  
  4         26  
6 4     4   4032 use Hash::MultiValue;
  4         2591  
  4         559  
7              
8             has name => (is => 'ro', required => 1);
9             has code => (is => 'ro', required => 1);
10              
11             sub execute {
12 12     12 0 2037 my ($self, $host) = @_;
13 12         61 $self->code->($host);
14             }
15              
16             sub info {
17 2     2 0 1122 my ($self) = @_;
18             return +{
19 2         18 $self->name => $self->code,
20             };
21             }
22              
23             1;