File Coverage

blib/lib/Error/Wait.pm

Criterion	Covered	Total	%
statement	32	37	86.4
branch	5	8	62.5
condition			n/a
subroutine	12	13	92.3
pod	0	1	0.0
total	49	59	83.0

#
# Error/Wait.pm
#
# $Author: grazz $
# $Date: 2003/12/23 16:32:42 $
#

package Error::Wait;

use 5.006;
our $VERSION = '0.05';

use strict;
use warnings;

use POSIX;
use Config;

our $ERR;  # alias to original $?

sub TIESCALAR { bless [], shift }
sub FETCH     { return $_[0] }
sub STORE     { $ERR = $_[1] }

use overload '""' => \&stringify,
             '0+' => sub { $ERR },
             bool => sub { $ERR },
             fallback => 1;

my @names = split ' ', $Config{sig_name};

sub stringify {
    return $! if $ERR < 0;

    if (WIFEXITED($ERR)) {
	my $status = WEXITSTATUS($ERR);
	return "Exited: $status";
    }
    if (WIFSIGNALED($ERR)) {
	my $sig = WTERMSIG($ERR);
	return "Killed: $names[$sig]";
    }
    if (WIFSTOPPED($ERR)) {
	my $sig = WSTOPSIG($ERR);
	return "Stopped: $names[$sig]";
    }

    return $ERR;  # shouldn't get here
}

#
# the WIF* macros aren't really as portable as "$? >> 8"
#
eval { WIFEXITED(0) };
if ($@) {
    no warnings 'redefine';
    *WIFEXITED   = sub { 0 == ($_[0] & 0xff) };
    *WEXITSTATUS = sub { $_[0] >> 8 };
    *WIFSIGNALED = sub { $_[0] & 0xff };
    *WTERMSIG    = sub { $_[0] & 0xff };
}

#
# save the original $? and get it out of harm's way
#
(*ERR, *?) = \($?, $ERR);
tie $?, __PACKAGE__;

1;

__END__