Lines Matching refs:debug
556 @debug = (); # stack for nesting debug state
584 # do not use register() for debug because register generates extra
585 # debug information
587 xmlHandlers::registerStartCallback('debug', \&debugStart);
588 xmlHandlers::registerEndCallback('debug', \&debugEnd);
622 if ($main::debug) {
775 print "event = $id\n" if $main::debug;
830 # print "include = $id\n" if $main::debug;
844 print "token = $id\n" if $main::debug;
869 print "msg_list = $id\n" if $main::debug;
896 print "note_list = $id\n" if $main::debug;
915 print "service $name = $id\n" if $main::debug;
937 # <debug set="on"> or <debug set="off"> or <debug>
938 # if the set attribute is omitted, debug state is toggled
940 # debugStart / debugEnd are used to insure debug state is
941 # scoped to the block between <debug> and </debug>
946 push (@debug, $main::debug);
947 my $debug = $main::debug;
952 $main::debug = ($state eq 'on') ? 1 : 0;
955 $main::debug = !$debug;
957 if ($debug != $main::debug) {
958 print 'debug is ', $main::debug ? 'on' : 'off', "\n";
965 my $debug = $main::debug;
966 $main::debug = pop (@debug);
968 if ($debug != $main::debug) {
969 print 'debug is ', $main::debug ? 'on' : 'off', "\n";