#!/usr/bin/perl -w

use strict;
use warnings;
use Array::Compare;

my $comp1 = Array::Compare->new;
$comp1->Sep        ('|');
$comp1->Skip       ({3 => 1, 4 => 1});
$comp1->WhiteSpace (0);
$comp1->Case       (1);

my $comp2 = Array::Compare->new (
    Sep        => '|',
    WhiteSpace => 0,
    Case       => 1,
    Skip       => {3 => 1, 4 => 1}
);

my @arr1 = 0 .. 10;
my @arr2 = 0 .. 10;

if ($comp1->simple_compare (\@arr1, \@arr2)) {
    print "Arrays are the same\n";
} else {
    print "Arrays are different\n";
}

if ($comp2->simple_compare (\@arr1, \@arr2)) {
    print "Arrays are the same\n";
} else {
    print "Arrays are different\n";
}

##</code><code>##

Use of uninitialized value $caller in string eq at /usr/lib/perl5/site_perl/5.8/Array/Compare.pm line 328.
Arrays are the same
Use of uninitialized value $caller in string eq at /usr/lib/perl5/site_perl/5.8/Array/Compare.pm line 328.
Arrays are the same

##</code><code>##

my ($pkg, $caller) = (caller(1))[0, 3];