From 4f8f763f09a46b3e5a1d601951d90025528f8fda Mon Sep 17 00:00:00 2001
From: P. J. McDermott <pjm@nac.net>
Date: Sun, 12 Aug 2012 08:01:37 -0400
Subject: Add method to get document ID.

---
diff --git a/scripts/MarkdownBook/Document.pm b/scripts/MarkdownBook/Document.pm
index 9bb98c5..575ce16 100644
--- a/scripts/MarkdownBook/Document.pm
+++ b/scripts/MarkdownBook/Document.pm
@@ -77,6 +77,13 @@ sub file_path
 	return $self->{'book'}->dir() . '/' . $self->{'file'};
 }
 
+sub id
+{
+	my ($self) = @_;
+
+	return $self->{'id'};
+}
+
 sub title
 {
 	my ($self, $title) = @_;
--
cgit v0.9.1