File Coverage

lib/JSON/Pointer/Extend.pm

Criterion	Covered	Total	%
statement	56	60	93.3
branch	20	24	83.3
condition	3	6	50.0
subroutine	10	10	100.0
pod	3	4	75.0
total	92	104	88.4

package JSON::Pointer::Extend;

use utf8;
use strict;
use warnings;

use JSON::Pointer;
use Carp qw();

our $VERSION = '0.01';

sub new {
    my ($class, %opt) = @_;
    my $self = {};
    bless $self, $class;

    $opt{'-pointer'} && $self->pointer(delete $opt{'-pointer'});
    $opt{'-document'} && $self->document(delete $opt{'-document'});

    return $self;
}

sub process {
    my ($self) = @_;
    my $pointer = $self->pointer // Carp::croak("'pointer' not defined");

    for my $key (keys %$pointer) {
        $self->_recursive_process($self->document, $key, $pointer->{$key});
    }
    return 1;
}

sub _recursive_process {
    my ($self, $document, $pointer, $cb) = @_;

    if ($pointer =~ /(.*?)\/\*(.+)?/) {
        my $path = $1;
        my $tail = $2;
        my $arr_ref = JSON::Pointer->get($document, $path);
        if (ref($arr_ref) ne 'ARRAY') {
            Carp::croak("Path '$path' not array");
        }

        my @arr = @$arr_ref;
        if ($tail) {
            for my $el (@arr) {
                $self->_recursive_process($el, $tail, $cb);
            }
        }
        else {
            my ($root_pointer, $field_name) = $pointer =~ /(.*)\/(.+)/;
            for my $el (@arr) {
                $cb->($el, JSON::Pointer->get($document, $root_pointer), $field_name);
            }
        }
    }
    elsif ($pointer eq '') {
        my $path = '';
        my $arr_ref = JSON::Pointer->get($document, $path);
        if (ref($arr_ref) ne 'ARRAY') {
            Carp::croak("Path '$path' not array");
        }

        my @arr = @$arr_ref;
        for my $el (@arr) {
            $cb->($el, $arr_ref, undef);
        }
    }
    else {
        my ($root_pointer, $field_name) = $pointer =~ /(.+)?\/(.+)/;
        $cb->(JSON::Pointer->get($document, $pointer), $root_pointer ? JSON::Pointer->get($document, $root_pointer) : $document, $field_name);
    }
}

############################### GET/SET METHODS ##############################

sub document {
    if (scalar(@_) > 1) {
        my $ref = ref($_[1]);
        if ($ref ne 'HASH' && $ref ne 'ARRAY') {
            Carp::croak("'document' must be a hashref or arrayref");
        }
        $_[0]->{'document'} = $_[1];
    }
    return $_[0]->{'document'};
}

sub pointer {
    if (scalar(@_) > 1) {
        if (ref($_[1]) ne 'HASH') {
            Carp::croak("'pointer' must be a hashref");
        }
        $_[0]->{'pointer'} = $_[1];
    }
    return $_[0]->{'pointer'};
}

1;

__END__