| Subject: | intersection(['A', 'A'], ['A', 'A']) doesn't equal ['A', 'A'] |
The following code snippet print 'A' and not the expected ['A', 'A']
use Set::Array;
my $sao1 = Set::Array->new('A', 'A');
my $sao2 = Set::Array->new('A', 'A');
use Data::Dump qw(dump);
print dump($sao1->intersection($sao2)), "\n";