diff options
| author | P. J. McDermott <pjm@nac.net> | 2012-08-12 08:01:37 (EDT) |
|---|---|---|
| committer | P. J. McDermott <pjm@nac.net> | 2012-08-12 08:01:37 (EDT) |
| commit | 4f8f763f09a46b3e5a1d601951d90025528f8fda (patch) | |
| tree | 54a46ad4109ce3829e138514f26b5c9b8c74d3c4 | |
| parent | b8ea4e24bf2c177f7c51861d1a33166f912082c5 (diff) | |
Add method to get document ID.
| -rw-r--r-- | scripts/MarkdownBook/Document.pm | 7 |
1 files changed, 7 insertions, 0 deletions
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) = @_; |