NAME

HTML::Native::Literal - literal text to be included within HTML

SYNOPSIS

            

              
              
use HTML::Native::Literal;
my $literal = HTML::Native::Literal->new ( "<p>Hello</p>" );
print $literal;
# prints "<p>Hello</p>"
            
          

DESCRIPTION

An HTML::Native::Literal object represents a piece of text to be included within an HTML::Native tree without being subject to entity encoding.

You can use an HTML::Native::Literal object when you have some pre-existing HTML code that you want to include verbatim within an HTML::Native tree.

METHODS

new()

            

              
              
$literal = HTML::Native::Literal->new ( <text> );
$literal = HTML::Native::Literal->new ( \<text> );
            
          

Create a new HTML::Native::Literal object, representing some literal text to be included within an HTML document. For example:

            

              
              
my $literal = HTML::Native::Literal->new ( "<p>Hello</p>" )
print $literal;
# prints "<p>Hello</p>"
            
          

or

            

              
              
my $elem = HTML::Native->new (
  div =>
  [ h1 => "Welcome" ],
  HTML::Native::Literal->new ( "<p>Hello</p>" )
);
print $elem;
# prints "<div><h1>Welcome</h1><p>Hello</p></div>"
            
          

ADVANCED

MODIFIABLE LITERALS

If you pass a reference to a scalar variable, then the HTML::Native::Literal object will remain associated with the original variable. For example:

            

              
              
my $text = "<p>Hello</p>";
my $elem = HTML::Native->new (
  div =>
  [ h1 => "Welcome" ],
  HTML::Native::Literal->new ( \$text ),
);
print $elem;
# prints "<div><h1>Welcome</h1><p>Hello</p></div>"
$text = "<p>Goodbye</p>";
print $elem;
# now prints "<div><h1>Welcome</h1><p>Goodbye</p></div>"