[Bast-commits] r8805 - DBIx-Class/0.08/trunk/lib/DBIx/Class/Admin

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-02-23 13:03:20 +0000 (Tue, 23 Feb 2010)
New Revision: 8805

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Admin/Usage.pm
Log:
remove POD

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Admin/Usage.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Admin/Usage.pm	2010-02-23 11:01:31 UTC (rev 8804)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Admin/Usage.pm	2010-02-23 13:03:20 UTC (rev 8805)
@@ -22,13 +22,8 @@
 }
 
 
-=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_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',
+  );
 }