Branch Coverage

blib/lib/DateTime/Locale.pm
Criterion Covered Total %
branch 57 76 75.0


line true false branch
30 2 6 if (ref $_[0]) { }
44 2 7 if $id =~ /[\@=]/
49 0 7 if not delete $p{'replace'} and exists $DataForCode{$id}
52 7 0 unless exists $p{'native_language'}
57 19 9 if exists $p{"en_$p"}
58 7 21 if exists $p{"native_$p"}
71 7 0 if defined exists $p{'class'}
79 0 1 ref $_[0] ? :
83 0 1 if $code =~ /[\@=]/
97 0 5 ref $_[0] ? :
102 1 4 if $alias eq $code
112 1 3 if $seen{$copy}
139 2 0 wantarray ? :
145 1 0 wantarray ? :
151 0 0 wantarray ? :
211 10 1135 if exists $LoadCache{$code}
218 8 1127 if exists $DateTimeLanguageAliases{$code}
219 4 1131 if exists $POSIXAliases{$code}
221 4 1131 if exists $DateTime::Locale::Data::ISO639Aliases{$code}
223 1115 20 if (exists $DateTime::Locale::Data::Codes{$code})
227 4 16 if (exists $DateTime::Locale::Data::Names{$code})
232 1 15 if (exists $DateTime::Locale::Data::NativeNames{$code})
237 7 8 if (my $locale = $class->_registered_locale_for($code))
241 6 2 if (my $guessed = $class->_guess_code($code))
257 1 7 if ($codes{'script'})
262 1 0 if defined $codes{'territory'}
268 0 8 if ($codes{'variant'})
273 5 3 if ($codes{'territory'})
282 6 3 if exists $DateTime::Locale::Data::Codes{$code} or exists $DateTime::Locale::Data::Names{$code}
290 0 1126 unless my $data = DateTime::Locale::Data::locale_data($code)
302 2 13 if ($Class{$code})
307 5 8 if ($DataForCode{$code})
311 0 8 if ($NameToCode{$code})
316 0 8 if ($NativeNameToCode{$code})
340 0 7 unless ($real_class->can("new"))
343 0 0 if $@
352 1 6 if ($locale->can("cldr_version"))
355 1 0 if ($object_version ne $DateTime::Locale::Data::CLDRVersion)