NAME
Template::Declare::TagSet::HTML - Tag set for HTML
SYNOPSIS
# normal use on the user side:
use base 'Template::Declare';
use Template::Declare::Tags 'HTML';
template foo => sub {
html {
body {
}
}
};
# in Template::Declare::Tags:
use Template::Declare::TagSet::HTML;
my $tagset = Template::Declare::TagSet::HTML->new(
{ package => 'html', namespace => 'html' }
);
my $list = $tagset->get_tag_list();
print "@$list";
my $altern = $tagset->get_alternate_spelling('tr');
if ( defined $altern ) {
print $altern;
}
if ( $tagset->can_combine_empty_tags('img') ) {
print "<img src='blah.gif' />";
}
INHERITANCE
Template::Declare::TagSet::HTML
isa Template::Declare::TagSet
METHODS
$obj = Template::Declare::TagSet::HTML->new({ namespace => $XML_namespace, package => $Perl_package })
-
Constructor inherited from Template::Declare::TagSet.
$list = $obj->get_tag_list()
-
Returns an array ref for the tag names.
Out of the box,
Template::Declare::TagSet::HTML
returns the:html2 :html3 :html4 :netscape
and:form
tagsets from CGI.pm. $bool = $obj->get_alternate_spelling($tag)
-
Returns the alternative spelling for a given tag if any or undef otherwise. Currently,
tr
is mapped torow
,td
is mapped tocell
, andbase
is mapped tohtml_base
.Because
tr
is reserved by the perl interpreter for the operator of that name. We can't override it. And we overridetd
as well so as to keep consistent.For similar reasons, 'base' often gives us trouble too ;)
AUTHOR
Agent Zhang <agentzh@yahoo.cn>
SEE ALSO
Template::Declare::TagSet, Template::Declare::TagSet::XUL, Template::Declare::TagSet::RDF, Template::Declare::Tags, Template::Declare.