# 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 195 "web_diary_dir/lib/DateTime/Date.pm (autosplit into web_diary_dir/lib/auto/DateTime/Date/IsValid.al)"
################################################################


sub IsValid ($)
{
    my $self = shift;
    return 0 unless $self->year;
    return 0 if $self->month <= 0 || $self->month > 12;
    return 0 if $self->day <= 0;
    return 0 if $self->day > $self->DaysMonth;
    return 1;
}

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