JSON_ESCAPE = { "&" => '\u0026', ">" => '\u003e', "<" => '\u003c', "\u2028" => '\u2028', "\u2029" => '\u2029' }
JSON_ESCAPE_REGEXP = /[\u2028\u2029&><]/u

##</code><code>##

{
  my %escape = (
    "&"        => '\u0026',
    ">"        => '\u003E',
    "<"        => '\u003C',
    '\x{2028}' => '\u2028',
    '\x{2029}' => '\u2029',
  );

  my $chars = join '', keys %escape;
  my $regex = qr/[$chars]/;

  sub escape_for_html {
    my $class = shift;

    @_ or croak 'no json supplied';
    my @json  = @_;

    foreach (@json) {
      s/($regex)/$escape{ $1 }/ge if defined;
    }

    return wantarray ? @json : join('', @json);
  }
}