package Sybase::CTlib::DateTime; # Sybase DATETIME handling. # For converting to Unix time: require Time::Local; # Here we set up overloading operators # for certain operations. use overload ("\"\"" => \&d_str, # convert to string "cmp" => \&d_cmp, # compare two dates "<=>" => \&d_cmp); # same thing sub d_str { my $self = shift; $self->str; }