# 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 294 "web_diary_dir/lib/DateTime/Date.pm (autosplit into web_diary_dir/lib/auto/DateTime/Date/part.al)"
sub part ($)
{
    my $self = shift;
    my $part;
    
    if ($self->day =~ /\d+/){
	$part = ('a', 'b', 'c', 'c')[int($self->day/10)];
    } elsif ($self->day =~ /[abc]/){
	$part = $self->day;
    }
    return $part;
}

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