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

diff --git a/lib/DBIx/Class/Admin/Usage.pm b/lib/DBIx/Class/Admin/Usage.pm
index c1e477b..2e02705 100644
--- a/lib/DBIx/Class/Admin/Usage.pm
+++ b/lib/DBIx/Class/Admin/Usage.pm
@@ -6,8 +6,6 @@ use base 'Getopt::Long::Descriptive::Usage';
 
 use base 'Class::Accessor::Grouped';
 
-use Class::C3;
-
 __PACKAGE__->mk_group_accessors('simple', 'synopsis', 'short_description');
 
 sub prog_name {
@@ -60,6 +58,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;
@@ -67,7 +66,7 @@ sub pod_option_text {
 
     $spec = Getopt::Long::Descriptive->_strip_assignment($spec);
     $string .= "=item " . join " or ", map { length > 1 ? "B<--$_>" : "B<-$_>" }
-                             split /\|/, $spec; 
+                             split /\|/, $spec;
     $string .= "\n\n$desc\n\n=cut\n\n";
 
   }