| Subject: | new does not behave as documented |
Not only does the new method totally discard any provided value for
the normalizaiton layer, it dies if you provide one.
use Perl::Compare;
use Perl::Signature;
print "@ARGV\n";
my @obj;
foreach my $arg ( 0 .. 1 ){
$obj[$arg] = Perl::Signature::Set->new(2) || die $!;
$obj[$arg] = $obj[$arg]->add($ARGV[$arg]);
}
my $diff = Perl::Compare->new(from=>$obj[0]) || die $!;
print $diff->compare_report($obj[1]);
Died at foo.pl line 9.
Not that it fairs any better without a layer:
No such file or directory at foo.pl line 17.