This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl5db: remove leading ampersand.
[perl5.git] / ext / re / t / lexical_debug.pl
1 use re 'debug';
2
3 $_ = 'foo bar baz bop fip fop';
4
5 /foo/ and $count++;
6
7 {
8     no re 'debug';
9     /bar/ and $count++;
10     {
11         use re 'debug';
12         /baz/ and $count++;
13     }
14     /bop/ and $count++;
15 }
16
17 /fip/ and $count++;
18
19 no re 'debug';
20
21 /fop/ and $count++;
22
23 use re 'debug';
24 my $var='zoo|liz|zap';
25 /($var)/ or $count++;
26
27 print "Count=$count\n";
28
29