Branch Coverage

blib/lib/Biblio/ILL/ISO/HistoryReport.pm
Criterion Covered Total %
branch 22 106 20.7


line true false branch
136 2 0 if (@_)
141 0 2 unless $dolt
142 0 2 if (ref $dolt eq 'Biblio::ILL::ISO::ISODate') { }
149 0 2 unless $mrsvc
150 0 2 if (ref $mrsvc eq 'Biblio::ILL::ISO::MostRecentService') { }
157 0 2 unless $date_of_mrsvc
158 0 2 if (ref $date_of_mrsvc eq 'Biblio::ILL::ISO::ISODate') { }
165 0 2 unless $init_of_mrsvc
166 0 2 unless ref $init_of_mrsvc eq 'Biblio::ILL::ISO::SystemId'
169 2 0 if ($date_req)
170 0 2 if (ref $date_req eq 'Biblio::ILL::ISO::ISODate') { }
178 2 0 if ($author)
179 0 2 if (ref $author eq 'Biblio::ILL::ISO::ILLString') { }
186 2 0 if ($title)
187 0 2 if (ref $title eq 'Biblio::ILL::ISO::ILLString') { }
194 0 2 if ($author_of_article)
195 0 0 if (ref $author_of_article eq 'Biblio::ILL::ISO::ILLString') { }
202 0 2 if ($title_of_article)
203 0 0 if (ref $title_of_article eq 'Biblio::ILL::ISO::ILLString') { }
210 2 0 if ($sst)
211 0 2 if (ref $sst eq 'Biblio::ILL::ISO::ShippedServiceType') { }
219 0 2 unless ref $trans_res eq 'Biblio::ILL::ISO::TransactionResults'
222 2 0 if ($mrsvc_note)
223 0 2 if (ref $mrsvc_note eq 'Biblio::ILL::ISO::ILLString') { }
268 0 0 unless $dolt
269 0 0 if (ref $dolt eq 'Biblio::ILL::ISO::ISODate') { }
276 0 0 unless $mrsvc
277 0 0 if (ref $mrsvc eq 'Biblio::ILL::ISO::MostRecentService') { }
284 0 0 unless $date_of_mrsvc
285 0 0 if (ref $date_of_mrsvc eq 'Biblio::ILL::ISO::ISODate') { }
292 0 0 unless $init_of_mrsvc
293 0 0 unless ref $init_of_mrsvc eq 'Biblio::ILL::ISO::SystemId'
296 0 0 if ($date_req)
297 0 0 if (ref $date_req eq 'Biblio::ILL::ISO::ISODate') { }
305 0 0 if ($author)
306 0 0 if (ref $author eq 'Biblio::ILL::ISO::ILLString') { }
313 0 0 if ($title)
314 0 0 if (ref $title eq 'Biblio::ILL::ISO::ILLString') { }
321 0 0 if ($author_of_article)
322 0 0 if (ref $author_of_article eq 'Biblio::ILL::ISO::ILLString') { }
329 0 0 if ($title_of_article)
330 0 0 if (ref $title_of_article eq 'Biblio::ILL::ISO::ILLString') { }
337 0 0 if ($sst)
338 0 0 if (ref $sst eq 'Biblio::ILL::ISO::ShippedServiceType') { }
346 0 0 unless ref $trans_res eq 'Biblio::ILL::ISO::TransactionResults'
349 0 0 if ($mrsvc_note)
350 0 0 if (ref $mrsvc_note eq 'Biblio::ILL::ISO::ILLString') { }
378 0 0 if ($k =~ /^date-requested$/ or $k =~ /^date-of-last-transition$/ or $k =~ /^date-of-most-recent-service$/) { }
0 0 elsif ($k =~ /^author$/ or $k =~ /^title$/ or $k =~ /^author-of-article$/ or $k =~ /^title-of-article$/ or $k =~ /^most-recent-service-note$/) { }
0 0 elsif ($k =~ /^most-recent-service$/) { }
0 0 elsif ($k =~ /^initiator-of-most-recent-service$/) { }
0 0 elsif ($k =~ /^shipped-service-type$/) { }
0 0 elsif ($k =~ /^transaction-results$/) { }