File Coverage

blib/lib/Sys/OutPut.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	9	12	75.0
condition	3	6	50.0
subroutine	6	6	100.0
pod	0	5	0.0
total	40	51	78.4

# Sys::OutPut.pm
#
# Little Output Utility
#
# $Id: OutPut.pm,v 1.2 1998/01/19 03:56:49 aks Exp $
# $Source: /usr/cvsroot/perl/Sys-OutPut/OutPut.pm,v $
#
# I don't like to do "print STDERR" or "print STDOUT", so these
# little routines do it for me.  And, they take care of ensuring
# that newlines are output when appropriate.

package Sys::OutPut;

use Exporter;
@ISA    = qw( Exporter );
@EXPORT = qw( talk out put err debug );

$quiet = defined($::quiet) ? $::quiet : '' unless defined($quiet);
$debug = defined($::debug) ? $::debug : '' unless defined($debug);

sub talk {
    &err(@_) unless $quiet;
    undef;
}

# out $FORMAT, $ARGS, ...

sub out {
    my $fmt = shift;
    $fmt = '' unless defined $fmt;	# avoid undef refs
    my @args = @_;
    $fmt .= "\n" if $fmt eq '' || substr($fmt,-1) ne "\n";
    printf STDOUT $fmt,@args;
    undef;
}

sub put {
    printf STDOUT @_;
    undef;
}

sub err {
    my $fmt = shift;
    $fmt = '' unless defined $fmt;	# avoid undef refs
    my @args = @_;
    $fmt .= "\n" if $fmt eq '' || substr($fmt,-1) ne "\n";
    printf STDERR $fmt,@args;
    undef;
}

sub debug {
    return '' unless $debug;
    &err(@_);
    1;
}

1;

__END__