File Coverage

lib/Cron/Toolkit/Pattern/List.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	0	3	0.0
total	27	30	90.0

package Cron::Toolkit::Pattern::List;
use strict;
use warnings;
use parent 'Cron::Toolkit::Pattern';

sub type {
   return 'list';
}

sub match {
    my ($self, $value, $tm) = @_;
    return scalar (grep { $_->match($value, $tm) } @{ $self->{children} }) ? 1 : 0;
}

sub to_english {
   my ($self) = @_;
   my @items = map { $_->to_english } @{ $self->{children} };
   return join(', ', @items);
}

1;