102 |
my ($tag_name, $tag_hash, $context, $parent_data) = @_; |
my ($tag_name, $tag_hash, $context, $parent_data) = @_; |
103 |
$state->{MethodList} = _tag( $tag_hash, 'string' ); |
$state->{MethodList} = _tag( $tag_hash, 'string' ); |
104 |
}, |
}, |
105 |
|
# |
106 |
|
# Fault |
107 |
|
# |
108 |
|
qr/^Fault$/ => sub { |
109 |
|
my ($tag_name, $tag_hash, $context, $parent_data) = @_; |
110 |
|
$state->{Fault} = { |
111 |
|
FaultCode => _tag( $tag_hash, 'FaultCode', '_content' ), |
112 |
|
FaultString => _tag( $tag_hash, 'FaultString', '_content' ), |
113 |
|
}; |
114 |
|
warn "FAULT: ", $state->{Fault}->{FaultCode}, " ", $state->{Fault}->{FaultString}, "\n"; |
115 |
|
} |
116 |
] |
] |
117 |
); |
); |
118 |
|
|