File Coverage

lib/warnings/MaybeFatal.pm

Criterion	Covered	Total	%
statement	31	33	93.9
branch	8	10	80.0
condition			n/a
subroutine	11	11	100.0
pod			n/a
total	50	54	92.5

use 5.008004;
use strict;
use warnings;

package warnings::MaybeFatal;

our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.004';

BEGIN {
	if ( $] < 5.012 ) {
		require Lexical::SealRequireHints;
		Lexical::SealRequireHints->import;
	}
};

use B::Hooks::EndOfScope;
use Carp qw(croak);

sub _my_hints
{
	$^H |= 0x20000;
	\%^H;
}

sub import
{
	_my_hints->{+__PACKAGE__} = 1;

	# Keep original signal handler
	my $orig = $SIG{__WARN__};
	my @warnings;

	$SIG{__WARN__} = sub {
		_my_hints->{+__PACKAGE__}
			? push(@warnings, $_[0])
			: $orig
				? $orig->(@_)
				: warn(@_);
	};

	on_scope_end {
		$SIG{__WARN__} = $orig;
		if (@warnings == 1)
		{
			die($warnings[0]);
		}
		elsif (@warnings)
		{
			warn($_) for @warnings;
			local $Carp::CarpLevel = $Carp::CarpLevel + 1;
			croak("Compile time warnings");
		}
	};
}

sub unimport
{
	_my_hints->{+__PACKAGE__} = 0;
}

1;

__END__