File Coverage

blib/lib/D/oh.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	6	12	50.0
condition			n/a
subroutine	10	10	100.0
pod	0	3	0.0
total	48	57	84.2

#!perl -w
package D::oh;
use vars qw(@ISA @EXPORT_OK @EXPORT $VERSION);
use strict;
use Exporter;
use File::Basename;
use IO::Handle;
use Carp;
@ISA = qw(Exporter);
@EXPORT = ();
@EXPORT_OK = qw(sortFile);
$VERSION = sprintf("%d.%02d", q$Revision: 0.05 $ =~ /(\d+)\.(\d+)/);

#-----------------------------------------------------------------
my($Sep) = (($^O eq 'MacOS') ? ':' : '/');
my($Err) = (($^O eq 'MacOS') ? "$ENV{TMPDIR}D\'oh" : '/tmp/D\'oh');
my($Out) = undef;
#-----------------------------------------------------------------
sub date {
    no strict 'refs';
    my($fh)   = ($_[0] =~ /^STDOUT$/i ? 'STDOUT' : 'STDERR');
    printf $fh "\n#===== %s [$$]: %s =====#\n",
    	($0 =~ /([^$Sep]+)$/), scalar localtime;
	1;
}
#-----------------------------------------------------------------
sub stdout {
	$Out = $_[0] ? $_[0] : ($Out ? $Out : $Err);
	open(STDOUT,">>$Out") || croak("D'oh can't open $Err: $!");
	STDOUT->autoflush(1);
	1;
}
#-----------------------------------------------------------------
sub stderr {
	$Err = $_[0] ? $_[0] : $Err;
	open(STDERR,">>$Err") || croak("D'oh can't open $Err: $!");
	STDERR->autoflush(1);
	1;
}
#-----------------------------------------------------------------
1;

__END__