The minimal pod seems to confuse the manpage generator, commenting out for now

[dbsrgits/DBIx-Class.git] / script / dbicadmin

diff --git a/script/dbicadmin b/script/dbicadmin
index c097c71..ee7bbbb 100755 (executable)
--- a/script/dbicadmin
+++ b/script/dbicadmin
@@ -45,7 +45,7 @@ my ($opts, $usage) = describe_options(
       ['help|h' => 'display this help', { implies => { schema_class => 'main' } } ],
       ['pod' => 'Output this usage as pod', { implies => { schema_class => 'main' } } ],
     ], required=> 1 }],
-    ['Options'],
+    ['Arguments'],
     ['schema-class|schema|C:s' => 'The class of the schema to load', { required => 1 } ],
     ['resultset|resultset_class|class|r:s' => 'The resultset to operate on for data manipulation' ],
     ['config-stanza|S:s' => 'Where in the config to find the connection_info, supply in form MyApp::Model::DB',],
@@ -109,28 +109,30 @@ if ($action eq 'select') {
     print $csv->string()."\n";
   }
 }
-__END__
 
-=begin pod_begin
 
-BEGIN MARKER FOR DYNAMIC POD
-
-=end pod_begin
-
-=begin pod_end
-
-END MARKER FOR DYNAMIC POD
-
-=end pod_end
-
-=head1 AUTHOR
-
-See L<DBIx::Class/CONTRIBUTORS>.
-
-=head1 LICENSE
-
-You may distribute this code under the same terms as Perl itself
-
-=cut
+#__END__
+#
+#=begin pod_begin
+#
+#BEGIN MARKER FOR DYNAMIC POD
+#
+#=end pod_begin
+#
+#=begin pod_end
+#
+#END MARKER FOR DYNAMIC POD
+#
+#=end pod_end
+#
+#=head1 AUTHOR
+#
+#See L<DBIx::Class/CONTRIBUTORS>.
+#
+#=head1 LICENSE
+#
+#You may distribute this code under the same terms as Perl itself
+#
+#=cut
 
 # vim: et ft=perl