diff options
| author | P. J. McDermott <pjm@nac.net> | 2012-08-10 17:44:50 (EDT) |
|---|---|---|
| committer | P. J. McDermott <pjm@nac.net> | 2012-08-10 17:44:50 (EDT) |
| commit | f6ac178cf3c53952129ed7bc40c6350cfccaebe6 (patch) | |
| tree | b058264b4053cd3042cd744fa5f209a71d8b1306 | |
| parent | ea75c43dedebe5b6f768841f1a8234d5ef855350 (diff) | |
Move sections method into MarkdownBook::Document.
| -rw-r--r-- | scripts/MarkdownBook/Document.pm | 11 | ||||
| -rw-r--r-- | scripts/MarkdownBook/Document/HTML.pm | 11 |
2 files changed, 11 insertions, 11 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; 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) = @_; |