103 |
$state->{_trigger} = 'GetParameterNamesResponse'; |
$state->{_trigger} = 'GetParameterNamesResponse'; |
104 |
}; |
}; |
105 |
|
|
106 |
|
=head2 GetParameterAttributesResponse |
107 |
|
|
108 |
|
=cut |
109 |
|
|
110 |
|
push @$rules, |
111 |
|
'GetParameterAttributesResponse' => sub { |
112 |
|
my ($tag_name, $tag_hash, $context, $parent_data) = @_; |
113 |
|
warn dump( $tag_name, $tag_hash, $context ); |
114 |
|
$state->{_trigger} = 'GetParameterAttributesResponse'; |
115 |
|
}; |
116 |
|
|
117 |
=head2 Fault |
=head2 Fault |
118 |
|
|
119 |
=cut |
=cut |
158 |
rules => $rules, |
rules => $rules, |
159 |
); |
); |
160 |
|
|
161 |
warn "## created $parser\n"; |
# warn "## created $parser\n"; |
162 |
|
|
163 |
$parser->parsestring( $xml ); |
$parser->parsestring( $xml ); |
164 |
|
|
168 |
warn "### call_trigger( $trigger )\n"; |
warn "### call_trigger( $trigger )\n"; |
169 |
$self->call_trigger( $trigger, $state ); |
$self->call_trigger( $trigger, $state ); |
170 |
} |
} |
171 |
# XXX don't propagate _trigger (useful?) |
# XXX propagate _trigger (useful for symlinks) |
172 |
delete( $state->{_trigger} ); |
|
173 |
return $state; |
return $state; |
174 |
} |
} |
175 |
|
|