File Coverage

blib/lib/Catmandu/CA/API/QueryBuilder.pm

Criterion	Covered	Total	%
statement	15	25	60.0
branch	0	2	0.0
condition			n/a
subroutine	5	6	83.3
pod			n/a
total	20	33	60.6

package Catmandu::CA::API::QueryBuilder;

use strict;
use warnings;

use Moo;
use Catmandu::Sane;

use JSON;

has field_list => (is => 'ro', required => 1);

has query => (is => 'lazy');

sub _build_query {
    my $self = shift;

    if (scalar @{$self->field_list} == 0) {
        return encode_json({});
    }

    my $query = {
        'bundles' => {}
    };

    foreach my $field (@{$self->field_list}) {
        my $def = sprintf('%s', $field);
        $query->{'bundles'}->{$def} = {
            'returnAsArray' => JSON::true,
            'locale' => 'nl_BE'
        };
    }

    return encode_json($query);
}

1;
__END__