Refactor regular class method modifier addition to go through the metaclass
[gitmo/Mouse.git] / t / 001-strict.t
CommitLineData
c3398f5b 1#!/usr/bin/env perl
2use Test::More tests => 1;
3use Test::Exception;
4
5throws_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