[Bast-commits] r8785 - DBIx-Class/0.08/branches/dbicadmin_pod/lib/DBIx/Class/Admin

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-02-21 12:36:35 +0000 (Sun, 21 Feb 2010)
New Revision: 8785

Modified:
   DBIx-Class/0.08/branches/dbicadmin_pod/lib/DBIx/Class/Admin/Usage.pm
Log:
Add license/author to dbicadmin autogen POD

Modified: DBIx-Class/0.08/branches/dbicadmin_pod/lib/DBIx/Class/Admin/Usage.pm
===================================================================
--- DBIx-Class/0.08/branches/dbicadmin_pod/lib/DBIx/Class/Admin/Usage.pm	2010-02-21 12:30:32 UTC (rev 8784)
+++ DBIx-Class/0.08/branches/dbicadmin_pod/lib/DBIx/Class/Admin/Usage.pm	2010-02-21 12:36:35 UTC (rev 8785)
@@ -31,7 +31,7 @@
 
 sub pod {
   my ($self) = @_;
-  return join qq{\n}, $self->pod_leader_text, $self->pod_option_text;
+  return join qq{\n}, $self->pod_leader_text, $self->pod_option_text, $self->pod_authorlic_text;
 }
 
 sub pod_leader_text {
@@ -42,7 +42,20 @@
 
 }
 
+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
+EOA
+}
+
+
 sub pod_option_text {
   my ($self) = @_;
   my @options = @{ $self->{options} || [] };