diff options
| author | P. J. McDermott <pjm@nac.net> | 2012-08-10 12:34:47 (EDT) |
|---|---|---|
| committer | P. J. McDermott <pjm@nac.net> | 2012-08-10 12:34:47 (EDT) |
| commit | 9a90b5ef3d8f9572838700fa27ec568d29f76d64 (patch) | |
| tree | 00de5c0b5541bbf6f9a83ed2e8791a4741ded1cc | |
| parent | 5f516d09b5f33284c65b75b5c03d5144ed7c6418 (diff) | |
Standardize constructor code style.
| -rw-r--r-- | scripts/MarkdownBook/Book.pm | 3 | ||||
| -rw-r--r-- | scripts/MarkdownBook/Book/HTML.pm | 2 | ||||
| -rw-r--r-- | scripts/MarkdownBook/Document.pm | 3 | ||||
| -rw-r--r-- | scripts/MarkdownBook/Document/Index.pm | 3 |
4 files changed, 7 insertions, 4 deletions
diff --git a/scripts/MarkdownBook/Book.pm b/scripts/MarkdownBook/Book.pm index 547a4f0..a0cb49e 100644 --- a/scripts/MarkdownBook/Book.pm +++ b/scripts/MarkdownBook/Book.pm @@ -26,7 +26,8 @@ sub new $class = ref($class) || $class; $self = {}; - bless($self,$class); + bless($self, $class); + $self->{'format'} = $format; $self->{'dir'} = $dir; $self->{'docs'} = []; diff --git a/scripts/MarkdownBook/Book/HTML.pm b/scripts/MarkdownBook/Book/HTML.pm index 67acc34..8577170 100644 --- a/scripts/MarkdownBook/Book/HTML.pm +++ b/scripts/MarkdownBook/Book/HTML.pm @@ -32,7 +32,7 @@ sub new $class = ref($class) || $class; $self = {}; - bless($self,$class); + bless($self, $class); $self = $self->SUPER::new('HTML', @args); diff --git a/scripts/MarkdownBook/Document.pm b/scripts/MarkdownBook/Document.pm index 249cdf6..ad6fc0e 100644 --- a/scripts/MarkdownBook/Document.pm +++ b/scripts/MarkdownBook/Document.pm @@ -28,7 +28,8 @@ sub new $class = ref($class) || $class; $self = {}; - bless($self,$class); + bless($self, $class); + $self->{'book'} = $book; $self->{'file'} = $file; $self->{'id'} = $id; diff --git a/scripts/MarkdownBook/Document/Index.pm b/scripts/MarkdownBook/Document/Index.pm index e005396..df94305 100644 --- a/scripts/MarkdownBook/Document/Index.pm +++ b/scripts/MarkdownBook/Document/Index.pm @@ -29,7 +29,8 @@ sub new $class = ref($class) || $class; $self = {}; - bless($self,$class); + bless($self, $class); + $self->{'book'} = $book; $self->{'file'} = 'index'; $self->{'title'} = $book->title(); |