File Coverage

lib/Cron/Toolkit/Pattern/Single.pm
Criterion Covered Total %
statement 16 16 100.0
branch 4 4 100.0
condition n/a
subroutine 6 6 100.0
pod 0 3 0.0
total 26 29 89.6


line stmt bran cond sub pod time code
1             package Cron::Toolkit::Pattern::Single;
2 2     2   13 use strict;
  2         4  
  2         89  
3 2     2   12 use warnings;
  2         3  
  2         113  
4 2     2   60 use parent 'Cron::Toolkit::Pattern';
  2         6  
  2         25  
5              
6             sub type {
7 1889649     1889649 0 3948406 return 'single';
8             }
9              
10             sub match {
11 1911050     1911050 0 2980943 my ($self, $value) = @_;
12 1911050 100       3432586 return $value == $self->value ? 1 : 0;
13             }
14              
15             sub to_english {
16 97     97 0 188 my ($self) = @_;
17 97         306 my $rv = $self->english_value;
18 97 100       214 $rv = $self->field_type . " " . $rv if $self->field_type =~ /^second|minute|hour$/;
19 97         369 return $rv;
20             }
21              
22             1;