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 1     1   108814 use strict;
  1         2  
  1         23  
3 1     1   5 use warnings;
  1         2  
  1         22  
4              
5 1     1   701 use Moo;
  1         11954  
  1         6  
6 1     1   2108 use Hash::MultiValue;
  1         2163  
  1         109  
7              
8             has name => (is => 'ro', required => 1);
9             has code => (is => 'ro', required => 1);
10              
11             sub execute {
12 1     1 0 2021 my ($self, $host) = @_;
13 1         6 $self->code->($host);
14             }
15              
16             sub info {
17 1     1 0 1186 my ($self) = @_;
18             return +{
19 1         8 $self->name => $self->code,
20             };
21             }
22              
23             1;