HTML-HTML5-Writer
view release on metacpan or search on metacpan
"$writer->element($node)"
Outputs an XML::LibXML::Element as HTML.
"$writer->attribute($node)"
Outputs an XML::LibXML::Attr as HTML.
"$writer->text($node)"
Outputs an XML::LibXML::Text as HTML.
"$writer->cdata($node)"
Outputs an XML::LibXML::CDATASection as HTML.
"$writer->comment($node)"
Outputs an XML::LibXML::Comment as HTML.
"$writer->pi($node)"
Outputs an XML::LibXML::PI as HTML.
"$writer->doctype"
Outputs the writer's DOCTYPE.
lib/HTML/HTML5/Writer.pm view on Meta::CPAN
}
sub _element_etc
{
my ($self, $etc) = @_;
if ($etc->nodeName eq '#text')
{ return $self->text($etc); }
elsif ($etc->nodeName eq '#comment')
{ return $self->comment($etc); }
elsif ($etc->nodeName eq '#cdata-section')
{ return $self->cdata($etc); }
elsif ($etc->isa('XML::LibXML::PI'))
{ return $self->pi($etc); }
else
{ return $self->element($etc); }
}
sub element
{
my ($self, $element) = @_;
lib/HTML/HTML5/Writer.pm view on Meta::CPAN
sub pi
{
my ($self, $pi) = @_;
if ($pi->nodeName eq 'decode')
{
return HTML::HTML5::Entities::decode($pi->textContent);
}
return $pi->toString;
}
sub cdata
{
my ($self, $text) = @_;
if ($self->is_polyglot && $text->parentNode->nodeName =~ /^(script|style)$/i)
{
return '/* <![CDATA[ */' . $text->nodeValue . '/* ]]> */';
}
elsif (!$self->is_xhtml && $text->parentNode->nodeName =~ /^(script|style)$/i)
{
return $text->nodeValue;
}
lib/HTML/HTML5/Writer.pm view on Meta::CPAN
Outputs an XML::LibXML::Element as HTML.
=item C<< $writer->attribute($node) >>
Outputs an XML::LibXML::Attr as HTML.
=item C<< $writer->text($node) >>
Outputs an XML::LibXML::Text as HTML.
=item C<< $writer->cdata($node) >>
Outputs an XML::LibXML::CDATASection as HTML.
=item C<< $writer->comment($node) >>
Outputs an XML::LibXML::Comment as HTML.
=item C<< $writer->pi($node) >>
Outputs an XML::LibXML::PI as HTML.
( run in 0.487 second using v1.01-cache-2.11-cpan-454fe037f31 )