Commits

Shlomi Fish  committed 021e833

Convert the ::ToTEI to XML::GrammarBase .

  • Participants
  • Parent commits a3ab642

Comments (0)

Files changed (2)

File perl/modules/XML-Grammar-Fiction/Changes

     * Convert to XML::GrammarBase :
         - lib/XML/Grammar/Fiction/ToHTML.pm
         - lib/XML/Grammar/Fiction/ToDocBook.pm
+        - lib/XML/Grammar/Screenplay/ToHTML.pm
+        - lib/XML/Grammar/Screenplay/ToTEI.pm
 
 0.12.5      Sat 27 Apr 14:25:15 IDT 2013
     * Do not try to compile scripts/bump-version-number.pl .

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

 
 use MooX 'late';
 
-extends('XML::Grammar::Screenplay::XSLT::Base');
+use XML::GrammarBase::Role::RelaxNG;
+use XML::GrammarBase::Role::XSLT;
 
-has '+xslt_transform_basename' => (default => "screenplay-xml-to-tei.xslt");
+with ('XML::GrammarBase::Role::RelaxNG');
+with XSLT(output_format => 'tei');
+
+has '+module_base' => (default => 'XML-Grammar-Fiction');
+has '+rng_schema_basename' => (default => 'screenplay-xml.rng');
+
+has '+to_tei_xslt_transform_basename' =>
+(
+    default => 'screenplay-xml-to-tei.xslt',
+);
 
 =head1 NAME
 
 {
     my ($self, $args) = @_;
 
-    return $self->perform_translation($args);
+    return $self->perform_xslt_translation(
+        {output_format => 'tei', %{$args}}
+    );
 }
 
 1;