summaryrefslogtreecommitdiffstats
path: root/lib/MarkdownBook/Section.pm
diff options
context:
space:
mode:
authorP. J. McDermott <pjm@nac.net>2012-08-13 14:30:30 (EDT)
committer P. J. McDermott <pjm@nac.net>2012-08-13 14:30:30 (EDT)
commit93a3719a5deff6297ce7be97939dba1d0155dde0 (patch)
tree84822be5a4aa7356ba1050c81d0269d1919f357a /lib/MarkdownBook/Section.pm
parente6106e4bfd22aa448fd972150e6bcc39e9fbcb45 (diff)
Move MarkdownBook modules into Text namespace.
Diffstat (limited to 'lib/MarkdownBook/Section.pm')
-rw-r--r--lib/MarkdownBook/Section.pm67
1 files changed, 0 insertions, 67 deletions
diff --git a/lib/MarkdownBook/Section.pm b/lib/MarkdownBook/Section.pm
deleted file mode 100644
index 82ff897..0000000
--- a/lib/MarkdownBook/Section.pm
+++ /dev/null
@@ -1,67 +0,0 @@
-# Copyright (C) 2012 Patrick "P. J." McDermott
-#
-# This program is free software: you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation, either version 3 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-use strict;
-use warnings;
-
-package MarkdownBook::Section;
-
-sub new
-{
- my ($class, $doc, $lev, $num, $id, $title) = @_;
- my $self;
-
- $class = ref($class) || $class;
- $self = {};
- bless($self, $class);
-
- $self->{'document'} = $doc;
- $self->{'level'} = $lev;
- $self->{'number'} = $num;
- $self->{'id'} = $id;
- $self->{'title'} = $title;
-
- return $self;
-}
-
-sub level
-{
- my ($self) = @_;
-
- return $self->{'level'};
-}
-
-sub number
-{
- my ($self) = @_;
-
- return $self->{'number'};
-}
-
-sub id
-{
- my ($self) = @_;
-
- return $self->{'id'};
-}
-
-sub title
-{
- my ($self) = @_;
-
- return $self->{'title'};
-}
-
-1;