X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FAdmin%2FUsage.pm;h=d479ae5dcd322fc0791e6cb51fb72f3b4c3d9b67;hb=f064a2abb15858bb39a141ad50391d4191988d2c;hp=ce41a563f65641c92e91cc74d81a7a4eda16fc63;hpb=87bf71d54c0e5bd50700d8e3be59b79e9b670012;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/Admin/Usage.pm b/lib/DBIx/Class/Admin/Usage.pm
index ce41a56..d479ae5 100644
--- a/lib/DBIx/Class/Admin/Usage.pm
+++ b/lib/DBIx/Class/Admin/Usage.pm
@@ -1,6 +1,8 @@
 package     # hide from PAUSE
     DBIx::Class::Admin::Usage;
 
+use warnings;
+use strict;
 
 use base 'Getopt::Long::Descriptive::Usage';
 
@@ -21,7 +23,7 @@ sub set_simple {
 
 
 
-# This returns the usage formated as a pod document
+# This returns the usage formatted as a pod document
 sub pod {
   my ($self) = @_;
   return join qq{\n}, $self->pod_leader_text, $self->pod_option_text, $self->pod_authorlic_text;
@@ -39,7 +41,7 @@ sub pod_authorlic_text {
 
   return join ("\n\n",
     '=head1 AUTHORS',
-    'See L<DBIx::Class/CONTRIBUTORS>',
+    'See L<DBIx::Class/AUTHORS>',
     '=head1 LICENSE',
     'You may distribute this code under the same terms as Perl itself',
     '=cut',
@@ -66,7 +68,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";
 
   }