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
|
=head1 PURPOSE
Basic tests for some of the lvalue stuff.
=head1 AUTHOR
Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
=head1 COPYRIGHT AND LICENCE
Copyright 2013 Toby Inkster.
This module is tri-licensed. It is available under the X11 (a.k.a. MIT)
licence; you can also redistribute it and/or modify it under the same
terms as Perl itself.
=cut
use Test2::V0;
use JSON::Path -all;
my $person = { name => "Robert", foo => { bar => [ 1, 2, 3 ] } };
my $path = JSON::Path->new('$.name');
$path->value($person) = "Bob";
is( $person, { name => "Bob", foo => { bar => [ 1, 2, 3 ] } } , q{Setting 'name' changes only the 'name' key and nothing else});
jpath1( $person, '$.name' ) = "Robbie";
jpath1( $person, '$.foo.bar' ) = 12;
is( $person, { name => "Robbie", foo => { bar => 12 } }, q{jpath1() works as lvalue});
$path->value($person) ||= 'Fred';
is $person->{name}, 'Robbie', q{lvalue works with ||=};
$path = JSON::Path->new('$.quux');
$path->value($person) = 'alpha';
is $person->{quux}, 'alpha', q{lvalue will create keys not previously extant};
$path = JSON::Path->new('$.quuy');
$path->value($person) ||= 'beta';
is $person->{quuy}, 'beta', q{lvalue and ||= will create keys not previously extant};
done_testing;
|
