1use DateTime::Calendar::Hebrew; 2print "1..1\n"; 3 4my $DT = DateTime::Calendar::Hebrew->today; 5 6if($DT and $DT->isa("DateTime::Calendar::Hebrew")) { print "ok\n"; } 7else { print "not ok\n"; } 8 9exit; 10