Re: Rough first draft of a FAQ

[Rick Measham]

Looking through the FAQ (thanks Ben!), the question about comparisons is
raised. Clearly DT->now is only == to DT->today for one nanosecond.

Maybe we should add a routine such as the following to the core?

sub same {
    $_[0]->clone->truncate(to=>$_[1]) == $_[2]->clone->truncate(to=>$_[0]);
}

this lets us say things like:

if (same($dt1,'day',$dt2)) { ... }

Or, if you want to use it as an object method:

if ($dt1->same('day',$dt2)) { ... }

Then there'd also be similar versions of gt, lt and cmp:
sub greater {
    $_[0]->clone->truncate(to=>$_[1]) > $_[2]->clone->truncate(to=>$_[0]);
}
sub lesser {
    $_[0]->clone->truncate(to=>$_[1]) < $_[2]->clone->truncate(to=>$_[0]);
}
sub compare { # Written quick, there could be a better way!
    return 1 if $_[0]->greater($_[1],$_[2]);
    return -1 if $_[0]->lesser($_[1],$_[2]);
    return 0;
}

Note: I use 'same' rather than 'equal' as the two objects aren't 'equal' but
they do share the 'same' day.

Cheers!
Rick