/ 
HTML-Native-1.1
River stage zero No dependents
/ HTML::Native::Literal

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>"