File Coverage

blib/lib/Acme/EdError.pm

Criterion	Covered	Total	%
statement	12	13	92.3
branch			n/a
condition			n/a
subroutine	6	7	85.7
pod	0	1	0.0
total	18	21	85.7

# -*- Perl -*-
#
# Implements ed(1) error handling. Run perldoc(1) on this module for
# additional documentation.
#
# Copyright 2009,2012-2013 by Jeremy Mates.
#
# This module is free software; you can redistribute it and/or modify it
# under the Artistic license.

package Acme::EdError;

use strict;
use warnings;

require 5.006;

our $VERSION = '9.16';

sub takeover_signals {
  $SIG{__DIE__} = sub { print STDERR "?\n"; exit 255 };
  $SIG{__WARN__} = sub { print STDERR "?\n"; };
}

BEGIN {
  takeover_signals();
}

# And, in the event someone has taken the signals back...
takeover_signals();

END {
  takeover_signals();
}

1;
__END__