134 |
sub _init_by_format ($$\%) { |
sub _init_by_format ($$\%) { |
135 |
my $self = shift; |
my $self = shift; |
136 |
my ($format, $option) = @_; |
my ($format, $option) = @_; |
|
return if $format eq $option->{format}; |
|
137 |
if ($format =~ /http/) { |
if ($format =~ /http/) { |
138 |
$option->{ns_default_phuri} = $self->{ns}->{phname2uri}->{'x-http'}; |
$option->{ns_default_phuri} = $self->{ns}->{phname2uri}->{'x-http'}; |
139 |
if ($format =~ /cgi/) { |
if ($format =~ /cgi/) { |
671 |
my %params = @_; |
my %params = @_; |
672 |
my %option = %{$self->{option}}; |
my %option = %{$self->{option}}; |
673 |
$option{format} = $params{-format} if $params{-format}; |
$option{format} = $params{-format} if $params{-format}; |
674 |
$self->_init_by_format ($option{format}, \%option); |
$self->_init_by_format ($option{format}, \%option) |
675 |
|
if $self->{option}->{format} ne $option{format}; |
676 |
for (grep {/^-/} keys %params) {$option{substr ($_, 1)} = $params{$_}} |
for (grep {/^-/} keys %params) {$option{substr ($_, 1)} = $params{$_}} |
677 |
## Fill required fields |
## Fill required fields |
678 |
my %exist; |
my %exist; |