From: Peter Rabbitson <ribasushi@cpan.org>
Date: Sun, 21 Feb 2010 12:36:35 +0000 (+0000)
Subject: Add license/author to dbicadmin autogen POD
X-Git-Tag: v0.08120~15^2~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fd576c431ab5e0454b442a5d004dbe9a077f1c14;p=dbsrgits%2FDBIx-Class.git

Add license/author to dbicadmin autogen POD
---

diff --git a/lib/DBIx/Class/Admin/Usage.pm b/lib/DBIx/Class/Admin/Usage.pm
index d3e16e5..9cae79b 100644
--- a/lib/DBIx/Class/Admin/Usage.pm
+++ b/lib/DBIx/Class/Admin/Usage.pm
@@ -31,7 +31,7 @@ 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;
+  return join qq{\n}, $self->pod_leader_text, $self->pod_option_text, $self->pod_authorlic_text;
 }
 
 sub pod_leader_text {
@@ -42,6 +42,19 @@ 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
+EOA
+}
+
 
 sub pod_option_text {
   my ($self) = @_;