Add support for types that won't be deserialised as JSON::Class

Author: jonathanstowe

lib/JSON/Class.pm

@@ -74,17 +74,21 @@ though.)
 =end pod
 
 use JSON::Unmarshal;
-use JSON::Marshal:ver(v0.0.6..*);
+use JSON::Marshal:ver(v0.0.7..*);
 
 sub EXPORT {
     { '&trait_mod:<is>'    =>  &trait_mod:<is> }
 }
 
-role JSON::Class:ver<0.0.5>:auth<github:jonathanstowe> {
+role JSON::Class:ver<0.0.6>:auth<github:jonathanstowe> {
 
 
     method from-json(Str $json) returns JSON::Class {
-        unmarshal($json, self);
+        my $ret = unmarshal($json, self);
+        if $ret !~~ JSON::Class {
+            $ret does JSON::Class;
+        }
+        $ret;
     }
 
     method to-json(Bool :$skip-null) returns Str {