Commits

shl...@52c325ad-5fd0-0310-8a0f-c43feede02cc  committed 6c21d3c

Created the RNG_Renderer base class.

  • Participants
  • Parent commits b331cbd

Comments (0)

Files changed (4)

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

 lib/XML/Grammar/Fiction/FromProto.pm
 lib/XML/Grammar/Fiction.pm
 lib/XML/Grammar/Fiction/RendererBase.pm
+lib/XML/Grammar/Fiction/RNG_Renderer.pm
 lib/XML/Grammar/Fiction/Struct/Tag.pm
 lib/XML/Grammar/Fiction/ToDocBook.pm
 lib/XML/Grammar/Fiction/ToHTML.pm

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

+package XML::Grammar::Fiction::RNG_Renderer;
+
+use strict;
+use warnings;
+
+=head1 XML::Grammar::Fiction::RNG_Renderer
+
+The base class for the Fiction-XML renderer with the common RNG.
+
+=head1 SYNOPSIS
+
+For internal use.
+
+=cut
+
+use Moose;
+
+extends ("XML::Grammar::Fiction::RendererBase");
+
+sub _get_relaxng_base_path
+{
+    my $self = shift;
+
+    return "fiction-xml.rng";
+}
+
+=head1 AUTHOR
+
+Shlomi Fish, L<http://www.shlomifish.org/>.
+
+=head1 BUGS
+
+Please report any bugs or feature requests to
+C<bug-xml-grammar-fiction at rt.cpan.org>, or through the web interface at
+L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=XML-Grammar-Fiction>.
+I will be notified, and then you'll automatically be notified of progress on
+your bug as I make changes.
+
+
+=head1 ACKNOWLEDGEMENTS
+
+=head1 COPYRIGHT & LICENSE
+
+Copyright 2007 Shlomi Fish.
+
+This program is released under the following license: MIT X11.
+
+=cut
+
+1;
+

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

 
 use Moose;
 
-extends ("XML::Grammar::Fiction::RendererBase");
+extends ("XML::Grammar::Fiction::RNG_Renderer");
 
 =head1 NAME
 
 
 =cut
 
-sub _get_relaxng_base_path
-{
-    my $self = shift;
-
-    return "fiction-xml.rng";
-}
-
-
 sub _get_xslt_base_path
 {
     my $self = shift;

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

 
 use Moose;
 
-extends ("XML::Grammar::Fiction::RendererBase");
+extends( "XML::Grammar::Fiction::RNG_Renderer" );
 
 =head1 NAME
 
 
 =cut
 
-sub _get_relaxng_base_path
-{
-    my $self = shift;
-
-    return "fiction-xml.rng";
-}
-
-
 sub _get_xslt_base_path
 {
     my $self = shift;