48 |
\&Message::Util::encode_header_string, |
\&Message::Util::encode_header_string, |
49 |
hook_decode_string => #sub {shift; (value => shift, @_)}, |
hook_decode_string => #sub {shift; (value => shift, @_)}, |
50 |
\&Message::Util::decode_header_string, |
\&Message::Util::decode_header_string, |
51 |
|
internal_charset_name => 'utf-8', |
52 |
#name ## Reserved for method level option |
#name ## Reserved for method level option |
53 |
#parse ## Reserved for method level option |
#parse ## Reserved for method level option |
54 |
parse_all => 0, |
parse_all => 0, |
553 |
} |
} |
554 |
my $vtype = $handler->[0]; |
my $vtype = $handler->[0]; |
555 |
my %vopt = ( |
my %vopt = ( |
556 |
|
-body_default_charset => $self->{option}->{body_default_charset}, |
557 |
|
-body_default_charset_input => $self->{option}->{body_default_charset_input}, |
558 |
-format => $self->{option}->{format}, |
-format => $self->{option}->{format}, |
559 |
-field_ns => $self->{option}->{field_ns}, |
-field_ns => $self->{option}->{field_ns}, |
560 |
-field_name => $self->{option}->{field_name}, |
-field_name => $self->{option}->{field_name}, |
561 |
-field_param_name => $name, |
-field_param_name => $name, |
562 |
|
-header_default_charset => $self->{option}->{header_default_charset}, |
563 |
|
-header_default_charset_input => $self->{option}->{header_default_charset_input}, |
564 |
|
-internal_charset_name => $self->{option}->{internal_charset_name}, |
565 |
-parse_all => $self->{option}->{parse_all}, |
-parse_all => $self->{option}->{parse_all}, |
566 |
); |
); |
567 |
## Media type specified option/parameters |
## Media type specified option/parameters |