ext/re/t/lexical_debug.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

use re 'debug';

$_ = 'foo bar baz bop fip fop';

/foo/ and $count++;

{
    no re 'debug';
    /bar/ and $count++;
    {
        use re 'debug';
        /baz/ and $count++;
    }
    /bop/ and $count++;
}

/fip/ and $count++;

no re 'debug';

/fop/ and $count++;

print "Count=$count\n";