File Coverage

blib/lib/Acme/DoOrDie.pm

Criterion	Covered	Total	%
statement	29	32	90.6
branch	9	14	64.2
condition	1	3	33.3
subroutine	6	6	100.0
pod	1	1	100.0
total	46	56	82.1

package Acme::DoOrDie;

use strict;
use warnings;
use Carp
    qw(croak);

our $VERSION="0.001";

sub do_or_die ($ )
{
    my($name) = @_;
    my($want, @result, $result, $syntax);

    if (!defined($name) || $name eq "") {
	croak("Missing or undefined argument to require");
    }
    $want = wantarray();
    if ($want) {
	@result = do($name);
    } elsif (defined($want)) {
	$result = do($name);
    } else {
	do($name);
    }
    $syntax = $@;
    if (! exists($INC{$name})) {
	croak("Can't locate $name: $! (\@INC contains: ".join(" ",@INC).")");
    }
    if ($syntax ne "") {
	croak($syntax);
    }
    if ($want) {
	@result;
    } elsif (defined($want)) {
	$result;
    }
}

BEGIN {
    *do = \&do_or_die;
    our @EXPORT = qw(
	do_or_die
    );
    our @EXPORT_OK = qw(
	do_or_die
	do
    );
}

use Exporter
    qw(import);

1;

__END__