lib/PublicInbox/Address.pm

   1 # Copyright (C) 2016-2019 all contributors <meta@public-inbox.org>
   2 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
   3 package PublicInbox::Address;
   4 use strict;
   5 use warnings;
   6
   7 sub xs_emails { map { $_->address() } parse_email_addresses($_[0]) }
   8
   9 sub xs_names {
  10         map {
  11                 my $n = $_->name;
  12                 $n = $_->user if $n eq $_->address;
  13                 $n;
  14         } parse_email_addresses($_[0]);
  15 }
  16
  17 eval {
  18         require Email::Address::XS;
  19         Email::Address::XS->import(qw(parse_email_addresses));
  20         *emails = \&xs_emails;
  21         *names = \&xs_names;
  22 };
  23
  24 if ($@) {
  25         require PublicInbox::AddressPP;
  26         *emails = \&PublicInbox::AddressPP::emails;
  27         *names = \&PublicInbox::AddressPP::names;
  28 }
  29
  30 1;