| blib/lib/Win32/Locale.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 1 | 8 | 12.5 |
| line | true | false | branch |
|---|---|---|---|
| 181 | 1 | 0 | unless defined do { local $SIG{'__DIE__'} = ''; eval qq[\n use Win32::TieRegistry ();\n my \$i18n = Win32::TieRegistry->new(\n "HKEY_CURRENT_USER/Control Panel/International",\n { Delimiter => "/" }\n );\n #print "no key!" unless \$i18n;\n \$locale = \$i18n->GetValue("Locale") if \$i18n;\n undef \$i18n;\n ]; $locale } |
| 197 | 0 | 0 | unless $locale =~ /^[0-9a-fA-F]+$/s |
| 203 | 0 | 0 | unless $lang |
| 210 | 0 | 0 | unless $lang and $lang =~ /^[a-z]{2}(?:-[a-z]{2})?$/s |