NAME
Plack::App::Restricted - Plack application for restricted state.
SYNOPSIS
use Plack::App::Restricted;
my $obj = Plack::App::Restricted->new(%parameters);
my $psgi_ar = $obj->call($env);
my $app = $obj->to_app;
METHODS
"new"
my $obj = Plack::App::Restricted->new(%parameters);
Constructor.
* "author"
Author string to HTML head.
Default value is undef.
* "content_type"
Content type for output.
Default value is 'text/html; charset=__ENCODING__'.
* "css"
Instance of CSS::Struct::Output object.
Default value is CSS::Struct::Output::Raw instance.
* "css_init"
Reference to array with CSS::Struct structure.
Default value is CSS initialization from Tags::HTML::Page::Begin
like
* {
box-sizing: border-box;
margin: 0;
padding: 0;
}
* "encoding"
Set encoding for output.
Default value is 'utf-8'.
* "favicon"
Link to favicon.
Default value is undef.
* "flag_begin"
Flag that means begin of html writing via
Tags::HTML::Page::Begin.
Default value is 1.
* "flag_end"
Flag that means end of html writing via Tags::HTML::Page::End.
Default value is 1.
* "generator"
HTML generator string.
Default value is 'Plack::App::Register; Version: __VERSION__'.
* "label"
Restricted label.
Default value is 'Restricted access'.
* "psgi_app"
PSGI application to run instead of normal process. Intent of
this is change application in "_process_actions" method.
Default value is undef.
* "script_js"
Reference to array with Javascript code strings.
Default value is [].
* "script_js_src"
Reference to array with Javascript URLs.
Default value is [].
* "status_code"
HTTP status code.
Default value is 200.
* "tags"
Instance of Tags::Output object.
Default value is
Tags::Output::Raw->new(
'xml' => 1,
'no_simple' => ['script', 'textarea'],
'preserved' => ['pre', 'style'],
);
* "title"
Page title.
Default value is 'Register page'.
Returns instance of object.
"call"
my $psgi_ar = $obj->call($env);
Implementation of env dump.
Returns reference to array (PSGI structure).
"to_app"
my $app = $obj->to_app;
Creates Plack application.
Returns Plack::Component object.
EXAMPLE
use strict;
use warnings;
use CSS::Struct::Output::Indent;
use Plack::App::Restricted;
use Plack::Runner;
use Tags::Output::Indent;
# Run application.
my $app = Plack::App::Restricted->new(
'css' => CSS::Struct::Output::Indent->new,
'tags' => Tags::Output::Indent->new(
'preserved' => ['style'],
),
)->to_app;
Plack::Runner->new->run($app);
# Output:
# HTTP::Server::PSGI: Accepting connections at http://0:5000/
# > curl http://localhost:5000/
# <!DOCTYPE html>
# <html lang="en">
# <head>
# <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
# </meta>
# <meta name="viewport" content="width=device-width, initial-scale=1.0">
# </meta>
# <style type="text/css">
# .container {
# position: fixed;
# top: 50%;
# left: 50%;
# transform: translate(-50%, -50%);
# }
# .inner {
# text-align: center;
# }
# .restricted {
# color: red;
# font-family: sans-serif;
# font-size: 3em;
# }
# </style>
# </head>
# <body>
# <div class="container">
# <div class="inner">
# <div class="restricted">
# Restricted access
# </div>
# </div>
# </div>
# </body>
# </html>
DEPENDENCIES
Plack::Component::Tags::HTML, Plack::Util::Accessor,
Tags::HTML::Container.
REPOSITORY
<https://github.com/michal-josef-spacek/Plack-App-Restricted>
AUTHOR
Michal Josef Å paÄek <mailto:skim@cpan.org>
<http://skim.cz>
LICENSE AND COPYRIGHT
© 2022-2025 Michal Josef Å paÄek
BSD 2-Clause License
VERSION
0.01