DateTime iterator over a dates span

datetime-iterator.pl

  my $from;

  if ($opt->get_from) {
    $from = $strp->parse_datetime($opt->get_from);
  }
  elsif ($opt->get_yesterday) {
    $from = DateTime->now->add( days => -1 );
  }

  my $today = DateTime->now;
  my $start = $from->clone;

  my $span = DateTime::Span->from_datetimes( start => $from, end => $today );
  my $set = DateTime::Set->from_recurrence(
    next => sub { $_[0]->truncate( to => 'day' )->add( days => 1 ) },
    span => $span
  );

  my $iter = $set->iterator;
  while ( my $dt = $iter->next ) {
    ...
  }