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

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

    my $rtn = $self->SUPER::Compare($obj);

    if ($rtn == 0){
	if (ref $obj ne 'DateTime::Time'){
	    return 0;
	}
	my $s_hms = sprintf("%02d%02d%02d", $self->hour, $self->min, $self->sec);
	my $o_hms = sprintf("%02d%02d%02d", $obj->hour, $obj->min, $obj->sec);
	return $s_hms <=> $o_hms;
    } else {
	return $rtn;
    }
}

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