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