Dynamic debug configuration setting for datum
# In application's main use Carp::Datum qw(:all on); # turns Datum "on" or "off" DLOAD_CONFIG(-file => "./debug.cf", -config => "config string");
By using the \s-1DLOAD_CONFIG\s0 function in an application's main file, a debugging configuration can be dynamically loaded to define a particular level of debug/trace flags for a specific sub-part of code.
For instance, the tracing can be turned off when entering a routine of a designated package. That is very useful for concentrating the debugging onto the area that is presently developed and/or to filter some verbose parts of code (recursive function call), when they don't need to be monitored to fix the problem.
Before the obscure explaination of the grammar, here is an example of what can be specified by dynamic configuration:
/* * flags definition: macro that can be used in further configuration * settings */ flags common { all(yes); trace(yes): all; }
flags silent { all(yes); flow(no); trace(no); return(no); }
/* * default setting to use when there is no specific setting * for the area */ default common;
/* * specific settings for specific areas */ routine "context", "cleanup" { use silent; } routine "validate", "is_num", "is_greater" { use silent; }
file "Keyed_Tree.pm" { use silent; } file "Color.pm" { use silent; trace(yes): emergency, alert, critical; }
cluster "CGI::MxScreen" { use silent; assert(no); ensure(no); }
/* * aliasing to reduce the trace output line length */
alias "/home/dehaudtc/usr/perl/lib/site_perl/5.6.0/CGI" => "<PM>";
The only user interface is the \*(C`DLOAD_CONFIG\*(C' routine, which expects the following optional named parameters: Give an inlined configuration string that is appended to the one defined by \*(C`-file\*(C', if any. Specifies the configuration file to load to initialize the debugging and tracing flags to be used for this run.
The following main directives can appear at a nesting level of 0. The syntax unit known as \s-1BLOCK\s0 is a list of semi-colon terminated directives held within curly braces. Defines an alias to be used during tracing. The large_path string is replaced by the short_path in the logs. For instance, given: alias "/home/dehaudtc/lib/CGI" => "<CGI>"; then a trace for file \*(C`/home/dehaudtc/lib/CGI/Carp.pm\*(C' would be traced as coming from file \*(C`<CGI>/Carp.pm\*(C', which is nicer to read. The \s-1BLOCK\s0 defines the flags to be applied to all named clusters. A cluster is a set of classes under a given name scope. Cluster names are given by strings within double quotes, as in: cluster "CGI::MxScreen", "Net::MsgLink" { use silent; } This would apply to all classes under the \*(L"CGI::MxScreen\*(R" or \*(L"Net::MsgLink\*(R" name scopes, i.e. \*(C`CGI::MxScreen::Screen\*(C' would be affected. An exact match is attempted first, i.e. saying: cluster "CGI::MxScreen" { use verbose; } cluster "CGI::MxScreen::Screen" { use silent; } would apply the silent flags for \*(C`CGI::MxScreen::Screen\*(C' but the verbose ones to \*(C`CGI::MxScreen::Tie::Stdout\*(C'. Specifies the default flags that should apply. The default flags can be given by providing the name of flags, defined by the \*(C`flags\*(C' directive, or by expansing them in the following \s-1BLOCK\s0. For instance: default silent; would say that the flags to apply by default are the ones defined by an earlier \*(C`flags silent\*(C' directive. Not expanding defaults allows for quick switching by replacing silent with verbose. It is up to the module user to define what is meant by that though. The \s-1BLOCK\s0 defines the flags to be applied to all named files. File names are given by strings withing double quotes, as in: file "foo.pm", "bar.pm" { use silent; } This would apply to all files named \*(L"foo.pm\*(R" or \*(L"bar.pm\*(R", whatever their directory, i.e. it would apply to \*(C`/tmp/foo.pm\*(C' as well as \*(C`../bar.pm\*(C'. An exact match is attempted first, i.e. saying: file "foo.pm" { use verbose; } file "/tmp/foo.pm" { use silent; } would apply the silent flags for \*(C`/tmp/foo.pm\*(C' but the verbose ones to \*(C`./foo.pm\*(C'. Define a symbol name whose flags are described by the following \s-1BLOCK\s0. This name can then be used in \*(C`default\*(C' and \*(C`use\*(C' directives. For instance: flags common { all(yes); trace(yes): all; } would define the flags known as common, which can then be re-used, as in: flags other { use common; # reuses definiton of common flags panic(no); # but switches off panic, enabled in common } A flag symbol must be defined prior being used. The \s-1BLOCK\s0 defines the flags to be applied to all named routines. Routine names are given by strings within double quotes, as in: routine "foo", "bar" { use silent; } This would apply to all routines named \*(L"foo\*(R" or \*(L"bar\*(R", whatever their package, for instance \*(C`main::foo\*(C' and \*(C`x::bar\*(C'.
Debugging (and tracing) flags can be specified only within syntactic \s-1BLOCK\s0 items, as expected by main directives such as \*(C`flags\*(C' or \*(C`file\*(C'.
Following is a list of debugging flags that can be specified in the configuration. The order in which they are given in the file is significant: the yes/no settings are applied sequentially. Uses flags defined by a \*(C`flags\*(C' directive under name. It acts as a recursive macro expansion (since \*(C`use\*(C' can also be specified in \*(C`flags\*(C'). The symbol name must have been defined earlier.
Whether to print out the entering/exiting of routines. That implies the invocation of the \*(C`DFEATURE\*(C' function in the routines.
Whether to print out the returned when using the return \*(C`DVAL\*(C' and \*(C`DARY\*(C' routines.
Whether to print out traces specified by the \*(C`DTRACE\*(C' function. By default all trace levels are affected. It may be followed by a list of trace levels affected by the directive, as in. trace(yes): emergency, alert, critical; Trace levels are purely conventional, and have a strict one-to-one mapping with \*(C`DTM_TRC_\*(C' levels given at the \*(C`DTRACE\*(C' call. They are further described in \*(L"Trace Levels\*(R" below. There is one bit per defined trace level, contrary to the convention established by syslog(), for better tuning.
Whether to evaluate the pre-condition given by \*(C`DREQUIRE\*(C'. But see \*(L"Assertion Evaluation Note\*(R" below.
Whether to evaluate the assertion given by \*(C`DASSERT\*(C'. But see \*(L"Assertion Evaluation Note\*(R" below.
Whether to evaluate the post-condition given by \*(C`DENSURE\*(C'. But see \*(L"Assertion Evaluation Note\*(R" below.
Whether to panic upon an assertion failure (pre/post condition or assertion). If not enabled, a simple warning is issued, tracing the assertion failure.
Whether to print out a stack trace upon assertion failure.
Enable or disables all the previously described items.
When \*(C`Carp::Datum\*(C' is switched off, the assertions are always monitored, and any failure is fatal. This is because a failing assertion is a Bad Thing in production mode. Also, since \*(C`DREQUIRE\*(C' and friends are not C macros but routines, the assertion expression is evaluated anyway, so it might as well be tested.
Therefore, a directive like:
require(no);
will only turn off monitoring of pre-conditions in debugging mode (e.g. because the interface is not finalized, or the clients do not behave properly yet).
Here is the list of trace flags that can be specified by the configuration:
Configuration DTRACE flag ------------- ------------- all TRC_ALL emergency TRC_EMERGENCY alert TRC_ALERT critical TRC_CRITICAL error TRC_ERROR warning TRC_WARNING notice TRC_NOTICE info TRC_INFO debug TRC_DEBUG
A user could say something like:
trace(no): all; trace(yes): emergency, alert, critical, error;
Since flags are applied in sequence, the first directive turns all tracing flags to off, the second enables only the listed ones.
Some things are not fully documented.
Christophe Dehaudt and Raphael Manfredi are the original authors.
Send bug reports, hints, tips, suggestions to Dave Hoover at <[email protected]>.
Log::Agent\|(3).