Subclassing
To subclass, write a package like this:
package MyComplexType; use Class::Std::Fast::Storable constructor => 'none'; use base qw(SOAP::WSDL::XSD::Typelib::ComplexType); # we only need the :get attribute qualifier. # set and init_arg are automatically created by # SOAP::WSDL::XSD::Typelib::ComplexType my %first_attr_of :ATTR(:get<first_attr> :default<()>); my %second_attr_of :ATTR(:get<second_attr> :default<()>); my %third_attr_of :ATTR(:get<third_attr> :default<()>); # the order of elements in a complexType my @elements_from = qw(first_attr second_attr third_attr); # references to the private hashes my %attribute_of = ( first_attr => \%first_attr_of, second_attr => \%second_attr_of, third_attr => \%third_attr_of, ); # classes_of: Classes the child elements should be of my %classes_of = ( first_attr => 'My::FirstElement', second_attr => 'My::SecondElement', third_attr => 'My::ThirdElement', ); # call _factory __PACKAGE__->_factory( \@elements_from, \%attributes_of, \%classes_of, ); 1;
When subclassing, the following methods are created in the subclass:
new
Constructor. For your convenience, new will accept data for the object's properties in the following forms:
hash refs 1) of scalars 2) of list refs 3) of hash refs 4) of objects 5) mixed stuff of all of the above
new() will set the data via the set_FOO methods to the object's element properties.
Data passed to new must comply to the object's structure or new() will complain. Objects passed must be of the expected type, or new() will complain, too.
The special key xmlattr may be used to pass XML attributes. This key is chosen, because ``xmlattr'' cannot legally be used as XML name (it starts with ``xml''). Passing a hash ref structure as value to ``xmlattr'' has the same effect as passing the same structure to a call to "$obj-"attr()>
Examples:
my $obj = MyClass->new({ MyName => $value }); my $obj = MyClass->new({ MyName => { DeepName => $value, }, MySecondName => $value, }); my $obj = MyClass->new({ MyName => [ { DeepName => $value }, { DeepName => $other_value }, ], MySecondName => $object, MyThirdName => [ $object1, $object2 ], });
my $obj = MyClass->new({
xmlattr => { name => 'foo' },
MyName => {
DeepName => $value,
},
MySecondName => $value,
});
In case your building on Class::Std, please note the following limitations:
The new() method from Class::Std will be overridden, so you should not rely on it's behaviour.
Your START and BUILD methods are called, but the class' inheritance tree is not traversed.
set_FOO
A mutator method for every element property.For your convenience, the set_FOO methods will accept all kind of data you can think of (and all combinations of them) as input - with the exception of GLOBS and filehandles.
This means you may set element properties by passing
a) objects b) scalars c) list refs d) hash refs e) mixed stuff of all of the above
Examples are similar to the examples provided for new() above.
Note that you cannot delete a property by setting it to undef - this sets the property to an empty property object (with value undef).
To delete a property, say:
$obj->set_FOO();
attr
Returns / sets the attribute object associated with the object. XML Attributes are modeled as attribute objects - their classes are usually private (i.e. part of the associated class' file, not in a separate file named after the attribute class).Note that attribute support is still experimental.
as_bool
Returns the boolean value of the complexType (always true).as_hash_ref
Returns a hash ref representation of the complexType objectAttributes are included under the special key ``xmlattr'' (if any).
The inclusion of attributes can be suppressed by calling
$obj->as_has_ref(1);
or even globally by setting
$SOAP::WSDL::XSD::Typelib::ComplexType::AS_HASH_REF_WITHOUT_ATTRIBUTES = 1;
Note that using the $AS_HASH_REF_WITHOUT_ATTRIBUTES global variable is strongly discouraged. Use of this variable is deprecated and will be removed as of version 2.1
as_hash_ref can be used for deep cloning. The following statement creates a deep clone of a SOAP::WSDL::ComplexType-based object
my $clone = ref($obj)->new($obj->as_hash_ref());
serialize_attr
Serialize a complexType's attributesserialize
Serialize a ComplexType object to XML. Exported via symbol table into derived classes.Bugs and limitations
-
Incomplete API
Not all variants of XML Schema ComplexType definitions are supported yet.
Variants known to work are:
sequence all complexContent containing sequence/all definitions
-
Thread safety
SOAP::WSDL::XSD::Typelib::Builtin::ComplexType uses Class::Std::Fast::Storable which uses Class::Std. Class::Std is not thread safe, so SOAP::WSDL::XSD::Typelib::Builtin::ComplexType is neither.
-
XML Schema facets
No facets are implemented yet.
LICENSE AND COPYRIGHT
Copyright 2007 Martin Kutter.This file is part of SOAP-WSDL. You may distribute/modify it under the same terms as perl itself
AUTHOR
Martin Kutter <martin.kutter fen-net.de>REPOSITORY INFORMATION
$Rev: 851 $ $LastChangedBy: kutterma $ $Id: ComplexType.pm 851 2009-05-15 22:45:18Z kutterma $ $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm $