# vim: ts=2 sts=2 sw=2 sr ai nu et:
#
use strict; use warnings;

use DateTime;
use DateTime::Format::Strptime;
use DateTime::Event::Recurrence;

#  Current time.
my $dtnow = DateTime->now( time_zone => DateTime::TimeZone->new( name 
+=> 'local' ) );
showtime( $dtnow, q[now dt: ] );

#  Various date-time strings & formats to parse.
my $dt_format = '%d/%m/%Y %I:%M:%S %p' ;
my $start = "18/03/2019 10:12:53 am" ;

my @end = ( [ "24/03/2019 3:15:00 pm"  , $dt_format ]
          , [ "24/03/2019 03:15:00 pm" , $dt_format ]
          , [ "24/03/2019 15:15:00 pm" , '%d/%m/%Y %H:%M:%S %p' ]
          , [ "24/03/2019 15:15:00"    , '%d/%m/%Y %H:%M:%S' ]
          );

my $start_dt = make_datetime( $start , $dt_format );
showtime( $start_dt , q[start dt: ] );
print "\n";

for my $dt_pair ( @end )
{
  my $string = $dt_pair->[0];
  my $dt = make_datetime( @{ $dt_pair } );
  showtime( $dt , sprintf q[end dt (%s) : ] , $string );
}
print "\n";


#  Recurring event.
my $end = $end[ int rand @end ];
my $end_dt = make_datetime( @{ $end } );

my ( $hour , $min ) = ( 11 , 23 );
my $day_ev = DateTime::Event::Recurrence->daily( 'hours' => $hour , 'm
+inutes' => $min );
my @set = $day_ev->as_list( 'start' => $start_dt , 'end' => $end_dt );

printf "Recurring event at %d:%d from %s to %s ...\n"
  , $hour , $min
  , $start_dt->iso8601()
  , $end_dt->iso8601() ;
showtime( $_ , q[ !! ] ) for @set ;
print "\n";


exit;

sub make_datetime
{
  my ( $dt , $format ) = @_;

  return DateTime::Format::Strptime
         ->new( on_error  => 'croak'
              , time_zone => 'local'
              , pattern   => $format
              )
              ->parse_datetime( $dt );
}

sub showtime
{
  my ( $dt , $label ) = @_;

  $label ||= '';
  print $label , $dt->iso8601() , "\n";
  return;
}

__END__
[download]