Add license/author to dbicadmin autogen POD
Peter Rabbitson [Sun, 21 Feb 2010 12:36:35 +0000 (12:36 +0000)]
lib/DBIx/Class/Admin/Usage.pm

index d3e16e5..9cae79b 100644 (file)
@@ -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) = @_;