Message to display
-=item $handle:
+=item $handle:
File handle to display to (Default: STDERR)
-=item $nolinefeed:
+=item $nolinefeed:
If defined no linefeed is displayed at the end of the message.
return
unless $debug;
-
+
return
if $debug == 0;
-
+
$level ||= 1;
$msg ||= '';
if (($handle and -t $handle) or (-t *STDERR)) {
$msg = color ('cyan')
. $me
- . color ('reset')
- . ": "
- . color ('magenta')
- . "DEBUG"
- . color ('reset')
- . ": $msg";
+ . color ('reset')
+ . ': '
+ . color ('magenta')
+ . "DEBUG"
+ . color ('reset')
+ . ": $msg";
} else {
$msg = "$me: DEBUG: $msg";
} # if
display_err $msg, $handle, $nolinefeed if $debug and $level <= $debug;
-
+
return;
} # debug
my ($msg, $handle, $nolinefeed) = @_;
debug $msg, $handle, $nolinefeed, 1;
-
+
return;
} # debug1
sub debug2 ($;$$) {
my ($msg, $handle, $nolinefeed) = @_;
-
+
debug $msg, $handle, $nolinefeed, 2;
return;
sub debug3 ($;$$) {
my ($msg, $handle, $nolinefeed) = @_;
-
+
debug $msg, $handle, $nolinefeed, 2;
return;
Message to display
-=item $handle:
+=item $handle:
File handle to display to (Default: STDOUT)
-=item $nolinefeed:
+=item $nolinefeed:
If defined no linefeed is displayed at the end of the message.
print $handle $msg;
print $handle "\n" unless $nolinefeed;
-
+
return;
} # display
print $handle $msg;
print $handle "\n" if !$nolinefeed;
-
+
return;
} # display_err
sub display_error ($;$$$) {
my ($msg, $errno, $handle, $nolinefeed) = @_;
-
+
=pod
=head2 display_error ($msg, $errno, $handle, $nolinefeed)
=cut
$msg ||= '';
-
+
unless ($errno) {
if (($handle and -t $handle) or (-t *STDERR) and ($Config{perl} ne 'ratlperl')) {
$msg = color ('cyan')
. $me
. color ('reset')
- . ": "
- . color ('red')
- . "ERROR"
- . color ('reset')
- . ": $msg";
+ . ': '
+ . color ('red')
+ . 'ERROR'
+ . color ('reset')
+ . ": $msg";
} else {
$msg = "$me: ERROR: $msg";
} # if
} else {
if (($handle and -t $handle) or (-t *STDERR) and ($Config{perl} ne 'ratlperl')) {
$msg = color ('cyan')
- . $me
- . color ('reset')
- . ": "
- . color ('red')
- . "ERROR #$errno"
- . color ('reset')
- . ": $msg";
+ . $me
+ . color ('reset')
+ . ': '
+ . color ('red')
+ . "ERROR #$errno"
+ . color ('reset')
+ . ": $msg";
} else {
$msg = "$me: ERROR #$errno: $msg";
} # if
} # if
display_err $msg, $handle, $nolinefeed;
-
+
return;
} # display_error
Message to display
-=item $handle:
+=item $handle:
File handle to display to (Default: STDOUT)
=cut
display $msg, $handle, "nolf";
-
+
return;
} # display_nolf
Message to display
-=item $handle:
+=item $handle:
File handle to display to (Default: STDOUT)
display_error $msg, $errno, $handle, $nolinefeed;
exit $errno if $errno;
-
+
return;
} # error
sub set_me {
my ($whoami) = @_;
-
+
=pod
=head2 set_me ($me)
=cut
$me = $whoami;
-
+
return;
} # set_me
return
unless $trace;
-
+
$msg = $msg ? ": $msg" : '';
$type ||= 'In';
if (-t STDOUT) {
display color ('cyan')
. "$type "
- . color ('yellow')
- . color ('bold')
- . $subroutine
- . color ('reset')
- . $msg;
+ . color ('yellow')
+ . color ('bold')
+ . $subroutine
+ . color ('reset')
+ . $msg;
} else {
display "$type $subroutine$msg";
- } # if
+ } # if
return $subroutine;
} # trace
sub trace_enter (;$) {
my ($msg) = @_;
-
+
=pod
=head2 trace_enter
sub trace_exit (;$) {
my ($msg) = @_;
-
+
=pod
=head2 trace_exit
=cut
trace $msg, "EXIT";
-
+
return
} # trace_exit
$level ||= 1;
$verbose ||= 0;
-
+
display $msg, $handle, $nolinefeed if $verbose and $level <= $verbose;
-
+
return;
} # verbose
sub verbose1 ($;$$) {
my ($msg, $handle, $nolinefeed) = @_;
-
+
verbose $msg, $$handle, $nolinefeed, 1;
-
+
return;
} # verbose1
sub verbose2 ($;$$) {
my ($msg, $handle, $nolinefeed) = @_;
-
+
verbose $msg, $handle, $nolinefeed, 2;
-
+
return;
} # verbose1
sub verbose3 ($;$$) {
my ($msg, $handle, $nolinefeed) = @_;
-
+
verbose $msg, $handle, $nolinefeed, 3;
-
+
return;
} # verbose1
=cut
verbose $msg, $handle, "nolf";
-
+
return;
} # verbose_nolf
Message to display
-=item $handle:
+=item $handle:
File handle to display to (Default: STDOUT)
-=item $nolinefeed:
+=item $nolinefeed:
If defined no linefeed is displayed at the end of the message.
unless ($warnno) {
if (($handle and -t $handle) or (-t *STDERR) and ($Config{perl} ne 'ratlperl')) {
$msg = color ('cyan')
- . $me
- . color ('reset')
- . ": "
- . color ('yellow')
- . "WARNING"
- . color ('reset')
- . ": $msg";
+ . $me
+ . color ('reset')
+ . ": "
+ . color ('yellow')
+ . "WARNING"
+ . color ('reset')
+ . ": $msg";
} else {
$msg = "$me: WARNING: $msg";
} # if
} else {
if (($handle and -t $handle) or (-t *STDERR) and ($Config{perl} ne 'ratlperl')) {
$msg = color ('cyan')
- . $me
- . color ('reset')
- . ": "
- . color ('yellow')
- . "WARNING #$warnno"
- . color ('reset')
- . ": $msg";
+ . $me
+ . color ('reset')
+ . ": "
+ . color ('yellow')
+ . "WARNING #$warnno"
+ . color ('reset')
+ . ": $msg";
} else {
$msg = "$me: WARNING #$warnno: $msg";
} # if
} # if
display_err $msg, $handle, $nolinefeed;
-
+
return;
} # warning