File Coverage

blib/lib/Test/Lives.pm

Criterion	Covered	Total	%
statement	30	31	96.7
branch	2	4	50.0
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	39	43	90.7

use 5.006; use strict; use warnings;

package Test::Lives;
$Test::Lives::VERSION = '1.002';
# ABSTRACT: decorate tests with a no-exceptions assertion

use Test::Builder ();

my $Tester = Test::Builder->new;
*Level = \$Test::Builder::Level;

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

	local our $Level = $Level + 1; # this function

	my $ok;

	eval {
		local $Level = $Level + 2; # eval block + callback
		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__