#!/usr/bin/perl

package SDH::TDoc;
use strict;
use warnings;

our @ISA = qw[SDH::Doc];

sub new {
	my $self = shift;
	my $class = ref($self) || $self;
	$self = { };
	bless($self, $class);
	$self->mime_type('text/plain');
	return $self;
}

1;
