Lines Matching full:use
12 use strict;
14 use Test::More tests => 74;
18 use re '/i';
19 ok "Foo" =~ /foo/, 'use re "/i"';
20 ok "Foo" =~ /(??{'foo'})/, 'use re "/i" (??{})';
24 use re '/x';
25 ok "foo" =~ / foo /, 'use re "/x"';
26 ok "foo" =~ / (??{' foo '}) /, 'use re "/x" (??{})';
27 like " ", qr/[a b]/, 'use re "/x" [a b]';
32 use re '/xx';
33 ok "foo" =~ / foo /, 'use re "/xx"';
34 ok "foo" =~ / (??{' foo '}) /, 'use re "/xx" (??{})';
35 unlike " ", qr/[a b]/, 'use re "/xx" [a b] # Space in [] gobbled up';
40 use re '/s';
41 ok "\n" =~ /./, 'use re "/s"';
42 ok "\n" =~ /(??{'.'})/, 'use re "/s" (??{})';
46 use re '/m';
47 ok "\nfoo" =~ /^foo/, 'use re "/m"';
48 ok "\nfoo" =~ /(??{'^'})foo/, 'use re "/m" (??{})';
53 use re '/xism';
54 ok qr// =~ /(?=.*x)(?=.*i)(?=.*s)(?=.*m)/, 'use re "/multiple"';
60 use re '/x';
61 ok 'frelp' =~ /f r e l p/, "use re '/x' in a lexical scope"
64 "use re '/x' turns off when it drops out of scope";
67 use re '/i';
68 ok "Foo" =~ /foo/, 'use re "/i"';
71 use re '/u';
80 use locale;
81 use re '/u';
82 is qr//, '(?^u:)', 'use re "/u" with active locale';
87 use re '/d';
88 is qr//, '(?^:)', 'use re "/d" with locale in scope';
95 use re "/u";
101 use feature "unicode_strings";
102 use re '/d';
103 is qr//, '(?^:)', 'use re "/d" in Unicode scope';
110 use re '/u';
112 is qr//, '(?^u:)', 'use re "/u" is not tied to unicode_strings feature';
115 use re '/u';
116 is qr//, '(?^u:)', 'use re "/u"';
127 "warning with unknown regexp flags in use re '/flags'"
132 # use re '/flags' in combination with explicit flags
133 use re '/xi';
134 ok "A\n\n" =~ / a.$/sm, 'use re "/xi" in combination with explicit /sm';
136 use re '/u';
138 use re '/d';
144 use re '/ia';
145 is qr//, '(?^ai:)', 'use re "/ia"';
148 use re '/aai';
149 is qr//, '(?^aai:)', 'use re "/aai"';
153 # use re "/adul" combinations
160 eval "use re '/$i$j'";
163 is ($w, "", "no warning with use re \"/aa\", $w");
167 "warning with use re \"/$i$i\"";
174 "warning with eval \"use re \"/$j$i\"";
178 "warning with eval \"use re \"/$i$j\"";
185 eval "use re '/amaa'";
187 "warning with eval \"use re \"/amaa\"";
190 eval "use re '/xamaxx'";
192 "warning with eval \"use re \"/xamaxx\"";