NAME

Data::Utilities - General utilities for nested perl data structures.

SYNOPSIS

    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";
    }

DESCRIPTION

Data::Utilities contains general tools to transform, merge, compare nested perl data structures.

USAGE

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.

BUGS

Many. I make it work for me, and share the result. I am happy to incorporate fixes for other people. I have little time to support everything.

AUTHOR

    Hugo Cornelis
    CPAN ID: CORNELIS
    Neurospaces Project
    hugo.cornelis@gmail.com
    http://www.neurospaces.org/

COPYRIGHT

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.

SEE ALSO

perl(1).