Source

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

Full commit
shl...@52c325ad-… e75e2f6 

Shlomi Fish f136e54 
shl...@52c325ad-… e75e2f6 
shl...@52c325ad-… 25ebf56 
shl...@52c325ad-… e75e2f6 
shl...@52c325ad-… 25ebf56 
shl...@52c325ad-… e75e2f6 





Shlomi Fish f136e54 





shl...@52c325ad-… e75e2f6 

Shlomi Fish 7dbc955 
shl...@52c325ad-… e75e2f6 


Shlomi Fish 7dbc955 
shl...@52c325ad-… e75e2f6 














Shlomi Fish 43810e1 
shl...@52c325ad-… e75e2f6 
Shlomi Fish 43810e1 

shl...@52c325ad-… e75e2f6 







shl...@52c325ad-… 25ebf56 
shl...@52c325ad-… e75e2f6 


package XML::Grammar::Screenplay::ToDocBook;

use MooX 'late';

extends('XML::Grammar::Screenplay::XSLT::Base');

has '+xslt_transform_basename' => (default => "screenplay-xml-to-docbook.xslt");

=head1 NAME

XML::Grammar::Screenplay::ToDocBook - module that converts the Screenplay
XML to DocBook.

=head1 METHODS

=head2 xslt_transform_basename()

Inherited - (to settle pod-coverage).

=head1 VERSION

Version 0.12.2

=cut

our $VERSION = '0.12.2';

=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.).

=cut

=head2 $converter->translate_to_docbook({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.

=cut

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

    return $self->perform_translation($args);
}

1;