Struct::Diff::MergePatch - JSON Merge Patch (rfc7396) for perl structures
Version 0.01
use Struct::Diff::MergePatch qw(diff patch);
$old = {a => {b => 1,c => [0], d => 5},f => 2};
$new = {a => {b => 1,c => [0,1],e => 6},f => 2};
$diff = diff($old, $new);
# {a => {c => [0,1],d => undef,e => 6}}
patch($old, $diff);
# $old now equal to $new
Nothing is exported by default.
Calculate patch for two arguments:
$patch = diff($old, $new);
Convert Struct::Diff diff to merge patch when single arg passed:
$patch = diff(Struct::Diff::diff($old, $new));
Apply patch.
patch($target, $patch);
Michael Samoglyadov, <mixas at cpan.org>
Please report any bugs or feature requests to
bug-struct-diff-mergepatch at rt.cpan.org, or through the web interface at
http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Struct-Diff-MergePatch. I
will be notified, and then you'll automatically be notified of progress on
your bug as I make changes.
You can find documentation for this module with the perldoc command.
perldoc Struct::Diff::MergePatch
You can also look for information at:
-
RT: CPAN's request tracker (report bugs here)
http://rt.cpan.org/NoAuth/Bugs.html?Dist=Struct-Diff-MergePatch
-
AnnoCPAN: Annotated CPAN documentation
-
CPAN Ratings
-
Search CPAN
Struct::Diff, JSON::MergePatch, rfc7396
Copyright 2017 Michael Samoglyadov.
This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.
See http://dev.perl.org/licenses/ for more information.