Commit | Line | Data |
---|---|---|
c3398f5b | 1 | #!/usr/bin/env perl |
2 | use Test::More tests => 1; | |
eab81545 | 3 | use Test::Exception; |
c3398f5b | 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 |