{
    my %seen;

    sub new {
        my $class = shift;
        my ($this, $value)=@_;
        my $id = unique_id $this, $value;
        $seen{$id} ||= bless { THIS => $this,
                               VALUE => $value }, $class;
    }

    # Suitable DERSTROY here...
}