1. Shlomi Fish
  2. Fiction-XML


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

package XML::Grammar::Screenplay::ToTEI;

use strict;
use warnings;

use MooX 'late';

use XML::GrammarBase::Role::RelaxNG v0.2.2;
use XML::GrammarBase::Role::XSLT v0.2.2;

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

XML::Grammar::Screenplay::ToTEI - module that converts the Screenplay
XML to TEI (Text Encoding Initiative).

=head1 VERSION

Version 0.14.6


our $VERSION = '0.14.6';

=head2 new()

Accepts no arguments so far. May take some time as the grammar is compiled
at that point.

=head2 meta()

Internal - (to settle pod-coverage).

=head2 xslt_transform_basename()

Inherited - (to settle pod-coverage).

=head2 $converter->translate_to_tei({source => {file => $filename}, output => "string" })

Does the actual conversion. $filename is the filename to translate (currently
the only available source).

The C<'output'> key specifies the return value. A value of C<'string'> returns
the XML as a string, and a value of C<'xml'> returns the XML as an
L<XML::LibXML> DOM object.


sub translate_to_tei
    my ($self, $args) = @_;

    return $self->perform_xslt_translation(
        {output_format => 'tei', %{$args}}