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/Document.pm')

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;
--
cgit v0.9.1