56 |
# Name/Value tags must be case insnesitive |
# Name/Value tags must be case insnesitive |
57 |
my $value = (grep( /value/i, keys %$tag_hash ))[0]; |
my $value = (grep( /value/i, keys %$tag_hash ))[0]; |
58 |
$state->{Parameter}->{ _tag($tag_hash, 'Name', '_content') } = _tag($tag_hash, 'Value', '_content' ); |
$state->{Parameter}->{ _tag($tag_hash, 'Name', '_content') } = _tag($tag_hash, 'Value', '_content' ); |
59 |
|
$state->{_trigger} = 'ParameterValue'; |
60 |
}, |
}, |
61 |
|
|
62 |
]; |
]; |
152 |
$state = {}; |
$state = {}; |
153 |
$parser->parsestring( $xml ); |
$parser->parsestring( $xml ); |
154 |
if ( my $trigger = $state->{_trigger} ) { |
if ( my $trigger = $state->{_trigger} ) { |
155 |
__PACKAGE__->call_trigger( $trigger, $state ); |
warn "### call_trigger( $trigger )\n"; |
156 |
|
$self->call_trigger( $trigger, $state ); |
157 |
} |
} |
158 |
# XXX don't propagate _trigger (useful?) |
# XXX don't propagate _trigger (useful?) |
159 |
delete( $state->{_trigger} ); |
delete( $state->{_trigger} ); |