/ 
Struct-Diff-0.64
River stage one • 3 direct dependents • 3 total dependents
/ Struct::Diff

NAME

Struct::Diff - Recursive diff tools for nested perl structures

VERSION

Version 0.64

SYNOPSIS

use Struct::Diff qw(diff dselect dsplit patch);

$a = {x => [7,{y => 4}]};
$b = {x => [7,{y => 9}],z => 33};

$diff = diff($a, $b, noO => 1, noU => 1);       # omit unchanged and old values for changed items
# $diff == {D => {x => {D => [{I => 1,N => {y => 9}}]},z => {A => 33}}};

@items = dselect($diff, fromD => ['z']);        # get status for a particular key
# @items == ({z => {A => 33}});

$href = dsplit($diff);                          # divide diff
# $dsplit->{a} not exists                       # unchanged omitted, other items originated from $b
# $dsplit->{b} == {x => [{y => 9}],z => 33};

dtraverse($d, {callback => sub {print "val $_[0] has status $_[2]" }}); # traverse through diff

patch($a, $diff);
# $a now equal to $b by structure and data

EXPORT

Nothing is exported by default.

SUBROUTINES

diff

Returns HASH reference to recursive diff between two passed things. Beware when changing diff: some of it's substructures are links to original structures.

$diff = diff($a, $b, %opts);
$patch = diff($a, $b, noU => 1, noO => 1, trimR => '1'); # smallest possible diff

Diff metadata format

Diff's keys shows status of each item in passed structures.

A

Stands for 'added' (exists only in second structure), it's value - added item.

D

Means 'different' and contains subdiff.

I

Shows index for changed item (arrays only).

N

Is a new value for changed item.

O

Alike N, O is a changed item's old value.

R

Similar for A, but for removed items.

U

Represent 'unchanged' items - common for both structures.

Available options

noX

Where X is a status (A, N, O, R, U); such status will be omitted.

trimR

Drop removed item's data.

dselect

Returns items with desired status from diff's first level

@added = dselect($diff, states => { 'A' => 1 } # something added?
@items = dselect($diff, states => { 'A' => 1, 'U' => 1 }, 'fromD' => [ 'a', 'b', 'c' ]) # from D hash
@items = dselect($diff, states => { 'D' => 1, 'N' => 1 }, 'fromD' => [ 0, 1, 3, 5, 9 ]) # from D array

Available options

fromD

Select items from diff's 'D'. Expects list of positions (indexes for arrays and keys for hashes). All items with specified states will be returned if opt exists, but not defined or is an empty list.

states

Expects hash with desired states as keys with values in some true value. Items with all states will be returned if opt not defined.

dsplit

Divide diff to pseudo original structures

$structs = dsplit($diff);
# $structs->{'a'} - now contains items originated from $a
# $structs->{'b'} - same for $b

dtraverse

Traverse through diff invoking callback function for subdiff statuses.

my $opts = {
    callback => sub { print "added value:", $_[0], "depth:", @{$_[1]}, "status:", $_[2] },
    sortkeys => sub { sort { $a <=> $b } @_ }   # numeric sort for keys under diff
};
dtraverse($diff, $opts);

Available options

callback

Mandatory option, must contain coderef to callback fuction. Three arguments will be passed to provided subroutine: value, path, status. Important: path (second argument) is actual for callback lifetime and will be immedeately changed afterwards.

sortkeys

Defines how will be traversed subdiffs for hashes. Keys will be picked Randomely (depends on keys behavior, default), sorted by provided subroutine (if value is a coderef) or lexically sorted if set to some other true value.

statuses

Exact list of statuses. Sequence defines invocation priority.

patch

Apply diff

patch($a, $diff);

LIMITATIONS

Struct::Diff fails on structures with loops in references. has_circular_ref from Data::Structure::Util can help to detect such structures.

Only scalars, refs to scalars, ref to arrays and ref to hashes correctly traversed. All other data types compared by their references.

No object oriented interface provided.

AUTHOR

Michael Samoglyadov, <mixas at cpan.org>

BUGS

Please report any bugs or feature requests to bug-struct-diff at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Struct-Diff. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

perldoc Struct::Diff

You can also look for information at:

SEE ALSO

Data::Diff, Data::Difference, Data::Deep, JSON::MergePatch

Data::Structure::Util, Struct::Path, Struct::Path::PerlStyle

LICENSE AND COPYRIGHT

Copyright 2015-2016 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.