# NOTE: Derived from web_diary_dir/lib/DateTime/Date.pm.
# Changes made here will be lost when autosplit again.
# See AutoSplit.pm.
package DateTime::Date;

#line 521 "web_diary_dir/lib/DateTime/Date.pm (autosplit into web_diary_dir/lib/auto/DateTime/Date/Compare.al)"
sub Compare ($$)
{
    my ($self, $obj) = @_;

    my $s_ymd = sprintf("%04d%02d%02d", $self->year, $self->month, $self->day);
    my $o_ymd = sprintf("%04d%02d%02d", $obj->year, $obj->month, $obj->day);

#    die "$s_ymd <=> $o_ymd";
    return $s_ymd <=> $o_ymd;
}

# end of DateTime::Date::Compare
1;
