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