Schema Object Naming Rules :

[dbsrgits/DBIx-Class-Historic.git] / lib / DBIx / Class / Admin / Usage.pm

diff --git a/lib/DBIx/Class/Admin/Usage.pm b/lib/DBIx/Class/Admin/Usage.pm
index d3e16e5..291fd1e 100644 (file)
--- 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,21 @@ 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
+}
+
 
 sub pod_option_text {
   my ($self) = @_;