Branch Coverage

blib/lib/App/RecordStream/DomainLanguage/Value.pm
Criterion Covered Total %
branch 35 76 46.0


line true false branch
46 352 1347 if ($type eq 'SCALAR')
48 138 214 if (&blessed($value) and $value->isa('App::RecordStream::DomainLanguage::Snippet'))
57 214 1347 if ($type eq 'SCALAR')
69 117 598 unless $this->{'POSSIBILITIES'}{$type}
102 0 0 if ($ct != 1)
165 75 314 if ($type eq 'AGGREGATOR') { }
0 314 elsif ($type eq 'DEAGGREGATOR') { }
0 314 elsif ($type eq 'CLUMPER') { }
55 259 elsif ($type eq 'VALUATION') { }
259 0 elsif ($type eq 'SCALAR') { }
195 1 54 if (ref $obj and ref $obj eq 'CODE')
200 54 0 if (&blessed($obj) and $obj->isa('App::RecordStream::DomainLanguage::Value'))
203 0 54 if (@val > 1)
207 1 53 if (@val == 1)
213 0 53 if (&blessed($obj) and $obj->isa('App::RecordStream::Aggregator::Aggregation'))
218 0 53 if (&blessed($obj) and $obj->isa('App::RecordStream::DomainLanguage::Valuation'))
230 75 0 if (&blessed($obj) and $obj->isa('App::RecordStream::DomainLanguage::Value'))
233 0 75 if (@agg > 1)
237 73 2 if (@agg == 1)
243 0 2 if (@scalar > 1)
247 0 2 if (@scalar == 1) { }
257 0 0 if (&blessed($obj) and $obj->isa('App::RecordStream::Aggregator::Aggregation'))
262 0 0 if (&blessed($obj) and $obj->isa('App::RecordStream::DomainLanguage::Valuation'))
275 0 0 if (&blessed($obj) and $obj->isa('App::RecordStream::DomainLanguage::Value'))
278 0 0 if (@deagg > 1)
282 0 0 if (@deagg == 1)
290 0 0 if (&blessed($obj) and $obj->isa('App::RecordStream::Deaggregator::Base'))
296 0 0 if (&blessed($obj))
308 0 0 if (&blessed($obj) and $obj->isa('App::RecordStream::DomainLanguage::Value'))
311 0 0 if (@clumper > 1)
315 0 0 if (@clumper == 1)
323 0 0 if (&blessed($obj) and $obj->isa('App::RecordStream::Clumper::Base'))
329 0 0 if (&blessed($obj))
341 54 205 if (&blessed($obj) and $obj->isa('App::RecordStream::DomainLanguage::Value'))
344 0 54 if (@scalar > 1)
348 0 54 if (@scalar == 1)
356 0 205 if (&blessed($obj) and $obj->isa('App::RecordStream::Aggregator::Aggregation'))
361 0 205 if (&blessed($obj) and $obj->isa('App::RecordStream::DomainLanguage::Valuation'))