projects
/
gitmo/MooseX-ClassAttribute.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
pass bare names and quote them closer to the code generation
[gitmo/MooseX-ClassAttribute.git]
/
lib
/
MooseX
/
ClassAttribute
/
Role
/
Meta
/
Class.pm
diff --git
a/lib/MooseX/ClassAttribute/Role/Meta/Class.pm
b/lib/MooseX/ClassAttribute/Role/Meta/Class.pm
index
64545ab
..
efa5d8a
100644
(file)
--- a/
lib/MooseX/ClassAttribute/Role/Meta/Class.pm
+++ b/
lib/MooseX/ClassAttribute/Role/Meta/Class.pm
@@
-195,7
+195,7
@@
sub inline_class_slot_access
my $self = shift;
my $name = shift;
- return '$' . $self->_class_attribute_var_name . '{' . $name . '}';
+ return '$' . $self->_class_attribute_var_name . '{"' . quotemeta($name) . '"}';
}
sub inline_get_class_slot_value