The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

SYNOPSIS

 use MYDan::Oncall::Period;
 
 my $period = MYDan::Oncall::Period->new( '07:13 ~ 13:20, 23:00 ~ 02:23' );
 my ( $range, $event ) = $period->dump( $dt1, $dt2, period => 7 );

METHODS

dump( $begin, $end, %param )

Returns a range of durations and a list of events indicated by seconds since epoch.

 period: interation
 day: days to select by