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