#!/usr/bin/perl

package SDH::Doc;
use strict;
use warnings;

sub new {
	# This is a base class
	my $class = shift;
	$class = ref($class) if ref($class);
	my $self = {
		mt => '', # mime-type
		content => '',
	};
	return bless($self, $class);
}

sub mime_type {
	my $self = shift;
	$self->{mt} = shift if @_;
	return $self->{mt};
}

sub content {
	my $self = shift;
	$self->{content} = shift if @_;
	return $self->{content};
}

sub append {
	my $self = shift;
	$self->{content} .= shift while @_;
}

1;
