NAME
Tags::HTML::Page::End - Tags helper for HTML page end.
SYNOPSIS
use Tags::HTML::Page::End;
my $obj = Tags::HTML::Page::End->new(%params);
$obj->process;METHODS
new
my $obj = Tags::HTML::Page::End->new(%params);Constructor.
tags'Tags::Output' object.
It's required.
Default value is undef.
process
$obj->process;Process Tags structure for output.
Returns undef.
ERRORS
new():
From Class::Utils::set_params():
Unknown parameter '%s'.
From Tags::HTML::new():
Parameter 'tags' must be a 'Tags::Output::*' class.
process():
From Tags::HTML::process():
Parameter 'tags' isn't defined.EXAMPLE
use strict;
use warnings;
use CSS::Struct::Output::Indent;
use Tags::HTML::Page::Begin;
use Tags::HTML::Page::End;
use Tags::Output::Indent;
# Object.
my $tags = Tags::Output::Indent->new(
'preserved' => ['style'],
'xml' => 1,
);
my $css = CSS::Struct::Output::Indent->new;
my $begin = Tags::HTML::Page::Begin->new(
'css' => $css,
'tags' => $tags,
);
my $end = Tags::HTML::Page::End->new(
'tags' => $tags,
);
# Process page
$css->put(
['s', 'div'],
['d', 'color', 'red'],
['d', 'background-color', 'black'],
['e'],
);
$begin->process;
$tags->put(
['b', 'div'],
['d', 'Hello world!'],
['e', 'div'],
);
$end->process;
# Print out.
print $tags->flush;
# Output:
# <!DOCTYPE html>
# <html lang="en">
# <head>
# <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
# <meta name="generator" content=
# "Perl module: Tags::HTML::Page::Begin, Version: 0.13" />
# <title>
# Page title
# </title>
# <style type="text/css">
# div {
# color: red;
# background-color: black;
# }
# </style>
# </head>
# <body>
# <div>
# Hello world!
# </div>
# </body>
# </html>DEPENDENCIES
SEE ALSO
- Tags::HTML::Page::Begin
-
Tags helper for HTML page begin.
REPOSITORY
https://github.com/michal-josef-spacek/Tags-HTML-Page-End
AUTHOR
Michal Josef Špaček mailto:skim@cpan.org
LICENSE AND COPYRIGHT
© 2020-2024 Michal Josef Špaček
BSD 2-Clause License
VERSION
0.06