# 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 306 "web_diary_dir/lib/DateTime/Date.pm (autosplit into web_diary_dir/lib/auto/DateTime/Date/part_span.al)"
sub part_span ($)
{
    my $self = shift;

    if ($self->part eq 'a'){
	return (1, 9);
    } elsif ($self->part eq 'b'){
	return (10, 19);
    } elsif ($self->part eq 'c'){
	return (20, $self->DaysMonth);
    } else {
	return (1, $self->DaysMonth);
    }
}

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