35 |
-field_format_pattern => '%s: %s', |
-field_format_pattern => '%s: %s', |
36 |
-field_name_case_sensible => 0, |
-field_name_case_sensible => 0, |
37 |
-field_name_unsafe_rule => 'NON_ftext', |
-field_name_unsafe_rule => 'NON_ftext', |
38 |
-field_name_validation => 1, ## Method level option. |
-field_name_validation => 0, |
39 |
-field_sort => 0, |
-field_sort => 0, |
40 |
#-format => 'mail-rfc2822', |
#-format => 'mail-rfc2822', |
41 |
-header_default_charset => 'iso-2022-int-1', |
-header_default_charset => 'iso-2022-int-1', |
196 |
my $class = shift; |
my $class = shift; |
197 |
my $header = shift; |
my $header = shift; |
198 |
my $self = bless {}, $class; |
my $self = bless {}, $class; |
199 |
$self->_init (@_); ## BUG: don't check linebreak_strict |
$self->_init (@_); |
200 |
$header =~ s/\x0D?\x0A$REG{WSP}/\x20/gos if $self->{option}->{use_folding}; |
if ($self->{option}->{linebreak_strict}) { |
201 |
|
$header =~ s/\x0D\x0A$REG{WSP}/\x20/gos if $self->{option}->{use_folding}; |
202 |
|
} else { |
203 |
|
$header =~ s/\x0D?\x0A$REG{WSP}/\x20/gos if $self->{option}->{use_folding}; |
204 |
|
} |
205 |
for my $field (split /\x0D?\x0A/, $header) { |
for my $field (split /\x0D?\x0A/, $header) { |
206 |
if ($field =~ /$REG{M_fromline}/) { |
if ($field =~ /$REG{M_fromline}/) { |
207 |
my ($s,undef,$value) = $self->_value_to_arrayitem |
my ($s,undef,$value) = $self->_value_to_arrayitem |