X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FClassAttribute%2FRole%2FMeta%2FClass.pm;h=efa5d8a67d3740791682c3a9c885f03613794901;hb=7aab7f6c86e376ba82e20b9f342190d6bc104508;hp=64545ab6fdddcc5eed1aa512cdbb3a02b4e31d4a;hpb=df4f57e00d7883a8a2292f81e598179d9c08a581;p=gitmo%2FMooseX-ClassAttribute.git diff --git a/lib/MooseX/ClassAttribute/Role/Meta/Class.pm b/lib/MooseX/ClassAttribute/Role/Meta/Class.pm index 64545ab..efa5d8a 100644 --- 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