1use DateTime::Calendar::Hebrew; 2print "1..15\n"; 3 4#today 5my $DT = new DateTime::Calendar::Hebrew( 6 year => 5763, 7 month => 5, 8 day => 23, 9); 10 11my %hash = ( 12 a => 'Thu', 13 A => 'Thursday', 14 B => 'Av', 15 d => '23', 16 D => '05/23/5763', 17 e => '23', 18 F => '5763-05-23', 19 j => '141', 20 m => '05', 21 u => '4', 22 U => '21', 23 w => '4', 24 W => '21', 25 y => '63', 26 Y => '5763', 27); 28 29my @formats = qw/a A B d D e F j m u U w W y Y/; 30foreach $f (@formats) { 31 if($hash{$f} eq $DT->strftime("%$f")) { print "ok\n"; } 32 else { print "not ok\n"; } 33} 34exit; 35 36