use strict;
use warnings;
use Benchmark qw(cmpthese);
use Date::Manip;
use Date::Calc qw(Today Day_of_Week Add_Delta_Days);

Date_Init('TZ=EDT');

# for ikegami
use POSIX       qw( strftime       );
use Time::Local qw( timegm_nocheck );

sub ikegami {
  my ($day, $mon, $year, $wday) = (localtime())[3..6];  # Defaults to 
+now.

  $year += 1900;
  $day  += (7 - $wday + 4) % 7;
  my $next_th = timegm_nocheck(0,0,0,$day,$mon,$year); # fixed, was $m
+day rather than $day

  return strftime('%Y-%m-%d', gmtime($next_th));
}

sub bfdi533 {
  my $today_dt = &ParseDate("today");
  my $new_dt = &Date_GetNext($today_dt, 'Thu', 1);
  my $date = &UnixDate($new_dt, "%Y-%m-%d");
}

sub Manip {
  return UnixDate(ParseDate('next thursday'),'%Y-%m-%e');
}

sub Calc {
  my($year,$month,$day) = Today();
  my $nextday = 4; # Thursday
  my $dow = Day_of_Week($year,$month,$day);
  my $delta = (7 + $nextday - $dow) % 7;
  my ($y,$m,$d) = Add_Delta_Days($year, $month, $day, $delta);
  return sprintf('%4i-%02i-%02i', $y, $m, $d);
}

cmpthese(-3, {
  bfdi    => \&bfdi533,
  ikegami => \&ikegami,
  Manip   => \&Manip,
  Calc    => \&Calc,
  } );
[download]