File Coverage

blib/lib/Email/Pipemailer/DieHandler.pm

Criterion	Covered	Total	%
statement	6	17	35.2
branch	0	6	0.0
condition	0	7	0.0
subroutine	2	5	40.0
pod			n/a
total	8	35	22.8

use strict;
use warnings;
package Email::Pipemailer::DieHandler 1.002;
# ABSTRACT: do not die embarassingly if you screw up your pipemailer

#pod =head1 SYNOPSIS
#pod
#pod   #!/usr/bin/perl
#pod   use Email::Pipemailer::DieHandler -install;
#pod   use strict;
#pod   use warnings;
#pod
#pod   # your code goes here
#pod
#pod Always put the DieHandler before B else.  You want there to be
#pod B no condition that will cause a bounce, right?  That includes
#pod failure to compile.
#pod
#pod This is also legal:
#pod
#pod   use Email::Pipemailer::DieHandler -install => { logger => sub { ... } };
#pod
#pod The error will be passed to the sub.
#pod
#pod =cut

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__