File Coverage

blib/lib/Test/Lives.pm

Criterion	Covered	Total	%
statement	31	32	96.8
branch	2	4	50.0
condition			n/a
subroutine	8	8	100.0
pod	0	1	0.0
total	41	45	91.1

use 5.006; use strict; use warnings;

package Test::Lives;

our $VERSION = '1.003';

use Carp ();
use Test::Builder ();

my $Tester = Test::Builder->new;

sub lives_and (&;$) {
	my ( $code, $name ) = @_;

	my $ok;

	eval {
		local $Carp::Internal{(__PACKAGE__)} = 1;
		$ok = $code->() for $name;
		1;
	} or do {
		my $e = "$@";
		$ok = $Tester->ok( 0, $name );
		$Tester->diag( $e );
	};

	return $ok;
}

sub import {
	my $class = shift;
	do { die "Unknown symbol: $_" if $_ ne 'lives_and' } for @_;
	no strict 'refs';
	*{ caller . '::lives_and' } = \&lives_and;
}

1;

__END__