#!/usr/bin/perl -w

use TimeFoo;
use Time::Seconds;

foreach $str (qw(TimeFoo TimeTame Time::Piece)) {
  print "TimeFoo ", TimeFoo->isa($str) ? "isa " : "is not a ", "$str\n";
}

$t = localtime;
print "localtime made a ", ref $t, " $t\n";

$t2 = TimeFoo->new;
print "new made a ", ref $t2, " $t2\n";

$t3 = $t2 + ONE_DAY;
print "Add made a ", ref $t3, " $t3\n";