#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More tests => 4;
-use Test::Exception;
+use Test::More tests => 5;
+use Mouse::Util ':test';
do {
package Class;
Class->new('non-hashref scalar');
} qr/Single parameters to new\(\) must be a HASH ref/;
+lives_ok {
+ Class->new(undef);
+} "Class->new(undef) specifically doesn't throw an error. weird"
+