# 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 503 "web_diary_dir/lib/DateTime/Date.pm (autosplit into web_diary_dir/lib/auto/DateTime/Date/Subtract.al)"
sub Subtract($$$)
{
    my ($self, $obj, $info) = @_;

    if ($info){
	return $obj->GetTime() - $self->GetTime();
    } else {
	return $self->GetTime() - $obj->GetTime();
    }
}

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