Lines Matching full:var
52 { our ($VAR, @VAR, %VAR);
55 open VAR, "<", "$^X.pm" or die "Can't open $^X.pm: $!";
57 open VAR, "<", $^X or die "Can't open $^X: $!";
59 sub VAR {}
60 format VAR =
63 is (DPeek ( $VAR), 'UNDEF', ' $VAR undef');
64 is (DPeek (\$VAR), '\UNDEF', '\$VAR undef');
65 $VAR = 1;
66 is (DPeek ($VAR), 'IV(1)', ' $VAR 1');
67 is (DPeek (\$VAR), '\IV(1)', '\$VAR 1');
68 $VAR = "";
69 is (DPeek ($VAR), 'PVIV(""\0)', ' $VAR ""');
70 is (DPeek (\$VAR), '\PVIV(""\0)', '\$VAR ""');
71 $VAR = "\xdf"; # \xdf works for both ASCII and EBCDIC
72 is (DPeek ($VAR), 'PVIV("\337"\0)', ' $VAR "\xdf"');
73 is (DPeek (\$VAR), '\PVIV("\337"\0)', '\$VAR "\xdf"');
76 $VAR = "a\x0a\x{20ac}";
77 is (DPeek ($VAR), 'PVIV("a\n\342\202\254"\0) [UTF8 "a\n\x{20ac}"]',
78 ' $VAR "a\x0a\x{20ac}"');
80 $VAR = sub { "VAR" };
81 is (DPeek ($VAR), '\CV(__ANON__)', ' $VAR sub { "VAR" }');
82 is (DPeek (\$VAR), '\\\CV(__ANON__)', '\$VAR sub { "VAR" }');
84 $VAR = eval qq{sub \x{30cd} { "VAR" } \\&\x{30cd}};
85 is (DPeek ($VAR), '\CV(\x{30cd})', ' $VAR sub \x{30cd} { "VAR" }');
86 is (DPeek (\$VAR), '\\\\CV(\x{30cd})', '\$VAR sub \x{30cd} { "VAR" }');
88 $VAR = 0;
90 is (DPeek (\&VAR), '\CV(VAR)', '\&VAR');
91 is (DPeek ( *VAR), 'GV()', ' *VAR');
93 is (DPeek (*VAR{GLOB}), '\GV()', ' *VAR{GLOB}');
94 like (DPeek (*VAR{SCALAR}), qr'\\PV(IV|MG)\(0\)',' *VAR{SCALAR}');
95 is (DPeek (*VAR{ARRAY}), '\AV()', ' *VAR{ARRAY}');
96 is (DPeek (*VAR{HASH}), '\HV()', ' *VAR{HASH}');
97 is (DPeek (*VAR{CODE}), '\CV(VAR)', ' *VAR{CODE}');
98 is (DPeek (*VAR{IO}), '\IO()', ' *VAR{IO}');
99 is (DPeek (*VAR{FORMAT}),$]<5.008?'SV_UNDEF':'\FM()',' *VAR{FORMAT}');