[gitmo/Mouse.git] / t / 001_mouse / 001-strict.t

#!/usr/bin/env perl
use Test::More tests => 1;
use Test::Exception;

throws_ok {
    package Class;
    use Mouse;

    my $foo = '$foo';
    chop $$foo;
} qr/Can't use string \("\$foo"\) as a SCALAR ref while "strict refs" in use /,
  'using Mouse turns on strictures';
Commit	Line	Data
c3398f5b	1	#!/usr/bin/env perl
c3398f5b	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