4 require Config; import Config;
5 if ($Config{extensions} !~ /\bList\/Util\b/) {
6 print "1..0 # Skip: List::Util was not built\n";
14 if (grep { /dualvar/ } @Scalar::Util::EXPORT_FAIL) {
20 use Scalar::Util qw(dualvar);
24 $var = dualvar 2.2,"string";
26 print "not " unless $var == 2.2;
29 print "not " unless $var eq "string";
36 print "not " unless $var == 3.2;
39 print "not " unless $var ne "string";
42 print "not " unless $var2 == 2.2;
45 print "not " unless $var2 eq "string";