213 |
my ($s,undef,$value) = $self->_value_to_arrayitem |
my ($s,undef,$value) = $self->_value_to_arrayitem |
214 |
($name => $body, $self->{option}); |
($name => $body, $self->{option}); |
215 |
push @{$self->{value}}, $value if $s; |
push @{$self->{value}}, $value if $s; |
216 |
|
} elsif (length $field) { |
217 |
|
my ($s,undef,$value) = $self->_value_to_arrayitem |
218 |
|
('x-unknown' => $field, $self->{option}); |
219 |
|
push @{$self->{value}}, $value if $s; |
220 |
} |
} |
221 |
} |
} |
222 |
$self; |
$self; |
264 |
my ($s,undef,$value) = $self->_value_to_arrayitem |
my ($s,undef,$value) = $self->_value_to_arrayitem |
265 |
($name => $body, $self->{option}); |
($name => $body, $self->{option}); |
266 |
push @{$self->{value}}, $value if $s; |
push @{$self->{value}}, $value if $s; |
267 |
|
} elsif (length $field) { |
268 |
|
my ($s,undef,$value) = $self->_value_to_arrayitem |
269 |
|
('x-unknown' => $field, $self->{option}); |
270 |
|
push @{$self->{value}}, $value if $s; |
271 |
} |
} |
272 |
last if $#$header < 0; |
last if $#$header < 0; |
273 |
} |
} |