Lines Matching refs:var
32 $var = dualvar 2.2,"string";
34 print "not " unless $var == 2.2;
37 print "not " unless $var eq "string";
40 $var2 = $var;
42 $var++;
44 print "not " unless $var == 3.2;
47 print "not " unless $var ne "string";
58 $var = dualvar $numstr, "";
59 print "not " unless $var == $numstr;
62 $var = dualvar 1<<31, "";
63 print "not " unless $var == 1<<31;
65 print "not " unless $var > 0;
69 $var = dualvar $tied, "ok";
70 print "not " unless $var == 7.5;
72 print "not " unless $var eq "ok";