src/perl6/DEBUG.pmc

   1 # DEBUG.pmc
   2 #
   3 # Copyright 2008-2010, Larry Wall
   4 #
   5 # You may copy this software under the terms of the Artistic License,
   6 #     version 2.0 or later.
   7
   8 package DEBUG;
   9 our @EXPORTS = qw(
  10         autolexer
  11         symtab
  12         fixed_length
  13         fates
  14         longest_token_pattern_generation
  15         EXPR
  16         matchers
  17         trace_call
  18         cursors
  19         try_processing
  20         mixins
  21         callm_show_subnames
  22         use_color
  23 );
  24 use constant {
  25     autolexer => 1,
  26     symtab => 2,
  27     fixed_length => 4,
  28     fates => 8,
  29     longest_token_pattern_generation => 16,
  30     EXPR => 32,
  31     matchers => 64,
  32     trace_call=> 128,
  33     cursors => 256,
  34     try_processing => 1024,
  35     mixins => 2048,
  36     callm_show_subnames => 16384,
  37     use_color => 32768
  38 };