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
EOT
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',