package Markup::Close;

use strict; use warnings;

use base 'Markup::Tag';

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

sub ensure_required_spacing {
	my ($self) = @_;
	if ($self->tag eq "textarea") {
		$self->{space_before} = "";
	}
}

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

sub type {
	return "close";
}

sub tag {
	my ($self) = @_;
	return $self->{tag};
}

1
