File Coverage

blib/lib/Email/Pipemailer/DieHandler.pm

Criterion	Covered	Total	%
statement	6	18	33.3
branch	0	6	0.0
condition	0	7	0.0
subroutine	2	5	40.0
pod			n/a
total	8	36	22.2

use strict;
use warnings;
package Email::Pipemailer::DieHandler;
{
  $Email::Pipemailer::DieHandler::VERSION = '1.001';
}
# ABSTRACT: do not die embarassingly if you screw up your pipemailer


sub import {
  my ($self, $install, $arg) = @_;
  return unless $install and $install eq '-install';

  $arg ||= {};
  my $logger = $arg->{logger} || sub {};

  $SIG{__DIE__} = sub {
    return if $^S; # don't interfere with evals
    my ($e) = @_;
    defined $^S and eval { $logger->($e); };
    $! = 75;
    die $e;
  };
}

1;

__END__