#! /usr/bin/perl -Tw
use strict;
use warnings;
use Test::More tests => 2;
BEGIN { use_ok( 'Test::Exception' ) };
eval { throws_ok {} undef };
like( $@, '/^throws_ok/', 'cannot pass undef to throws_ok' );
#! /usr/bin/perl -Tw
use strict;
use warnings;
use Test::More tests => 2;
BEGIN { use_ok( 'Test::Exception' ) };
eval { throws_ok {} undef };
like( $@, '/^throws_ok/', 'cannot pass undef to throws_ok' );