308 |
} |
} |
309 |
return 1 if $l{$$i->{name} . ':' . $$i->{ns}}; |
return 1 if $l{$$i->{name} . ':' . $$i->{ns}}; |
310 |
} elsif ($by eq 'ns') { |
} elsif ($by eq 'ns') { |
311 |
my %o = %$option; $o{parse} = 0; |
return 1 if $list->{ $$i->{ns} }; |
|
my %l; |
|
|
for (keys %$list) { |
|
|
my ($s, undef, $v) = $self->_value_to_arrayitem ($_, '', %o); |
|
|
if ($s) { |
|
|
$l{ $v->{ns} } = 1; |
|
|
} else { |
|
|
$l{ $self->{ns}->{default_phuri} } = 1; |
|
|
} |
|
|
} |
|
|
return 1 if $l{ $$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; |