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

    return new DateTime::Time(year=>$self->year,
			      month=>$self->month,
			      day=>$self->day,
			      hour=>$self->hour,
			      min=>$self->min,
			      sec=>$self->sec
			      );
}

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