[Bast-commits] r8820 - DBIx-Class/0.08/trunk/lib/DBIx/Class/Admin

[goraxe at dev.catalyst.perl.org]

Author: goraxe
Date: 2010-02-24 13:21:23 +0000 (Wed, 24 Feb 2010)
New Revision: 8820

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Admin/Usage.pm
Log:
 do not include hidden opts in generated pod

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Admin/Usage.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Admin/Usage.pm	2010-02-24 09:02:34 UTC (rev 8819)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Admin/Usage.pm	2010-02-24 13:21:23 UTC (rev 8820)
@@ -60,6 +60,7 @@
   foreach my $opt (@options) {
     my $spec = $opt->{spec};
     my $desc = $opt->{desc};
+    next if ($desc eq 'hidden');
     if ($desc eq 'spacer') {
         $string .= "=back\n\n=head2 $spec\n\n=cut\n\n=over\n\n";
         next;