do not include hidden opts in generated pod
Gordon Irving [Wed, 24 Feb 2010 13:21:23 +0000 (13:21 +0000)]
lib/DBIx/Class/Admin/Usage.pm

index c1e477b..ddd925a 100644 (file)
@@ -60,6 +60,7 @@ sub pod_option_text {
   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;