Commits

Anonymous committed 21f8f71

Convert Screenplay::FromProto to _short_isa in order to normalise.

  • Participants
  • Parent commits ec2b5a6

Comments (0)

Files changed (1)

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

 {
     my ($self, $elem) = @_;
 
-    if ($elem->isa("XML::Grammar::Fiction::FromProto::Node::Saying"))
+    if ($elem->_short_isa("Saying"))
     {
         $self->_output_tag_with_childs(
             {
             },
         );
     }
-    elsif ($elem->isa("XML::Grammar::Fiction::FromProto::Node::Description"))
+    elsif ($elem->_short_isa("Description"))
     {
         $self->_output_tag_with_childs(
             {
             },
         );
     }
-    elsif ($elem->isa("XML::Grammar::Fiction::FromProto::Node::Text"))
+    elsif ($elem->_short_isa("Text"))
     {
         foreach my $child (@{$elem->_get_childs()})
         {
     {
         $self->_writer->characters($elem);
     }
-    elsif ($elem->isa("XML::Grammar::Fiction::FromProto::Node::Paragraph"))
+    elsif ($elem->_short_isa("Paragraph"))
     {
         $self->_output_tag_with_childs(
             {
             },
         );
     }
-    elsif ($elem->isa("XML::Grammar::Fiction::FromProto::Node::Element"))
+    elsif ($elem->_short_isa("Element"))
     {
         if (($elem->name() eq "s") || ($elem->name() eq "section"))
         {
         {
             $self->_writer->emptyTag("br");
         }
-        elsif ($elem->isa("XML::Grammar::Fiction::FromProto::Node::InnerDesc"))
+        elsif ($elem->_short_isa("InnerDesc"))
         {
             $self->_output_tag_with_childs(
                 {
             );
         }
     }
-    elsif ($elem->isa("XML::Grammar::Fiction::FromProto::Node::Text"))
+    elsif ($elem->_short_isa("Text"))
     {
         $self->_handle_text_start($elem);
     }
-    elsif ($elem->isa("XML::Grammar::Fiction::FromProto::Node::Comment"))
+    elsif ($elem->_short_isa("Comment"))
     {
         $self->_writer->comment($elem->text());
     }