line |
true |
false |
branch |
40
|
1 |
0 |
if (do {
my $u = 'x';
utf8::upgrade($u);
my $e = &Scalar::Util::dualvar(0, $u);
utf8::is_utf8($e)
}) { } |
45
|
0 |
1 |
unless eval qq[\n#line 46 "/.cpan/build/I18N-Langinfo-Wide-8-09m9hb/blib/lib/POSIX/Wide/ERRNO.pm"\n sub FETCH {\n return Scalar::Util::dualvar\n (\$!, I18N::Langinfo::Wide::to_wide("\$!"));\n }\n 1;\n] |
55
|
0 |
0 |
unless eval qq[\n#line 56 "/.cpan/build/I18N-Langinfo-Wide-8-09m9hb/blib/lib/POSIX/Wide/ERRNO.pm"\n sub FETCH {\n my \$e = Scalar::Util::dualvar\n (\$!, I18N::Langinfo::Wide::to_wide("\$!"));\n Encode::_utf8_on(\$e);\n return \$e;\n }\n 1;\n] |