# NOTE: Derived from web_diary_dir/lib/TDS/Collection.pm.
# Changes made here will be lost when autosplit again.
# See AutoSplit.pm.
package TDS::Collection;

#line 511 "web_diary_dir/lib/TDS/Collection.pm (autosplit into web_diary_dir/lib/auto/TDS/Collection/AsTdf.al)"
################################################################
sub AsTdf($)
{
    my $self = shift;
    my $lines;
    
    for (@{$self->diarys}){
	$lines = $_->top->AsTdf;
    }
    return $lines;
}

# end of TDS::Collection::AsTdf
1;
