1*6fb12b70Safresh1BEGIN { print "1..5\n"; } 2898184e3Ssthen 3898184e3Ssthenour $has_is_utf8; BEGIN { $has_is_utf8 = exists($utf8::{"is_utf8"}); } 4898184e3Ssthenour $has_dgrade; BEGIN { $has_dgrade = exists($utf8::{"downgrade"}); } 5*6fb12b70Safresh1our $has_swashnew; BEGIN { $has_swashnew = exists($utf8::{"SWASHNEW"}); } 6*6fb12b70Safresh1our $has_strval; BEGIN { $has_strval = exists($overload::{"StrVal"}); } 7*6fb12b70Safresh1our $has_sv2obj; BEGIN { $has_sv2obj = exists($B::{"svref_2object"}); } 8898184e3Ssthen 9898184e3Ssthenuse Carp; 10*6fb12b70Safresh1sub { sub { Carp::longmess("x") }->() }->(\1, "\x{2603}", qr/\x{2603}/); 11898184e3Ssthen 12898184e3Ssthenprint !(exists($utf8::{"is_utf8"}) xor $has_is_utf8) ? "" : "not ", "ok 1\n"; 13898184e3Ssthenprint !(exists($utf8::{"downgrade"}) xor $has_dgrade) ? "" : "not ", "ok 2\n"; 14*6fb12b70Safresh1print !(exists($utf8::{"SWASHNEW"}) xor $has_swashnew) ? "" : "not ", "ok 3\n"; 15*6fb12b70Safresh1print !(exists($overload::{"StrVal"}) xor $has_sv2obj) ? "" : "not ", "ok 4\n"; 16*6fb12b70Safresh1print !(exists($B::{"svref_2object"}) xor $has_sv2obj) ? "" : "not ", "ok 5\n"; 17898184e3Ssthen 18898184e3Ssthen1; 19