Fix accessor filenames
[gitmo/Mouse.git] / t / 001_mouse / 001-strict.t
1 #!/usr/bin/env perl
2 use Test::More tests => 1;
3 use Test::Exception;
4
5 throws_ok {
6     package Class;
7     use Mouse;
8
9     my $foo = '$foo';
10     chop $$foo;
11 } qr/Can't use string \("\$foo"\) as a SCALAR ref while "strict refs" in use /,
12   'using Mouse turns on strictures';
13