Branch Coverage

blib/lib/Regexp/Common/time.pm
Criterion Covered Total %
branch 51 68 75.0


line true false branch
124 226 791 if ($pattern eq 'ymd') { }
214 577 elsif ($pattern eq 'y4md') { }
228 349 elsif ($pattern eq 'y2md') { }
233 116 elsif ($pattern eq 'y4m2d2' or $pattern eq 'YMD') { }
116 0 elsif ($pattern eq 'y2m2d2') { }
164 234 1006 if ($pattern eq 'mdy') { }
212 794 elsif ($pattern eq 'mdy4') { }
208 586 elsif ($pattern eq 'mdy2') { }
392 194 elsif ($pattern eq 'm2d2y4' or $pattern eq 'MDY') { }
194 0 elsif ($pattern eq 'm2d2y2') { }
204 218 768 if ($pattern eq 'dmy') { }
208 560 elsif ($pattern eq 'dmy4') { }
208 352 elsif ($pattern eq 'dmy2') { }
228 124 elsif ($pattern eq 'd2m2y4' or $pattern eq 'DMY') { }
124 0 elsif ($pattern eq 'd2m2y2') { }
341 0 636 unless exists $$flags_hr{-'pat'}
355 2 634 if ($pattern =~ /(?
409 0 689 unless exists $$flags_hr{-'pat'}
418 3 686 if ($pattern =~ /(?
451 10 676 unless $solo
482 4660 0 $can_posix ? :
483 0 4660 unless defined $current_locale
486 4652 8 if defined $latest_setup_locale and $latest_setup_locale eq $current_locale
498 8 0 if ($can_locale)
517 0 8 if (not $can_locale or $@)
557 0 136 unless $strftime{$1}
574 8 0 if ($can_locale)
595 0 8 if (not $can_locale or $@)
609 8 14 if (not $english_only and $can_locale)
630 0 8 if ($english_only or not $can_locale or $@)
643 8 0 if ($can_locale)
659 0 8 if (not $can_locale or $@)
673 8 0 if (not $english_only and $can_locale)
689 0 8 if ($english_only or not $can_locale or $@)