view release on metacpan or  search on metacpan

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

144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
    $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  = ();
}