Yet Another CPAN Grep

JSON-Pointer-Extend ( V/VR/VRAG/JSON-Pointer-Extend-0.02.tar.gz, VRAG, 2021; MetaCPAN )

JSON-Pointer-Extend/lib/JSON/Pointer/Extend.pm ( view source; MetaCPAN )

package JSON::Pointer::Extend;

use utf8;
use strict;
use warnings;

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

our $VERSION = '0.02';

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

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

     $cb->($el, JSON::Pointer->get($document, $root_pointer), $field_name);
            }
        }
    }
    elsif ($pointer eq '') {
        my $path = '';
        my $arr_ref = JSON::Pointer->get($