Commits

Shlomi Fish committed f84e7c4

Convert ::Screenplay::ToDocBook to XML::GrammarBase .

  • Participants
  • Parent commits 021e833

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/ToDocBook.pm
         - lib/XML/Grammar/Screenplay/ToHTML.pm
         - lib/XML/Grammar/Screenplay/ToTEI.pm
 

File perl/modules/XML-Grammar-Fiction/lib/XML/Grammar/Screenplay/ToDocBook.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-docbook.xslt");
+with ('XML::GrammarBase::Role::RelaxNG');
+with XSLT(output_format => 'docbook');
+
+has '+module_base' => (default => 'XML-Grammar-Fiction');
+has '+rng_schema_basename' => (default => 'screenplay-xml.rng');
+
+has '+to_docbook_xslt_transform_basename' =>
+(
+    default => 'screenplay-xml-to-docbook.xslt',
+);
 
 =head1 NAME
 
 {
     my ($self, $args) = @_;
 
-    return $self->perform_translation($args);
+    return $self->perform_xslt_translation(
+        {output_format => 'docbook', %{$args}}
+    );
 }
 
 1;