Name

Description

use OpenXPKI::Debug;

It is not necessary to remove this line if you don't debug your code. The activation of the debugging statements is handled by some static variables of the debug module. If you want to debug your code then you have to do the following.

1. Include some debug statements into your module code:

my $variable = "some critical content"; ##! 2: $variable

A debug statement must be started with "\s*##!". The next number specifies the debug level. It has to be a power of 2. Higher levels mean more messages. If the message is important then you should choose a small number bigger than zero. The colon is a separator. After the colon the code follows which will be executed.

If later on you set debug level 1 for this module then the above message will not be displayed. If you set level 4 the message will be displayed.

2. Use your module:

Add the following lines to the startup script:

    use OpenXPKI::Debug;
    $OpenXPKI::Debug::BITMASK{'MyM.*'} = 0b1010; # BITMASK: show level 2 and 8 messages
    # $OpenXPKI::Debug::LEVEL{'MyM.*'} = 4;      # LEVEL: show messages up to level 4

    require MyModule; ## or require a module which use my Module
    

In practice you will only have to add the BITMASK or LEVEL line because "require" is used to load the server which does the rest for you.

Please remember to not implement a "use" statement before you run "require" after you specified the debug level. This debug module manipulates the code parsing of Perl!

Functions

    7  => 111  (7)
    8  => 1111 (15)
    12 => 1111 (15)

See also