Adjust book and document interfaces.

3 files changed, 14 insertions, 12 deletions

diff --git a/scripts/MarkdownBook/Book.pm b/scripts/MarkdownBook/Book.pm
index 77193fd..ac41631 100644
--- a/scripts/MarkdownBook/Book.pm
+++ b/scripts/MarkdownBook/Book.pm
@@ -42,6 +42,8 @@ sub new
 	}
 	close($control_fh);
 
+	$self->create_documents();
+
 	return $self;
 }
 
@@ -130,6 +132,16 @@ sub create_documents
 	}
 }
 
+sub parse
+{
+	my ($self) = @_;
+	my $doc;
+
+	foreach $doc (@{$self->{'docs'}}) {
+		$doc->parse();
+	}
+}
+
 sub list_documents
 {
 	my ($self) = @_;
diff --git a/scripts/MarkdownBook/Book/HTML.pm b/scripts/MarkdownBook/Book/HTML.pm
index 662b347..864d3f1 100644
--- a/scripts/MarkdownBook/Book/HTML.pm
+++ b/scripts/MarkdownBook/Book/HTML.pm
@@ -39,17 +39,7 @@ sub new
 	return $self;
 }
 
-sub parse_documents
-{
-	my ($self) = @_;
-	my $doc;
-
-	foreach $doc (@{$self->{'docs'}}) {
-		$doc->parse_html();
-	}
-}
-
-sub write_templated_documents
+sub output
 {
 	my ($self) = @_;
 	my $doc_tmpl;
diff --git a/scripts/MarkdownBook/Document/HTML.pm b/scripts/MarkdownBook/Document/HTML.pm
index a7e901a..5dda99a 100644
--- a/scripts/MarkdownBook/Document/HTML.pm
+++ b/scripts/MarkdownBook/Document/HTML.pm
@@ -23,7 +23,7 @@ package MarkdownBook::Document::HTML;
 
 our @ISA = qw(MarkdownBook::Document);
 
-sub parse_html
+sub parse
 {
 	my ($self) = @_;
 	my $file = $self->{'book'}->dir() . '/' . $self->{'file'} . '.html.in';