projects
/
gitmo/Mouse.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Revert "Fix t/lib/MooseCompat.pm"
[gitmo/Mouse.git]
/
lib
/
Mouse
/
PurePerl.pm
diff --git
a/lib/Mouse/PurePerl.pm
b/lib/Mouse/PurePerl.pm
index
5e136c9
..
23b89a9
100644
(file)
--- a/
lib/Mouse/PurePerl.pm
+++ b/
lib/Mouse/PurePerl.pm
@@
-156,7
+156,7
@@
sub Str {
sub Ref { ref($_[0]) }
sub ScalarRef {
my($value) = @_;
- return ref($value) eq 'SCALAR'
+ return ref($value) eq 'SCALAR' || ref($value) eq 'REF';
}
sub ArrayRef { ref($_[0]) eq 'ARRAY' }
sub HashRef { ref($_[0]) eq 'HASH' }