Associative assignment to non-existent attribute doesn't die

jonathanstowe · Sep 21, 2017 · 40e9f8f · 40e9f8f
1 parent 6ca8bba
commit 40e9f8f
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/lib/META6.pm b/lib/META6.pm
@@ -123,7 +123,9 @@ role AutoAssoc {
     }
 
     method ASSIGN-KEY($key, \value) {
-        self!json-name-to-attibute($key).set_value(self, value)
+        if self!json-name-to-attibute($key) -> $attr {
+            $attr.set_value(self, value)
+        }
     }
 
     method !json-name-to-attibute($json-name) {

diff --git a/t/050-assoc.t b/t/050-assoc.t
@@ -22,6 +22,8 @@ is $obj<version perl>, '0.0.1 6', 'Hash get list of keys';
 is $obj<version>:exists, True, 'Hash key exists';
 is $obj<isnthere>:exists, False, 'Hash key does not exist';
 
+lives-ok { $obj<isnthere> = 'foo' }, "set non-existent attribute";
+
 $obj<version> = v0.0.2;
 is $obj<version>, '0.0.2', 'Hash set good version';