1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
package Mojo::JSON::Pointer;
use Mojo::Base -base;
use Scalar::Util 'looks_like_number';
sub contains { shift->_pointer(1, @_) }
sub get { shift->_pointer(0, @_) }
sub _pointer {
my ($self, $contains, $data, $pointer) = @_;
return $data unless $pointer =~ s!^/!!;
for my $p ($pointer eq '' ? ($pointer) : (split '/', $pointer)) {
$p =~ s/~0/~/g;
$p =~ s!~1!/!g;
# Hash
if (ref $data eq 'HASH' && exists $data->{$p}) { $data = $data->{$p} }
# Array
elsif (ref $data eq 'ARRAY' && looks_like_number($p) && @$data > $p) {
$data = $data->[$p];
}
# Nothing
else { return undef }
}
return $contains ? 1 : $data;
}
1;
=encoding utf8
=head1 NAME
Mojo::JSON::Pointer - JSON Pointers
=head1 SYNOPSIS
use Mojo::JSON::Pointer;
my $pointer = Mojo::JSON::Pointer->new;
say $pointer->get({foo => [23, 'bar']}, '/foo/1');
say 'Contains "/foo".' if $pointer->contains({foo => [23, 'bar']}, '/foo');
=head1 DESCRIPTION
L<Mojo::JSON::Pointer> is a relaxed implementation of RFC 6901.
=head1 METHODS
=head2 contains
my $success = $pointer->contains($data, '/foo/1');
Check if data structure contains a value that can be identified with the given
JSON Pointer.
# True
$pointer->contains({'♥' => 'mojolicious'}, '/♥');
$pointer->contains({foo => 'bar', baz => [4, 5, 6]}, '/foo');
$pointer->contains({foo => 'bar', baz => [4, 5, 6]}, '/baz/2');
# False
$pointer->contains({'♥' => 'mojolicious'}, '/☃');
$pointer->contains({foo => 'bar', baz => [4, 5, 6]}, '/bar');
$pointer->contains({foo => 'bar', baz => [4, 5, 6]}, '/baz/9');
=head2 get
my $value = $pointer->get($data, '/foo/bar');
Extract value identified by the given JSON Pointer.
# "mojolicious"
$pointer->get({'♥' => 'mojolicious'}, '/♥');
# "bar"
$pointer->get({foo => 'bar', baz => [4, 5, 6]}, '/foo');
# "4"
$pointer->get({foo => 'bar', baz => [4, 5, 6]}, '/baz/0');
# "6"
$pointer->get({foo => 'bar', baz => [4, 5, 6]}, '/baz/2');
=head1 SEE ALSO
L<Mojolicious>, L<Mojolicious::Guides>, L<http://mojolicio.us>.
=cut
|
