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

   1 # -*- Mode: Perl; -*-
   2
   3 =head1 NAME
   4
   5 6_die_00_base.t - Very basic testing of the Die module.
   6
   7 =cut
   8
   9 use Test::More tests => 2;
  10
  11 use_ok('CGI::Ex::Die');
  12
  13 ok(eval {
  14   import CGI::Ex::Die register => 1;
  15   $SIG{__DIE__} eq \&CGI::Ex::Die::die_handler;
  16 });