diff options
| author | P. J. McDermott <pjm@nac.net> | 2012-08-11 16:42:34 (EDT) |
|---|---|---|
| committer | P. J. McDermott <pjm@nac.net> | 2012-08-11 16:52:53 (EDT) |
| commit | 2d9c61d9e4854e2038e2c6afb65b1cfee236bbf5 (patch) | |
| tree | 84effcca4542a7acc406a39a8ad2662bf711d6b4 /scripts/MarkdownBook/Book.pm | |
| parent | ba9ef7040bec8bee6c419802c493f3e876bd35f6 (diff) | |
Remove format-specific book module.
Diffstat (limited to 'scripts/MarkdownBook/Book.pm')
| -rw-r--r-- | scripts/MarkdownBook/Book.pm | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/scripts/MarkdownBook/Book.pm b/scripts/MarkdownBook/Book.pm index ffabb18..5581fb3 100644 --- a/scripts/MarkdownBook/Book.pm +++ b/scripts/MarkdownBook/Book.pm @@ -16,6 +16,11 @@ use strict; use warnings; +# These are temporary. +use MarkdownBook::Document::HTML::Index; +use MarkdownBook::Document::HTML::Chapter; +use MarkdownBook::Document::HTML::Appendix; + package MarkdownBook::Book; sub new @@ -28,7 +33,13 @@ sub new $self = {}; bless($self, $class); - $self->{'format'} = $format; + if ($format eq 'html') { + $self->{'format'} = 'html'; + $self->{'format_mod'} = 'HTML'; + } elsif ($format eq 'txt') { + $self->{'format'} = 'txt'; + $self->{'format_mod'} = 'Txt'; + } $self->{'dir'} = $dir; $self->{'docs'} = []; @@ -81,7 +92,7 @@ sub get_document_module { my ($self, $mod) = @_; - return 'MarkdownBook::Document::' . $self->{'format'} . '::' . $mod; + return 'MarkdownBook::Document::' . $self->{'format_mod'} . '::' . $mod; } sub create_documents |