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 |
} |
} |
307 |
} |
} |
308 |
} |
} |
309 |
return 1 if $l{$$i->{name} . ':' . $$i->{ns}}; |
return 1 if $l{$$i->{name} . ':' . $$i->{ns}}; |
310 |
|
} elsif ($by eq 'ns') { |
311 |
|
return 1 if $list->{ $$i->{ns} }; |
312 |
} |
} |
313 |
0; |
0; |
314 |
} |
} |
433 |
} |
} |
434 |
my $nsuri = $self->{ns}->{default_phuri}; |
my $nsuri = $self->{ns}->{default_phuri}; |
435 |
no strict 'refs'; |
no strict 'refs'; |
436 |
if ($option->{ns}) { |
if ($value_option->{ns}) { |
437 |
|
$nsuri = $value_option->{ns}; |
438 |
|
} elsif ($option->{ns}) { |
439 |
$nsuri = $option->{ns}; |
$nsuri = $option->{ns}; |
440 |
} elsif ($name =~ s/^([Xx]-[A-Za-z]+|[A-Za-z]+)-//) { |
} elsif ($name =~ s/^([Xx]-[A-Za-z]+|[A-Za-z]+)-//) { |
441 |
my $oprefix = $1; |
my $oprefix = $1; |
473 |
=cut |
=cut |
474 |
|
|
475 |
sub _replace_hash_shift ($\%$\%) { |
sub _replace_hash_shift ($\%$\%) { |
476 |
shift; my $r = shift; my $n = $_[0]->{name}; |
shift; my $r = shift; my $n = $_[0]->{name} . ':' . $_[0]->{ns}; |
477 |
if ($$r{$n}) { |
if ($$r{$n}) { |
478 |
my $d = $$r{$n}; |
my $d = $$r{$n}; |
479 |
delete $$r{$n}; |
delete $$r{$n}; |