&| SELF:wrapper, title => Odin::escapify($m, $title) . " (odin.gg Paste Bin)" &>
% if ($lang eq 'txt') { <% $content |h %>\ % } else { <%perl> my $kid = open my $fh, "-|" // die "fork: $!"; if ($kid == 0) { open my $hl, "|-", "highlight", "-Ohtml", "-f", "-t8", "-S$lang" or die "open highlight: $!"; syswrite $hl, $content // die "highlight write: $!"; close $hl or die "highlight kid: $!, $?"; exit 0; } else { while (sysread $fh, my $buf, 8192) { $m->print($buf); } close $fh and waitpid $kid, 0 or die "highlight parent: $!, $?"; } %perl> % }&> %# <%args> $content $title $lang $tag $edit %args> %# <%init> my $db = Odin::open_db; %init> %# <%once> use utf8; %once>