view release on metacpan or  search on metacpan

inc/Email/Address.pm  view on Meta::CPAN

    $class->__cache_parse($line, \@addrs);
    return @addrs;
}

#line 252

sub new {
  my ($class, $phrase, $email, $comment, $orig) = @_;
  $phrase =~ s/\A"(.+)"\z/$1/ if $phrase;

  bless [ $phrase, $email, $comment, $orig ] => $class;
}

#line 274

sub purge_cache {
    %NAME_CACHE   = ();
    %FORMAT_CACHE = ();
    %PARSE_CACHE  = ();
}

lib/Email/Address/Loose/EmailAddress.pm  view on Meta::CPAN

    $class->__cache_parse($line, \@addrs);
    return @addrs;
}


sub new {
  my ($class, $phrase, $email, $comment, $orig) = @_;
  $phrase =~ s/\A"(.+)"\z/$1/ if $phrase;

  bless [ $phrase, $email, $comment, $orig ] => $class;
}


sub purge_cache {
    %NAME_CACHE   = ();
    %FORMAT_CACHE = ();
    %PARSE_CACHE  = ();
}