143 |
} else { |
} else { |
144 |
$option->{field_sort} = 'good-practice'; |
$option->{field_sort} = 'good-practice'; |
145 |
} |
} |
146 |
} elsif ($format =~ /mail|news/) { ## RFC 822 |
} elsif ($format =~ /mail|news|mime/) { ## RFC 822 |
147 |
$option->{ns_default_phuri} = $self->{ns}->{phname2uri}->{'x-rfc822'}; |
$option->{ns_default_phuri} = $self->{ns}->{phname2uri}->{'x-rfc822'}; |
148 |
} |
} |
149 |
if ($format =~ /uri-url-mailto/) { |
if ($format =~ /uri-url-mailto/) { |
377 |
my %vopt = %{$vtype->[1]} if ref $vtype->[1]; |
my %vopt = %{$vtype->[1]} if ref $vtype->[1]; |
378 |
if ($vpackage eq ':none:') { |
if ($vpackage eq ':none:') { |
379 |
return $value; |
return $value; |
380 |
} elsif (defined $value) { |
} elsif (length $value) { |
381 |
eval "require $vpackage" or Carp::croak qq{<parse>: $vpackage: Can't load package: $@}; |
eval "require $vpackage" or Carp::croak qq{<parse>: $vpackage: Can't load package: $@}; |
382 |
return $vpackage->parse ($value, |
return $vpackage->parse ($value, |
383 |
-format => $self->{option}->{format}, |
-format => $self->{option}->{format}, |
385 |
-field_name => $name, |
-field_name => $name, |
386 |
-header_default_charset => $self->{option}->{header_default_charset}, |
-header_default_charset => $self->{option}->{header_default_charset}, |
387 |
-header_default_charset_input => $self->{option}->{header_default_charset_input}, |
-header_default_charset_input => $self->{option}->{header_default_charset_input}, |
388 |
|
-internal_charset_name => $self->{option}->{internal_charset_name}, |
389 |
-parse_all => $self->{option}->{parse_all}, |
-parse_all => $self->{option}->{parse_all}, |
390 |
%vopt); |
%vopt); |
391 |
} else { |
} else { |
396 |
-field_name => $name, |
-field_name => $name, |
397 |
-header_default_charset => $self->{option}->{header_default_charset}, |
-header_default_charset => $self->{option}->{header_default_charset}, |
398 |
-header_default_charset_input => $self->{option}->{header_default_charset_input}, |
-header_default_charset_input => $self->{option}->{header_default_charset_input}, |
399 |
|
-internal_charset_name => $self->{option}->{internal_charset_name}, |
400 |
-parse_all => $self->{option}->{parse_all}, |
-parse_all => $self->{option}->{parse_all}, |
401 |
%vopt); |
%vopt); |
402 |
} |
} |