/usr/local/CPAN/Email-Store/Email/Store/Entity/Correlator/Trivial.pm

• package Email::Store::Entity::Correlator::Trivial
  • get_person_order
  • get_person
• EOF

package Email::Store::Entity::Correlator::Trivial;
use strict;

sub get_person_order { 99 }
sub get_person {
    my ($self, $person_r, $mail, $role, $name, $address) = @_;
    return if $$person_r;
    my %seen;
    my @candidates = Email::Store::Entity->search_distinct_entity(
        $name->id, $address->id
    );
    if (@candidates == 0) {
       $$person_r = Email::Store::Entity->create({notes => ""});
       return;
    } elsif (@candidates == 1) {
       $$person_r = $candidates[0];
    } else {
       # This shouldn't happen, but anyway:
       $$person_r = $candidates[0];
    }
}

1;