Yet Another CPAN Grep

HTML-Tiny ( A/AR/ARISTOTLE/HTML-Tiny-1.08.tar.gz, ARISTOTLE, 2022; MetaCPAN )

HTML-Tiny/lib/HTML/Tiny.pm ( view source; MetaCPAN )

 and decode URL encoded strings

=item * entity encode HTML

=item * build query strings

=item * JSON encode data structures

=back

=head1 INTERFACE

=over

=item C<< new >>

Create a new C<< HTML::


  sub _json_encode_ref {
    my ( $self, $seen, $obj ) = @_;
    my $type = ref $obj;
    if ( 'HASH' eq $type ) {
      return '{' . join(
        ',',
        map {
             $self->_json_encode

 . $self->_json_encode( $seen, $obj->{$_} )
         } sort keys %$obj
      ) . '}';
    }
    elsif ( 'ARRAY' eq $type ) {
      return
         '['
       . join( ',', map { $self->_json_encode( $s