From 16676d4ba54db28e6abf38c1df9970398e877026 Mon Sep 17 00:00:00 2001 From: P. J. McDermott Date: Sun, 12 Aug 2012 09:30:02 -0400 Subject: Remove old debugging method. --- (limited to 'scripts/MarkdownBook/Book.pm') diff --git a/scripts/MarkdownBook/Book.pm b/scripts/MarkdownBook/Book.pm index cf706a2..09225df 100644 --- a/scripts/MarkdownBook/Book.pm +++ b/scripts/MarkdownBook/Book.pm @@ -251,17 +251,4 @@ sub output } } -sub list_documents -{ - my ($self) = @_; - my $doc; - - foreach $doc (@{$self->{'docs'}}) { - printf("Document:\n File: %s\n Title: %s\n Full Title: %s\n", - $doc->file(), $doc->title(), $doc->full_title()); - printf(" Prev: %s\n", $doc->prev()->file()) if defined $doc->prev(); - printf(" Next: %s\n", $doc->next()->file()) if defined $doc->next(); - } -} - 1; -- cgit v0.9.1