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

diff --git a/lib/DBIx/Class/Admin/Usage.pm b/lib/DBIx/Class/Admin/Usage.pm
index 291fd1e..c1e477b 100644
--- a/lib/DBIx/Class/Admin/Usage.pm
+++ b/lib/DBIx/Class/Admin/Usage.pm
@@ -22,13 +22,8 @@ sub set_simple {
 }
 
 
-=head2 pod
-
-This returns the usage formated as a pod document
-
-=cut
-
 
+# This returns the usage formated as a pod document
 sub pod {
   my ($self) = @_;
   return join qq{\n}, $self->pod_leader_text, $self->pod_option_text, $self->pod_authorlic_text;
@@ -44,17 +39,13 @@ sub pod_leader_text {
 
 sub pod_authorlic_text {
 
-  return <<'EOA'
-=head1 AUTHORS
-
-See L<DBIx::Class/CONTRIBUTORS>
-
-=head1 LICENSE
-
-You may distribute this code under the same terms as Perl itself
-
-=cut
-EOA
+  return join ("\n\n",
+    '=head1 AUTHORS',
+    'See L<DBIx::Class/CONTRIBUTORS>',
+    '=head1 LICENSE',
+    'You may distribute this code under the same terms as Perl itself',
+    '=cut',
+  );
 }