From f6ac178cf3c53952129ed7bc40c6350cfccaebe6 Mon Sep 17 00:00:00 2001
From: P. J. McDermott <pjm@nac.net>
Date: Fri, 10 Aug 2012 17:44:50 -0400
Subject: Move sections method into MarkdownBook::Document.

---
(limited to 'scripts/MarkdownBook')

diff --git a/scripts/MarkdownBook/Document.pm b/scripts/MarkdownBook/Document.pm
index ad6fc0e..fe6634f 100644
--- a/scripts/MarkdownBook/Document.pm
+++ b/scripts/MarkdownBook/Document.pm
@@ -95,4 +95,15 @@ sub next
 	return $old;
 }
 
+sub sections
+{
+	my ($self) = @_;
+
+	# FIXME: Why is this necessary?!
+	foreach my $sec (@{$self->{'sections'}}) {
+	}
+
+	return $self->{'sections'};
+}
+
 1;
diff --git a/scripts/MarkdownBook/Document/HTML.pm b/scripts/MarkdownBook/Document/HTML.pm
index 5dda99a..3548b65 100644
--- a/scripts/MarkdownBook/Document/HTML.pm
+++ b/scripts/MarkdownBook/Document/HTML.pm
@@ -62,17 +62,6 @@ sub parse
 	}
 }
 
-sub sections
-{
-	my ($self) = @_;
-
-	# FIXME: Why is this necessary?!
-	foreach my $sec (@{$self->{'sections'}}) {
-	}
-
-	return $self->{'sections'};
-}
-
 sub output
 {
 	my ($self) = @_;
--
cgit v0.9.1