Commits

Anonymous committed d558a31

Add a method for short ->isa.

  • Participants
  • Parent commits 3bd1224

Comments (0)

Files changed (1)

perl/modules/XML-Grammar-Fiction/lib/XML/Grammar/Fiction/FromProto/Nodes.pm

     return $childs || [];
 }
 
+sub _short_isa
+{
+    my $self = shift;
+    my $isa_classish = shift;
+
+    return
+        $self->isa(
+            "XML::Grammar::Fiction::FromProto::Node::$isa_classish"
+        );
+}
+
 package XML::Grammar::Fiction::FromProto::Node::Element;
 
 use Moose;