Only use .container_descriptor if method exists

samuraisam · Nov 26, 2013 · 49074a5 · 49074a5
1 parent 49c7d75
commit 49074a5
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/Metamodel/Perlable.pm b/lib/Metamodel/Perlable.pm
@@ -10,7 +10,8 @@ role Metamodel::PerlableAttribute {
     }
 
     method perl(Metamodel::PerlableAttribute:D:) {
-        my $of     = self.container_descriptor.of;
+        my $has_cd = nqp::can(self, 'container_descriptor');
+        my $of     = $has_cd ?? self.container_descriptor.of !! self.type;
         my $type   = $of.HOW.name($of);
         my $name   = self.name;
            $name  .= subst('!', '.') if self.has_accessor;