$PLP::ERROR = sub {
my ($text, $html) = @_;
print '<p class="error"><strong>Fatal error</strong>: '.$html."</p>\n\n";
+ warn $text;
};
BEGIN {
ref $_ eq 'ARRAY' and $_ = stylesheet(@$_)."\n" for $meta->{stylesheet};
# other vars
+ my $Dev = $ENV{HTTP_HOST} =~ /\bdev\./;
my ($file) = $ENV{SCRIPT_FILENAME} =~ m{ ([^/]+) \.plp$ }x;
# leading output
<meta name="viewport" content="width=device-width, initial-scale=1">
<link rel="icon" type="image/png" href="/clip.png">
EOT
- 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">};
- # dev indicator
- my $Dev = $ENV{HTTP_HOST} =~ /\bdev\./;
+ # development version indicator
printf '<p style="%s">beta</p>', join('; ',
'position: fixed',
'right: 1em',