Data::Utilities - General utilities for nested perl data structures.
use Data::Utilities;
my $tree
= {
a1 => {
a1 => '-a11',
a2 => '-a12',
},
a2 => {
a1 => '-a21',
a2 => '-a22',
},
};
my $expected_data
= {
a1 => {
a2 => '-a12',
},
};
my $transformation
= Data::Transformator->new
(
apply_identity_transformation => {
a1 => {
a2 => 1,
},
},
contents => $tree,
name => 'test_transform5',
);
my $transformed_data = $transformation->transform();
use Data::Dumper;
print Dumper($transformed_data);
my $differences = data_comparator($transformed_data, $expected_data);
if ($differences->is_empty())
{
print "$0: extraction ok\n";
}
else
{
print "$0: extraction failed\n";
}
Data::Utilities contains general tools to transform, merge, compare nested perl data structures. See the documentation of the modules in this package as indicated below.
There are more documentation comments in Data::Transformator, for the moment I have no time to write better documentation than this. The best way to learn how to use it, is to take a look at the test cases.
The Neurospaces project (http://www.neurospaces.org/) makes heavy use of these utilities. So you can find some examples overthere to, especially in the test framework.
Hugo Cornelis
CPAN ID: CORNELIS
Neurospaces Project
hugo.cornelis@gmail.com
http://www.neurospaces.org/
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included with this module.
Data::Comparator(3), Data::Merger(3), Data::Transformator(3), Data::Differences(3).