5 foreach my $mod (qw(Mouse Mouse::Role Mouse::Exporter)){
17 like $@, qr/Can't use string \("foo"\) as a SCALAR ref while "strict refs" in use /, # '
18 "using $mod turns on strictures";
21 local $SIG{__WARN__} = sub {
37 like("@warnings", qr/^Use of uninitialized value/, "using $mod turns on warnings");