DateTime::Event::MultiCron - Perl extension for DateTime::Event::Cron


DateTime-Event-MultiCron documentation Contained in the DateTime-Event-MultiCron distribution.

Index


Code Index:

NAME

Top

DateTime::Event::MultiCron - Perl extension for DateTime::Event::Cron

SYNOPSIS

Top

  use DateTime::Event::MultiCron;

	my $dts=DateTime::Event::MultiCron->from_multicron('*/5 * * * *','*/2 * * * 6');
	my $iter=$dts->iterator(after=>DateTime->now());
	while (1) {
		my $next = $iter->next;
		print $next->datetime,"\n";
	}

DESCRIPTION

Top

This module is an extension to DateTime::Event::Cron. It only adds the method from_multicron.

from_multicron

From multicron gets several schedule definition on the cron format, and returns a DateTime::Set for all that schedules. See example in the SYNOPSIS.

Stub documentation for DateTime::Event::MultiCron, created by h2xs. It looks like the author of the extension was negligent enough to leave the stub unedited.

Blah blah blah.

SEE ALSO

Top

  L<DateTime::Event::Cron>

AUTHOR

Top

Marco Neves, <neves@cpan.org>

COPYRIGHT AND LICENSE

Top


DateTime-Event-MultiCron documentation Contained in the DateTime-Event-MultiCron distribution.

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__
# Below is stub documentation for your module. You'd better edit it!