Subject: ANNOUNCE: Data::Compare 0.01
From: [email-masked] (Fabien Tassin)
Date: 3 May 1999 15:25:47 GMT
Newsgroups: comp.lang.perl.announce,comp.lang.perl.modules

I've just uploaded a new Perl module, Data::Compare, to PAUSE.  It
should be showing up on CPAN shortly, or you can download it directly from
ftp://ftp.oleane.net/private/fta/perl/cpan/

Short introduction extracted from the readme :

NAME
       Data::Compare - compare perl data structures

SYNOPSIS
           use Data::Compare;

           my $h = { 'foo' => [ 'bar', 'baz' ], 'FOO' => [ 'one', 'two' ] };
           my @a1 = ('one', 'two');
           my @a2 = ('bar', 'baz');
           my %v = ( 'FOO', \@a1, 'foo', \@a2 );

           # simple procedural interface
           print 'structures of $h and \%v are ',
             Compare($h, \%v) ? "" : "not ", "identical.\n";

           # OO usage
           my $c = new Data::Compare($h, \%v);
           print 'structures of $h and \%v are ',
             $c->Cmp ? "" : "not ", "identical.\n";
           # or
           my $d = new Data::Compare;
           print 'structures of $h and \%v are ',
             $d->Cmp($h, \%v) ? "" : "not ", "identical.\n";

DESCRIPTION
       Compare two perl data structures recursively. Returns 0 if
       the structures differ, else returns 1.

-- 
Fabien Tassin -+- [email-masked]