Dogcows Code - chaz/p5-CGI-Ex/blob - t/6_die_00_base.t

   1 # -*- Mode: Perl; -*-
   2
   3 use Test;
   4
   5 BEGIN {plan tests => 2};
   6
   7 use CGI::Ex::Die;
   8 ok(1);
   9
  10 ok(eval {
  11   import CGI::Ex::Die register => 1;
  12   $SIG{__DIE__} eq \&CGI::Ex::Die::die_handler;
  13 });