Source

p5-json-path / t / 06lvalue.t

Full commit
=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 strict;
use warnings;
use Test::More;

use JSON::Path -all;

my $person = { name => "Robert" };
my $path = JSON::Path->new('$.name');
$path->value($person) = "Bob";

is_deeply($person, { name => "Bob" });

jpath1($person, '$.name') = "Robbie";

is_deeply($person, { name => "Robbie" });

done_testing;