view release on metacpan or  search on metacpan

lib/JQ/Lite/Util.pm  view on Meta::CPAN

require JQ::Lite::Util::Parsing;
require JQ::Lite::Util::Paths;
require JQ::Lite::Util::Transform;

my $decode_json_impl = \&_decode_json;
{
    no warnings 'redefine';
    *_decode_json = sub {
        my @args = @_;
        my $want_structured = (caller)[0] eq 'JQ::Lite';
        return $decode_json_impl->(@args) unless $want_structured;

        my ($value, $ok, $err);
        {
            local $@;
            $ok = eval {
                $value = $decode_json_impl->(@args);
                1;
            };
            $err = $@;