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 {
}
+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) = @_;