projects
/
gitmo/Mouse.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Add predicates to the informational Mouse::Attribute attributes
[gitmo/Mouse.git]
/
t
/
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