t/002-warnings.t

   1 #!/usr/bin/env perl
   2 use Test::More tests => 1;
   3 use Test::Warn;
   4
   5 warning_like {
   6     package Class;
   7     use Mouse;
   8
   9     my $one = 1 + undef;
  10 } qr/uninitialized value/, 'using Mouse turns on warnings';
  11