fix issue with private objects now showing up

Author: jordan2175

Changes

@@ -1,4 +1,10 @@
 Release Notes:
+v1.72 - 2015-03-23
+    Changes
+        Un-did change from 1.71 and fixed it correctly by changing the Doxyfile
+v1.71 - 2015-03-16
+    Chnaged
+        Fix issue where public objects were not showing up, if a private objects was found 
 v1.70 - 2015-03-16
     Changes
         Moved repo from sourceforge to github at https://github.com/jordan2175/doxygen-filter-perl
@@ -123,4 +129,4 @@ v0.99_01 - Initial Alpha Release (2011-10-21)
             the actual subroutines that they are tied to.
     Known Issues
         POD support is not yet included
-        Only two structural indicators are currently supported - more to com
+        Only two structural indicators are currently supported - more to com

Doxyfile

@@ -426,7 +426,7 @@ EXTRACT_ALL            = NO
 # be included in the documentation.
 # The default value is: NO.
 
-EXTRACT_PRIVATE        = NO
+EXTRACT_PRIVATE        = YES
 
 # If the EXTRACT_PACKAGE tag is set to YES, all members with package or internal
 # scope will be included in the documentation.

lib/Doxygen/Filter.pm

@@ -27,7 +27,7 @@ use strict;
 use warnings;
 use Log::Log4perl;
 
-our $VERSION     = '1.71';
+our $VERSION     = '1.72';
 $VERSION = eval $VERSION;
 
 

lib/Doxygen/Filter/Perl.pm

@@ -31,7 +31,7 @@ use Pod::POM;
 use IO::Handle;
 use Doxygen::Filter::Perl::POD;
 
-our $VERSION     = '1.71';
+our $VERSION     = '1.72';
 $VERSION = eval $VERSION;
 
 
@@ -427,7 +427,8 @@ sub PrintAll
         # Print all functions/methods in order of appearance, let doxygen take care of grouping them according to modifiers
         # I added this print public line to make sure the functions print if one of
         # the previous elements was a my $a = 1 and thus had a print "private:"
-        print("public:\n");
+        # This is no longer needed, fixed it in the Doxyfile instead.
+        # print("public:\n");
         foreach my $methodName (@{$self->{'_hData'}->{'class'}->{$class}->{'subroutineorder'}})
         {
             $self->_PrintMethodBlock($class, $methodName);

lib/Doxygen/Filter/Perl/POD.pm

@@ -28,7 +28,7 @@ use warnings;
 use parent qw(Pod::POM::View::HTML);
 use Log::Log4perl;
 
-our $VERSION     = '1.71';
+our $VERSION     = '1.72';
 $VERSION = eval $VERSION;