Branch Coverage

blib/lib/IOC/Config/XML/SAX/Handler.pm
Criterion Covered Total %
branch 75 82 91.4


line true false branch
38 27 95 if ($type eq 'registry') { }
94 1 elsif (defined $$self{'registry'}) { }
42 26 68 if ($type eq 'container') { }
35 33 elsif ($type eq 'service') { }
16 17 elsif ($type eq 'class') { }
11 6 elsif ($type eq 'parameter') { }
4 2 elsif ($type eq 'setter') { }
66 9 74 if ($name eq 'container') { }
32 42 elsif ($name eq 'service') { }
78 132 25 if $data =~ /^\s+$/
79 24 1 if $$self{'current_service'}
91 40 111 unless exists $$el{'Attributes'}{'{}' . $key}
98 2 6 if $@
106 0 27 if defined $$self{'registry'}
116 1 25 unless $self->_getValue($el, 'name')
119 24 1 if ($$self{'current'}->isa('IOC::Registry')) { }
1 0 elsif ($$self{'current'}->isa('IOC::Container')) { }
130 0 9 unless $$self{'current'}
132 1 8 if $$self{'current'}->isa('IOC::Container') and not $$self{'current'}->isRootContainer
141 1 34 if $$self{'current'}->isa('IOC::Registry')
143 2 32 unless $self->_getValue($el, 'name')
154 0 16 unless $$self{'current_service'}
164 0 11 unless $$self{'current_service'} and ($$self{'current_service'}{'type'} eq 'ConstructorInjection' and exists $$self{'current_service'}{'class'})
168 7 4 unless (exists $$self{'current_service'}{'parameters'})
178 0 4 unless $$self{'current_service'} and ($$self{'current_service'}{'type'} eq 'SetterInjection' and exists $$self{'current_service'}{'class'})
182 3 1 unless (exists $$self{'current_service'}{'setters'})
192 9 15 if ($$self{'current_service'}{'parameters'})
195 4 20 if ($$self{'current_service'}{'setters'}) { }
207 3 29 if $$service_desc{'prototype'} and lc $$service_desc{'prototype'} ne 'false'
213 31 1 if ($constructor) { }
227 1 4 unless $$service_desc{'data'}
239 0 1 unless $$service_desc{'data'}
250 2 5 unless exists $$service_desc{'data'}
259 3 8 unless exists $$service_desc{'class'} and ($$service_desc{'class'}{'name'} and $$service_desc{'class'}{'constructor'})
264 7 4 if ($$_{'type'}) { }
265 3 4 if ($$_{'type'} eq 'component') { }
3 1 elsif ($$_{'type'} eq 'perl') { }
276 1 3 unless defined $$_{'data'}
280 7 1 if exists $$service_desc{'parameters'}
294 3 4 unless exists $$service_desc{'class'} and ($$service_desc{'class'}{'name'} and $$service_desc{'class'}{'constructor'})
300 3 1 if exists $$service_desc{'setters'}