File Coverage

blib/lib/JQ/Lite.pm

Criterion	Covered	Total	%
statement	48	48	100.0
branch	9	10	90.0
condition	7	10	70.0
subroutine	9	9	100.0
pod	2	2	100.0
total	75	79	94.9

package JQ::Lite;

use strict;
use warnings;

use JSON::PP ();

use JQ::Lite::Filters;
use JQ::Lite::Parser;
use JQ::Lite::Util ();

our $VERSION = '2.42';

sub new {
    my ($class, %opts) = @_;
    my $base_vars = {};
    if (exists $opts{vars} && ref $opts{vars} eq 'HASH') {
        $base_vars = { %{ $opts{vars} } };
    }

    my $self = {
        raw        => $opts{raw} || 0,
        _base_vars => $base_vars,
        _vars      => { %{$base_vars} },
    };

    return bless $self, $class;
}

sub run_query {
    my ($self, $json_text, $query) = @_;

    my $depth = $self->{_query_depth} || 0;
    local $self->{_query_depth} = $depth + 1;
    if ($depth == 0) {
        local $self->{_vars} = { %{ $self->{_base_vars} || {} } };
        return _run_query_internal($self, $json_text, $query);
    }

    return _run_query_internal($self, $json_text, $query);
}

sub _run_query_internal {
    my ($self, $json_text, $query) = @_;

    my $data = JQ::Lite::Util::_decode_json($json_text);

    return ($data) if !defined $query || $query =~ /^\s*\.\s*$/;

    my @parts = JQ::Lite::Parser::parse_query($query);

    my @results = ($data);
    for my $part (@parts) {
        my @next_results;

        if (JQ::Lite::Filters::apply($self, $part, \@results, \@next_results)) {
            @results = @next_results;
            next;
        }

        for my $item (@results) {
            push @next_results, JQ::Lite::Util::_traverse($item, $part);
        }
        @results = @next_results;
    }

    return @results;
}

1;
__END__