Commits

Shlomi Fish  committed fe4ff24

Move _calc_tree() upwards.

  • Participants
  • Parent commits 9437214

Comments (0)

Files changed (3)

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

     return $contents;
 }
 
-sub _calc_tree
-{
-    my ($self, $args) = @_;
-
-    my $filename = $args->{source}->{file} or
-        confess "Wrong filename given.";
-
-    return $self->_parser->process_text($self->_read_file($filename));
-}
-
 sub _write_body
 {
     my $self = shift;

File perl/modules/XML-Grammar-Fiction/lib/XML/Grammar/FictionBase/TagsTree2XML.pm

     return;
 }
 
+sub _calc_tree
+{
+    my ($self, $args) = @_;
+
+    my $filename = $args->{source}->{file} or
+        confess "Wrong filename given.";
+
+    return $self->_parser->process_text($self->_read_file($filename));
+}
+
 =head2 $self->convert({ source => { file => $path_to_file } })
 
 Converts the file $path_to_file to XML and returns it. Throws an exception

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

     return $contents;
 }
 
-sub _calc_tree
-{
-    my ($self, $args) = @_;
-
-    my $filename = $args->{source}->{file} or
-        confess "Wrong filename given.";
-
-    return $self->_parser->process_text($self->_read_file($filename));
-}
-
 sub _get_default_xml_ns
 {
     return $screenplay_ns;