NAME
Tags::HTML::SendMessage - Tags helper for send message form.
SYNOPSIS
use Tags::HTML::SendMessage;
my $obj = Tags::HTML::SendMessage->new(%params);
$obj->process;
METHODS
"new"
my $obj = Tags::HTML::SendMessage->new(%params);
Constructor.
* "css"
'CSS::Struct::Output' object for process_css processing.
Default value is undef.
* "lang"
Hash with language information for output. Keys are: 'title',
'name-and-surname', 'email', 'subject', 'your-message' and
'send'.
Default value is reference to hash with these value: 'title' =>
'Leave us a message', 'name-and-surname' => 'Name and surname',
'email' => 'Email', 'subject' => 'Subject of you question',
'your-message' => 'Your message', 'send' => 'Send question',
* "tags"
'Tags::Output' object.
It's required.
Default value is undef.
"process"
$obj->process;
Process Tags structure for output.
Returns undef.
ERRORS
new():
Parameter 'css' must be a 'CSS::Struct::Output::*' class.
Parameter 'tags' must be a 'Tags::Output::*' class.
From Class::Utils::set_params():
Unknown parameter '%s'.
EXAMPLE1
use strict;
use warnings;
use CSS::Struct::Output::Indent;
use Tags::HTML::Page::Begin;
use Tags::HTML::Page::End;
use Tags::HTML::SendMessage;
use Tags::Output::Indent;
# Object.
my $tags = Tags::Output::Indent->new(
'preserved' => ['style'],
'xml' => 1,
'no_simple' => ['textarea'],
);
my $begin = Tags::HTML::Page::Begin->new(
'generator' => 'Tags::HTML::SendMessage EXAMPLE1',
'tags' => $tags,
);
my $send_message = Tags::HTML::SendMessage->new(
'tags' => $tags,
);
my $end = Tags::HTML::Page::End->new(
'tags' => $tags,
);
# Process page
$begin->process;
$send_message->process;
$end->process;
# Print out.
print $tags->flush;
# Output:
#
#
#
#
#
#
#
# Page title
#
#
#
#
#
#
#
#
DEPENDENCIES
Class::Utils, Error::Pure, Readonly.
REPOSITORY
AUTHOR
Michal Josef Špaček
LICENSE AND COPYRIGHT
© Michal Josef Špaček 2020
BSD 2-Clause License
VERSION
0.01