File Coverage

blib/lib/DateTime/Event/MultiCron.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

package DateTime::Event::MultiCron;

use strict;
use warnings;

require Exporter;

use base 'DateTime::Event::Cron';

our $VERSION = '0.01';

sub from_multicron {
	my $class=shift;
	my $dts=undef;

	while (my $cron=shift) {
		my $dtc=$class->new($cron);
		my $tdts=$dtc->as_set();

		if ($dts) {
			$dts=$dts->union($tdts);
		} else {
			$dts=$tdts;
		}
	}
	return $dts;
}

1;
__END__