Branch Coverage

lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm
Criterion Covered Total %
branch 75 84 89.2


line true false branch
53 0 16 if exists $STORABLE_METHODS{$_}
56 1 15 unless my $class = ref $self || $self
65 12 3 if $caller[3] ne 'Class::Std::AUTOLOAD'
78 1 10 unless my $class = $_[0]->__get_attr_class
83 3 7 if ($_[1])
86 5 2 if exists $xml_attr_of{${$_[0];}}
91 7 3 unless $xml_attr_of{${$_[0];}}
107 4 17 if ($_[0]->isa('SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType')) { }
112 1 17 unless defined $$attributes_ref{$attribute}{${$_[0];}}
115 8 2 $_->isa('SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType') ? :
125 11 1 $value->isa('SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType') ? :
5 0 ref $value eq 'ARRAY' ? :
12 5 blessed $value ? :
133 3 18 if $_[1] or $AS_HASH_REF_WITHOUT_ATTRIBUTES
136 5 13 if (exists $xml_attr_of{${$_[0];}})
156 1 64 unless my $type = $CLASSES_OF{$class}{$name}
161 1 63 unless Class::Load::is_class_loaded($type) or eval { do { Class::Load::load_class($type) } }
209 1 30 unless ($#_)
214 7 1 ref $_ eq $type ? :
0 8 ref $_ eq 'HASH' ? :
8 6 ref $_ ? :
226 0 7 $is_list ? :
3 1 blessed($_[1]) && $_[1]->isa($type) ? :
2 4 $is_ref eq 'HASH' ? :
7 6 $is_ref eq 'ARRAY' ? :
17 0 defined $_[1] ? :
13 17 $is_ref ? :
242 1 11 unless defined $_[1]
247 2 10 unless (exists $$attribute_ref{${$_[0];}})
252 2 8 unless (ref $$attribute_ref{${$_[0];}} eq 'ARRAY')
287 1 33 if (exists $_[1]{'xmlattr'})
307 1 2 $_ =~ / \A # beginning of string xmlns # xmlns /msx ? :
28 3 $ATTRIBUTES_OF{$class}{$_} ? :
333 29 4 if (defined $element) { }
334 17 12 unless ref $element eq 'ARRAY'
342 13 38 if ($_->isa('SOAP::WSDL::XSD::Typelib::Element')) { }
345 6 7 $target_namespace ne $_->get_xmlns ? :
353 38 0 if (not defined $ELEMENT_FORM_QUALIFIED_OF{$class} or $ELEMENT_FORM_QUALIFIED_OF{$class}) { }
362 0 38 if (exists $$option_ref{'xmlns_stack'} and scalar @{$$option_ref{'xmlns_stack'};} >= 2 and $$option_ref{'xmlns_stack'}[-1] ne $$option_ref{'xmlns_stack'}[-2]) { }
403 0 0 !defined($set_xmlns) ? :
416 25 5 if (not $class->isa('SOAP::WSDL::XSD::Typelib::AttributeSet'))
443 6 17 unless length ${$content_ref;}