Lines Matching full:use
11 # Can't require test.pl, as we're testing the use/require mechanism here.
72 eval "use 5"; # implicit semicolon
75 eval "use 5;";
78 eval "{use 5}"; # [perl #70884]
81 eval "{use 5 }"; # [perl #70884]
86 eval q{ use v5.5.630; };
89 eval q{ use 10.0.2; };
92 eval "use 5.000"; # implicit semicolon
95 eval "use 5.000;";
98 eval "use 6.000;";
107 eval "use 5.6;";
110 eval "use 5.8;";
113 eval "use 5.9;";
116 eval "use 5.10;";
119 eval "use 5.11;";
122 eval sprintf "use %.6f;", $];
126 eval sprintf "use %.6f;", $] - 0.000001;
129 eval sprintf("use %.6f;", $] + 1);
132 eval sprintf "use %.6f;", $] + 0.00001;
135 # check that "use 5.11.0" (and higher) loads strictures
136 eval 'use 5.11.0; ${"foo"} = "bar";';
137 like ($@, qr/\QCan't use string ("foo") as a SCALAR ref while "strict refs" in use\E/);
139 eval 'use 5.11.0; no strict "refs"; ${"foo"} = "bar";';
142 eval '{use 5.11.0;} ${"foo"} = "bar";';
144 eval 'no strict; use 5.012; ${"foo"} = "bar"';
146 eval 'use strict; use 5.01; ${"foo"} = "bar"';
147 like $@, qr/^Can't use string/,
148 'explicit use strict overrides later use 5.01';
149 eval 'use strict "subs"; use 5.012; ${"foo"} = "bar"';
150 like $@, qr/^Can't use string/,
151 'explicit use strict "subs" does not stop ver decl from enabling refs';
152 eval 'no strict "subs"; use 5.012; ${"foo"} = "bar"';
154 eval 'no strict "subs"; use 5.012; $nonexistent_pack_var';
156 eval 'no strict "refs"; use 5.012; fancy_bareword';
158 eval 'no strict "refs"; use 5.012; $nonexistent_pack_var';
160 eval 'no strict "vars"; use 5.012; ${"foo"} = "bar"';
162 eval 'no strict "vars"; use 5.012; ursine_word';
165 # check that "use 5.39.0" and higher imports builtins
169 $result = eval 'use 5.39.0; my $t = true; $t eq "1"';
170 is ($@, "", 'builtin funcs available after use 5.39.0');
177 $result = eval 'use builtin "true"; use v5.36; my $t = true; $t eq "1"';
178 is ($@, "", 'builtin funcs not removed after use v5.36');
182 { use test_use } # check that subparse saves pending tokens
184 use test_use { () };
185 is ref $test_use::got[0], 'HASH', 'use parses arguments in term lexing cx';
189 eval "use test_use 0.9";
192 eval "use test_use 1.0";
195 eval "use test_use 1.01";
198 eval "use test_use 0.9 qw(fred)";
203 eval "use test_use 1.0 qw(joe)";
208 eval "use test_use 1.01 qw(freda)";
215 eval "use test_use v33.55";
218 eval "use test_use v100.105";
221 eval "use test_use 33.55";
224 eval "use test_use 100.105";
228 eval "use test_use v33.55";
231 eval "use test_use v100.105";
234 eval "use test_use 33.55";
237 eval "use test_use 100.105";
241 eval "use test_use v33.55";
244 eval "use test_use v100.105";
247 eval "use test_use 33.55";
250 eval "use test_use 100.105";
259 eval "use test_use_14937 3";
290 eval "use $version";
295 "use $version");
298 is ($@, '', "use $version");