diff options
Diffstat (limited to 'scripts/MarkdownBook/Document.pm')
| -rw-r--r-- | scripts/MarkdownBook/Document.pm | 11 |
1 files changed, 11 insertions, 0 deletions
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; |