From: Gordon Irving Date: Wed, 24 Feb 2010 13:21:23 +0000 (+0000) Subject: do not include hidden opts in generated pod X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7901452a18e3accbb8b6080bee3f90f97c16e18a;p=dbsrgits%2FDBIx-Class-Historic.git do not include hidden opts in generated pod --- diff --git a/lib/DBIx/Class/Admin/Usage.pm b/lib/DBIx/Class/Admin/Usage.pm index c1e477b..ddd925a 100644 --- a/lib/DBIx/Class/Admin/Usage.pm +++ b/lib/DBIx/Class/Admin/Usage.pm @@ -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;