package NIML;

use strict;
use warnings;

sub new {
	my ($class) = @_;
	my $self = {};
	bless $self, $class;
}

sub html {
	my ($self, $value) = @_;
	if (!defined $value) {
		return $self->{html};
	} else {
		$self->{html} = $value;
	}
}



1;
