std/DEBUG.pmc at master · aghast/std · GitHub

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
26
27
28
29
30
31
32
33
34
35
36
37
38
# DEBUG.pmc
#
# Copyright 2008-2010, Larry Wall
#
# You may copy this software under the terms of the Artistic License,
#     version 2.0 or later.

package DEBUG;
our @EXPORTS = qw(
        autolexer
        symtab
        fixed_length
        fates
        longest_token_pattern_generation
        EXPR
        matchers
        trace_call
        cursors
        try_processing
        mixins
        callm_show_subnames
        use_color
);
use constant {
    autolexer => 1,
    symtab => 2,
    fixed_length => 4,
    fates => 8,
    longest_token_pattern_generation => 16,
    EXPR => 32,
    matchers => 64,
    trace_call=> 128,
    cursors => 256,
    try_processing => 1024,
    mixins => 2048,
    callm_show_subnames => 16384,
    use_color => 32768
};