X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FAdmin%2FUsage.pm;h=ddd925a204b1c3d941e8bdd2ca4016ff402f00d2;hb=7901452a18e3accbb8b6080bee3f90f97c16e18a;hp=c1e477b9c68056cb03c481efbe4cda660210b8e0;hpb=a7aed21b3a1385b75fad4741565e5b4a93124b0a;p=dbsrgits%2FDBIx-Class.git

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;