Yet Another CPAN Grep

Tie-Hash-DBD ( H/HM/HMBRAND/Tie-Hash-DBD-0.25.tgz, HMBRAND, 2025; MetaCPAN )

Tie-Hash-DBD/lib/Tie/Array/DBD.pm ( view source; MetaCPAN )

str eq "JSON") {
		require JSON;
		my $j = JSON->new->allow_nonref;
		$h->{_en} = sub { $j->utf8->encode ($_[0]) };
		$h->{_de} = sub {       $j->decode ($_[0]) };
		}
	    elsif ($str eq "JSON::Maybe

require JSON::MaybeXS;
		my $j = JSON::MaybeXS->new->allow_nonref;
		$h->{_en} = sub { $j->utf8->encode ($_[0]) };
		$h->{_de} = sub {       $j->decode ($_[0]) };
		}
	    elsif ($str eq "JSON::SIMD")


		require JSON::SIMD;
		my $j = JSON::SIMD->new->allow_nonref;
		$h->{_en} = sub { $j->utf8->encode ($_[0]) };
		$h->{_de} = sub {       $j->decode ($_[0]) };
		}
	    elsif ($str eq "JSON::Syck") {

Tie-Hash-DBD ( H/HM/HMBRAND/Tie-Hash-DBD-0.25.tgz, HMBRAND, 2025; MetaCPAN )

Tie-Hash-DBD/lib/Tie/Hash/DBD.pm ( view source; MetaCPAN )

str eq "JSON") {
		require JSON;
		my $j = JSON->new->allow_nonref;
		$h->{_en} = sub { $j->utf8->encode ($_[0]) };
		$h->{_de} = sub {       $j->decode ($_[0]) };
		}
	    elsif ($str eq "JSON::Maybe

require JSON::MaybeXS;
		my $j = JSON::MaybeXS->new->allow_nonref;
		$h->{_en} = sub { $j->utf8->encode ($_[0]) };
		$h->{_de} = sub {       $j->decode ($_[0]) };
		}
	    elsif ($str eq "JSON::SIMD")


		require JSON::SIMD;
		my $j = JSON::SIMD->new->allow_nonref;
		$h->{_en} = sub { $j->utf8->encode ($_[0]) };
		$h->{_de} = sub {       $j->decode ($_[0]) };
		}
	    elsif ($str eq "JSON::Syck") {