package Markup::Declaration;

use strict; use warnings;

use base 'Markup::Tag';

sub new {
	my ($class, $text) = @_;
	my $self = $class->SUPER::new;
	$self->{text} = $text;
	return $self;
}

sub html_without_padding_spaces {
	my ($self) = @_;
	return "<!".$self->{text}.">";
}

sub type {
	return "declaration";
}

1
