NAME

FP::Equal - equality

SYNOPSIS

use FP::Equal;
equal [1, [2, 3]], [1, [1+1, 3]]; # -> true
equal [1, [2, 3]], [1, [1+2, 3]]; # -> false

my $s1= "stringwithunicode";
my $s2= "stringwithunicode";
utf8::decode($s2);
equal $s1, $s2; # -> false
equal_utf8 $s1, $s2; # -> true

DESCRIPTION

Deep structure equality comparison.

NOTE: currently using Data::Dumper and thus slow.

For a more proper solution, see FP::Equals

SEE ALSO

FP::Equals