Commit | Line | Data |
c3398f5b |
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 | |