Add predicates to the informational Mouse::Attribute attributes
[gitmo/Mouse.git] / 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