|
sub _type_name {
return 'Operation2Response' ;
}
sub _namespace_uri {
}
our @_attributes = ( qw/
ResponseAttributeA
ResponseAttributeB
/ );
sub _attributes {
my $self = shift ;
return ( $self ->SUPER::_attributes, @_attributes );
}
our %_attribute_type = (
ResponseAttributeA => 'string' ,
ResponseAttributeB => 'ComplexType2'
);
sub _attribute_type {
my ( $self , $attribute ) = @_ ;
if ( exists $_attribute_type { $attribute }) {
return $_attribute_type { $attribute };
}
return $self ->SUPER::_attribute_type( $attribute );
}
__PACKAGE__->mk_accessors(__PACKAGE__->_attributes);
1;
|