view release on metacpan or search on metacpan
lib/Apache2/PodBrowser.pm view on Meta::CPAN
:());
<<"EOF";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html><head><title>$title</title>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" >
<link rel="stylesheet" type="text/css" title="pod_stylesheet" href="$style">
</head>
<body class='podindex'>
$uplink<h1>$title</h1>
lib/Apache2/PodBrowser.pm view on Meta::CPAN
You'll probably need that only for plain text output with the
L<Pod::Simple::Text> parser. Here one can set the content type
of the output.
PerlSetVar CONTENTTYPE "text/plain; charset=UTF-8"
=head3 PARSER and LINKBASE
C<PARSER> sets the POD-to-HTML converter class that is used. It should
support at least the interface that L<Pod::Simple::Text> provides.
view release on metacpan or search on metacpan
lib/Apache2/Proxy.pm view on Meta::CPAN
$res->scan( sub { $headers{ $_[0] } = $_[1]; } );
$r->log->debug(
sprintf( "$$ not cookie/auth headers: %s", Dumper( \%headers ) ) )
if VERBOSE_DEBUG;
## Set the response content type from the request, preserving charset
$r->content_type( $headers{'Content-Type'} );
delete $headers{'Content-Type'};
# need to encode content if utf-8
my $charset = $class->response_charset($r, $res);
$r->log->debug("$$ charset is $charset") if DEBUG;
if (($charset ne 'ISO-8859-1') && ($r->content_type !~ m/image|video/)) {
$$response_content_ref = Encode::encode($charset,
$$response_content_ref);
}
#############################
## Content languages
lib/Apache2/Proxy.pm view on Meta::CPAN
$r->no_cache(1);
return 1;
}
# figure out what charset a response was made in, code adapted from
# HTTP::Message::decoded_content
sub response_charset {
my ( $class, $r, $response ) = @_;
# pull apart Content-Type header and extract charset
my $charset;
my @ct = HTTP::Headers::Util::split_header_words(
$response->header("Content-Type") );
if (@ct) {
my ( undef, undef, %ct_param ) = @{ $ct[-1] };
$charset = $ct_param{charset};
}
# if the charset wasn't in the http header look for meta-equiv
unless ($charset) {
# default charset for HTTP::Message - if it couldn't guess it will
# have decoded as 8859-1, so we need to match that when
# re-encoding
return $charset || "ISO-8859-1";
}
}
sub resolve {
my ( $class, $hostname ) = @_;
view release on metacpan or search on metacpan
lib/Apache2/SSI.pm view on Meta::CPAN
{
$r->log->error( "${class} [PerlOutputFilterHandler]: Failed to decode data from utf8: $@" );
return( &Apache2::Const::DECLINED );
}
#W We just add that the charset is utf-8
$main->content_type( 'text/html; charset=utf-8' ) unless( $main->content_type =~ /\bcharset\n/i );
my $params =
{
apache_filter => $f,
apache_request => $r,
lib/Apache2/SSI.pm view on Meta::CPAN
return( $self->errmsg );
}
# TODO This needs to be improved, as we should not assume the file encoding is utf8
# It could be binary or some other text encoding like iso-2022-jp
# So we should slurp it, parse the meta tags if this is an html and decode if the charset attribute is set or default to utf8
# But this complicates things quite a bit, so for now, it is just utf8 simply
my $html = $f->slurp_utf8;
if( !defined( $html ) )
{
$self->error( "Unable to get html data of included file \"", $f->filename, "\": ", $f->error );
lib/Apache2/SSI.pm view on Meta::CPAN
=head1 Encoding
At present time, the html data are treated as utf8 data and decoded and encoded back as such.
If there is a need to broaden support for other charsets, let me know.
=head1 SSI Directives
This is taken from Apache documentation and summarised here for convenience and clarity to the perl community.
view release on metacpan or search on metacpan
lib/Apache2/Translation/Admin.pm view on Meta::CPAN
unless(ref $I->provider);
}
$r=Apache2::Request->new($r);
$r->content_type('text/html; charset=UTF-8');
my $a=$r->param('a');
if( $a eq '' ) {
return $I->xindex($r);
} elsif( $a eq 'fetch' ) {
view release on metacpan or search on metacpan
examples/embedded.cgi view on Meta::CPAN
my $id = Digest::MD5::md5_hex( time() . {} . rand() . $$ );
my $q = CGI->new( sub { Time::HiRes::sleep(0.250) } ); # will give us a nice slowdown
print $q->header(
-charset => 'UTF-8',
),
$q->start_html(
-title => 'Apache2::UploadProgress Embedded Example',
-encoding => 'UTF-8',
-script => [ { -src => '/UploadProgress/progress.js' },
view release on metacpan or search on metacpan
GETPWUID_R_HAS_PTR|5.008000||Viu
GETPWUID_R_PROTO|5.008000|5.008000|Vn
get_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031010||Viu
get_regclass_nonbitmap_data|5.031010||Viu
get_regex_charset_name|5.031004||Vniu
getservbyname|5.005000||Viu
GETSERVBYNAME_R_HAS_BUFFER|5.008000||Viu
GETSERVBYNAME_R_HAS_PTR|5.008000||Viu
GETSERVBYNAME_R_PROTO|5.008000|5.008000|Vn
getservbyport|5.005000||Viu
view release on metacpan or search on metacpan
lib/App/Alice/HTTPD.pm view on Meta::CPAN
sub send_index {
my ($self, $req) = @_;
return sub {
my $respond = shift;
my $writer = $respond->([200, ["Content-type" => "text/html; charset=utf-8"]]);
my @windows = $self->app->sorted_windows;
@windows > 1 ? $windows[1]->{active} = 1 : $windows[0]->{active} = 1;
$writer->write(encode_utf8 $self->app->render('index_head', @windows));
$self->send_windows($writer, sub {
$writer->write(encode_utf8 $self->app->render('index_footer', @windows));
view release on metacpan or search on metacpan
lib/App/ArchiveDevelCover.pm view on Meta::CPAN
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<!-- This file was generated by $class version $version -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
<meta http-equiv="Content-Language" content="en-us"></meta>
<link rel="stylesheet" type="text/css" href="cover.css"></link>
<title>Test Coverage Archive for $name</title>
</head>
<body>
view release on metacpan or search on metacpan
lib/App/AutoCRUD/View/Json.pm view on Meta::CPAN
# encode output
my $json_maker = JSON::MaybeXS->new(%{$self->{json_args}});
my $output = $json_maker->encode($data);
return [200, ['Content-type' => 'application/json; charset=UTF-8'],
[$output] ];
}
1;
view release on metacpan or search on metacpan
lib/App/BS/Common.pm view on Meta::CPAN
field $queue : mutator = ();
field $env : mutator = {
pkgext => '.pkg.tar.zst',
debug => 0,
charset => 'utf-8',
default_config_path => $DEFAULT_CONFIGPATH,
arch => $cliopts->%{enabled_targets} // [
$$cliopts{target} // $ENV{CARCH} // qw(x86_64 x86_64_v3 aarch64 armv7l)
]
};
view release on metacpan or search on metacpan
lib/App/BarnesNoble/WishListMinder.pm view on Meta::CPAN
header => [
To => $address,
From => qq'"Barnes & Noble Wishlist" <$address>',
Subject => "Price Drop Alert: $subject",
'MIME-Version' => '1.0',
'Content-Type' => 'text/plain; charset=UTF-8',
'Content-Transfer-Encoding' => '8bit',
],
body => Encode::encode('utf8', join("\n", @body)),
);
view release on metacpan or search on metacpan
<meta name="Author" content="%AUTHOR%" />
<meta name="Copyright" content="%COPYRIGHT%" />
<meta name="summary" content="%SUMMARY%" />
<meta name="keywords" content="%KEYWORDS%" />
<meta name="revision" content="%REVISION%" />
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<style type='text/css'>
\@page {
size: %PAGE_SIZE% %ORIENTATION% ;
margin: 90pt 30pt 40pt 30pt ;
view release on metacpan or search on metacpan
# The default layout to use for your application (located in
# views/layouts/main.tt)
layout: "main"
# when the charset is set to UTF-8 Dancer will handle for you
# all the magic of encoding and decoding. You should not care
# about unicode within your app when this setting is set (recommended).
charset: "UTF-8"
# template engine
# simple: default and very basic template engine
# template_toolkit: TT
view release on metacpan or search on metacpan
lib/App/Bernard/Filetype/TextXGettextTranslation.pm view on Meta::CPAN
if ($item->{'type'} eq 'header') {
$item->{'headers'}->{'language-team'} =
'Shavian <ubuntu-l10n-en-shaw@launchpad.net>';
$item->{'headers'}->{'content-type'} =
'text/plain; charset=UTF-8';
$item->{'headers'}->{'plural-forms'} =
'nplurals=2; plural=n!=1;';
$settings->{'defines'} = {
%{$settings->{'defines'}},
view release on metacpan or search on metacpan
lib/App/BlurFill/Web.pm view on Meta::CPAN
my $css = _get_css();
return <<"HTML";
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<title>BlurFill - Perfect crops, zero letterboxing: smart blur-fill from your source image.</title>
<style>
$css
</style>
lib/App/BlurFill/Web.pm view on Meta::CPAN
my $css = _get_css();
return <<"HTML";
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<title>BlurFill - Result</title>
<style>
$css
</style>
view release on metacpan or search on metacpan
share/wordcx.dis view on Meta::CPAN
#
# Useful for convertion from or to the charset used to simulate
# braille patterns on screen in Word CX / CX for Word. The table is 6
# dot only. The character mapping is derived from the publication
# HÃ¥ndbok i punktskrift, Offentlig utvalg for punktskrift, see
# http://liblouis.io/braille-specs/norwegian/#h%C3%A5ndbok-i-litter%C3%A6r-punktskrift
#
view release on metacpan or search on metacpan
t/App-CPAN-Get-MetaCPAN/04-search.t view on Meta::CPAN
"checksum_md5" : "798a40ee72e0078a8f960186d94eb4b4"
}
END
$user_agent->map_response(
qr(https://fastapi\.metacpan\.org/v1/download_url/App::CPAN::Search),
HTTP::Response->new('200', 'OK', ['Content-Type' => 'application/json; charset=utf-8'], $content),
);
my $obj = App::CPAN::Get::MetaCPAN->new(
'lwp_user_agent' => $user_agent,
);
my $ret_hr = $obj->search({
t/App-CPAN-Get-MetaCPAN/04-search.t view on Meta::CPAN
"checksum_md5" : "2cbadf113bd23e93e64dcdac3962e123"
}
END
$user_agent->map_response(
qr(https://fastapi\.metacpan\.org/v1/download_url/App::CPAN::Search),
HTTP::Response->new('200', 'OK', ['Content-Type' => 'application/json; charset=utf-8'], $content),
);
$obj = App::CPAN::Get::MetaCPAN->new(
'lwp_user_agent' => $user_agent,
);
$ret_hr = $obj->search({
view release on metacpan or search on metacpan
t/MyTestUA.pm view on Meta::CPAN
Devel::Cover is free. It is licensed under the same terms as Perl itself.
The latest version of Devel::Cover should be available from my homepage:
http://www.pjcj.net
-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
<meta http-equiv="Content-Language" content="en-us"></meta>
<link rel="stylesheet" type="text/css" href="cover.css"></link>
<script type="text/javascript" src="common.js"></script>
<script type="text/javascript" src="css.js"></script>
<script type="text/javascript" src="standardista-table-sorting.js"></script>
t/MyTestUA.pm view on Meta::CPAN
Devel::Cover is free. It is licensed under the same terms as Perl itself.
The latest version of Devel::Cover should be available from my homepage:
http://www.pjcj.net
-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
<meta http-equiv="Content-Language" content="en-us"></meta>
<link rel="stylesheet" type="text/css" href="cover.css"></link>
<script type="text/javascript" src="common.js"></script>
<script type="text/javascript" src="css.js"></script>
<script type="text/javascript" src="standardista-table-sorting.js"></script>
t/MyTestUA.pm view on Meta::CPAN
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
<meta http-equiv="Content-Language" content="en-us"></meta>
<link rel="stylesheet" type="text/css" href="/latest/collection.css"></link>
<title>404</title>
</head>
<body>
t/MyTestUA.pm view on Meta::CPAN
Devel::Cover is free. It is licensed under the same terms as Perl itself.
The latest version of Devel::Cover should be available from my homepage:
http://www.pjcj.net
-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
<meta http-equiv="Content-Language" content="en-us"></meta>
<link rel="stylesheet" type="text/css" href="cover.css"></link>
<script type="text/javascript" src="common.js"></script>
<script type="text/javascript" src="css.js"></script>
<script type="text/javascript" src="standardista-table-sorting.js"></script>
t/MyTestUA.pm view on Meta::CPAN
Devel::Cover is free. It is licensed under the same terms as Perl itself.
The latest version of Devel::Cover should be available from my homepage:
http://www.pjcj.net
-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
<meta http-equiv="Content-Language" content="en-us"></meta>
<link rel="stylesheet" type="text/css" href="cover.css"></link>
<script type="text/javascript" src="common.js"></script>
<script type="text/javascript" src="css.js"></script>
<script type="text/javascript" src="standardista-table-sorting.js"></script>
t/MyTestUA.pm view on Meta::CPAN
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
<meta http-equiv="Content-Language" content="en-us"></meta>
<link rel="stylesheet" type="text/css" href="/latest/collection.css"></link>
<title>404</title>
</head>
<body>
view release on metacpan or search on metacpan
lib/App/CPANIDX.pm view on Meta::CPAN
exists.
curl -i http://name.of.website/cpanidx/yaml/mod/LWP
HTTP/1.1 200 OK
Content-type: application/x-yaml; charset=utf-8
Transfer-Encoding: chunked
Date: Thu, 04 Mar 2010 11:34:07 GMT
Server: lighttpd/1.4.25
---
lib/App/CPANIDX.pm view on Meta::CPAN
distribution if it exists.
curl -i http://name.of.website/cpanidx/yaml/dist/CPANPLUS-Dist-Build
HTTP/1.1 200 OK
Content-type: application/x-yaml; charset=utf-8
Transfer-Encoding: chunked
Date: Mon, 06 Sep 2010 14:02:23 GMT
Server: lighttpd/1.4.25
---
lib/App/CPANIDX.pm view on Meta::CPAN
author if they exist.
curl -i http://name.of.website/cpanidx/yaml/auth/BINGOS
HTTP/1.1 200 OK
Content-type: application/x-yaml; charset=utf-8
Transfer-Encoding: chunked
Date: Thu, 04 Mar 2010 11:36:13 GMT
Server: lighttpd/1.4.25
---
lib/App/CPANIDX.pm view on Meta::CPAN
CPAN.
curl -i http://name.of.website/cpanidx/yaml/dists/BINGOS
HTTP/1.1 200 OK
Content-type: application/x-yaml; charset=utf-8
Transfer-Encoding: chunked
Date: Thu, 04 Mar 2010 11:39:14 GMT
Server: lighttpd/1.4.25
---
lib/App/CPANIDX.pm view on Meta::CPAN
C<c> for C<co-maint>.
curl -i http://name.of.website/cpanidx/yaml/perms/POE::Component::SmokeBox::Dists
HTTP/1.1 200 OK
Content-type: application/x-yaml; charset=utf-8
Transfer-Encoding: chunked
Date: Thu, 04 Mar 2010 11:39:14 GMT
Server: lighttpd/1.4.25
---
lib/App/CPANIDX.pm view on Meta::CPAN
and when the packages file that was used was last updated. Both values are in epoch time.
curl -i http://name.of.website/cpanidx/yaml/timestamp
HTTP/1.1 200 OK
Content-type: application/x-yaml; charset=utf-8
Transfer-Encoding: chunked
Date: Wed, 09 Jun 2010 10:16:15 GMT
Server: lighttpd/1.4.25
---
lib/App/CPANIDX.pm view on Meta::CPAN
most accurate, try L<http://thegestalt.org/simon/perl/wholecpan.html> for a more accurate leaderboard.
curl -i http://name.of.website/cpanidx/yaml/topten
HTTP/1.1 200 OK
Content-type: application/x-yaml; charset=utf-8
Transfer-Encoding: chunked
Date: Thu, 04 Mar 2010 11:44:44 GMT
Server: lighttpd/1.4.25
---
lib/App/CPANIDX.pm view on Meta::CPAN
Does not take a search term. Returns a list of CPAN mirror sites as listed in the C<MIRRORED.BY> file.
curl -i http://name.of.website/cpanidx/yaml/mirrors
HTTP/1.1 200 OK
Content-type: application/x-yaml; charset=utf-8
Transfer-Encoding: chunked
Date: Mon, 19 Apr 2010 14:52:52 GMT
Server: lighttpd/1.4.25
---
lib/App/CPANIDX.pm view on Meta::CPAN
with perl core.
curl -i http://name.of.website/cpanidx/yaml/corelist/Class::ISA
HTTP/1.1 200 OK
Content-type: application/x-yaml; charset=utf-8
Transfer-Encoding: chunked
Date: Thu, 06 May 2010 09:31:25 GMT
Server: lighttpd/1.4.25
---
view release on metacpan or search on metacpan
share/tt_lib/page.tt view on Meta::CPAN
<head>
[% IF base -%]
<base href="[% base %]">
[% END -%]
<!-- Required meta tags -->
<meta charset="utf-8">
<meta name="viewport" content="width=device-width, initial-scale=1">
<meta name="description" content="">
<meta name="author" content="Mark Otto, Jacob Thornton, and Bootstrap contributors">
<meta name="generator" content="Hugo 0.80.0">
<meta name="theme-color" content="#7952b3">
view release on metacpan or search on metacpan
lib/App/CSVUtils.pm view on Meta::CPAN
last;
}
}
sub _randext {
state $charset = [0..9, "A".."Z","a".."z"];
my $len = shift;
my $ext = "";
for (1..$len) { $ext .= $charset->[rand @$charset] }
$ext;
}
$SPEC{gen_csv_util} = {
v => 1.1,
view release on metacpan or search on metacpan
t/sample/sample.html view on Meta::CPAN
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Expires" content="-1">
<title>[MP4/1.09GB]DV-1194 Ãô¸ÐÉíówÖ±¶ßà ÖÐÎ÷Àï²Ë(ÖÐÎÄ×ÖÄ») ²ÝÁñÉç…^ - powered by phpwind.net</title>
<style>
body{font-size:12px;background:#F9F9EC;}
*{font-family:Tahoma;padding:0;margin:0}
t/sample/sample.html view on Meta::CPAN
</td>
<td width="20%">
</td></tr></table></div></form>
</div>
<script>
var charset='gbk';
var imgpath='images';
var stylepath='wind';
var cnt = 0;
function Addtoie(value,title){
window.external.AddFavorite(value,title);
t/sample/sample.html view on Meta::CPAN
}
}</script>
<center><TABLE width="700" class="tiptop"><TR><TD></TD></TR></TABLE><br />
<SCRIPT LANGUAGE="JavaScript">spinit();</SCRIPT>
<small><font color="#999999">Powered by <b>PHPWind</b> <b>v5.3</b> Code © 2003-07 <br />
This is html template view this page faster<br /><script src="http://s103.cnzz.com/stat.php?id=950900&web_id=950900&online=2" language="JavaScript" charset="gb2312"></script>
</center><br />
</body></html>
view release on metacpan or search on metacpan
devel/weblinks-samples.pl view on Meta::CPAN
print <<'HERE';
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<p>
HERE
view release on metacpan or search on metacpan
lib/Chronicle/Plugin/Generate/LowerCase.pm view on Meta::CPAN
__DATA__
<!DOCTYPE html>
<html lang="en">
<head>
<title>Blog Post Moved</title>
<meta charset="utf-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<meta http-equiv="refresh" content="0; url=<!-- tmpl_var name='top' --><!-- tmpl_var name='target' -->">
<link rel="canonical" href="<!-- tmpl_var name='top' --><!-- tmpl_var name='target' -->">
</head>
<body>
view release on metacpan or search on metacpan
docs/App-Cmdline-Options-Basic.html view on Meta::CPAN
<html><head><title>App::Cmdline::Options::Basic</title>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" >
<style type="text/css">
<!--/*--><![CDATA[/*><!--*/
BODY {
background: white;
view release on metacpan or search on metacpan
lib/App/DBBrowser/DB/Firebird.pm view on Meta::CPAN
for my $key ( keys %$connect_attr ) {
if ( ! length $connect_attr->{$key} ) {
next;
}
elsif ( $key =~ /^(?:ib_dialect|ib_role|ib_charset)\z/ ) {
$dsn .= ";$key=$connect_attr->{$key}";
}
else {
$dbh_attributes->{$key} = $connect_attr->{$key};
}
view release on metacpan or search on metacpan
lib/App/Dapper.pm view on Meta::CPAN
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>{{ page.title }}</title>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
</head>
<body>
{{ page.content }}
lib/App/Dapper.pm view on Meta::CPAN
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Welcome</title>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
</head>
<body>
<p>Hello world.</p>
view release on metacpan or search on metacpan
lib/App/DocKnot/Spin/Text.pm view on Meta::CPAN
if ($self->{style}) {
$self->_output(q{ }, style($self->{style}), "\n");
}
$self->_output(
q{ },
'<meta http-equiv="content-type" content="text/html; charset=utf-8"',
" />\n",
);
if ($self->{sitemap}) {
if (defined($self->{output}) && defined($self->{out_path})) {
my $page = $self->{out_path}->relative($self->{output});
view release on metacpan or search on metacpan
config/Component_Config.pm view on Meta::CPAN
</%class>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN"
"http://www.w3.org/TR/html4/strict.dtd">
<html lang="en">
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
<title>Dochazka Site Param</title>
</head>
<body>
<pre>
$site_param_name = '<% $.param %>';
config/Component_Config.pm view on Meta::CPAN
</%class>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN"
"http://www.w3.org/TR/html4/strict.dtd">
<html lang="en">
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
<title>Dochazka Monthly Report</title>
</head>
<body>
<pre>
<% Data::Dumper->Dump( [ $.employee ], [ 'employee' ] ) %>
view release on metacpan or search on metacpan
lib/App/Dochazka/WWW/Dispatch.pm view on Meta::CPAN
$expurgated_status = $CELL->status_err(
$body->{'code'},
payload => { code => $hr->code, message => $body->{'text'} },
)->expurgate;
}
$self->response->header('Content-Type' => 'application/json; charset=UTF-8' );
$self->response->header('Content-Encoding' => 'UTF-8' );
$self->response->body( JSON->new->encode( $expurgated_status ) );
return 1;
}