use warnings;
no warnings 'qw'; # you know what you doing
no warnings 'uninitialized'; # save some useless checks for more legible code
use warnings;
no warnings 'qw'; # you know what you doing
no warnings 'uninitialized'; # save some useless checks for more legible code
return join "\n", map { sprintf(
'<link rel="%s" type="text/css" media="all" href="%s" title="%s">',
return join "\n", map { sprintf(
'<link rel="%s" type="text/css" media="all" href="%s" title="%s">',
<title>$meta->{title}</title>
<meta name="description" content="$meta->{description}">
<meta name="keywords" content="$meta->{keywords}">
<title>$meta->{title}</title>
<meta name="description" content="$meta->{description}">
<meta name="keywords" content="$meta->{keywords}">
- print $_, "\n" for $meta->{stylesheet} || ();
- print $_, "\n" for $meta->{raw} || ();
- print qq{</head>\n\n<body id="$file">\n};
+ say for $meta->{stylesheet} || ();
+ say for $meta->{raw} || ();
+ say '<meta name="robots" content="noindex">' if $Dev;
+ say qq{</head>\n\n<body id="$file">};
<p class="footer">
<a href="/" rel="start">sheet.shiar.nl</a>/$file.<a href="/source/$file.plp"
rel="source" title="Written in Perl">plp</a>
<p class="footer">
<a href="/" rel="start">sheet.shiar.nl</a>/$file.<a href="/source/$file.plp"
rel="source" title="Written in Perl">plp</a>
rel="vcs-git" title="Git repository">$meta->{version}</a>
created by <a href="http://shiar.nl/" rel="author">Shiar</a> •
<a href="http://www.fsf.org/licensing/licenses/agpl-3.0.html" rel="license copyright"
title="Licensed under the GNU Affero General Public License, version 3">AGPLv3</a>
rel="vcs-git" title="Git repository">$meta->{version}</a>
created by <a href="http://shiar.nl/" rel="author">Shiar</a> •
<a href="http://www.fsf.org/licensing/licenses/agpl-3.0.html" rel="license copyright"
title="Licensed under the GNU Affero General Public License, version 3">AGPLv3</a>