package # hide from PAUSE
DBIx::Class::Admin::Usage;
+use warnings;
+use strict;
use base 'Getopt::Long::Descriptive::Usage';
-# This returns the usage formated as a pod document
+# This returns the usage formatted as a pod document
sub pod {
my ($self) = @_;
return join qq{\n}, $self->pod_leader_text, $self->pod_option_text, $self->pod_authorlic_text;
return join ("\n\n",
'=head1 AUTHORS',
- 'See L<DBIx::Class/CONTRIBUTORS>',
+ 'See L<DBIx::Class/AUTHORS>',
'=head1 LICENSE',
'You may distribute this code under the same terms as Perl itself',
'=cut',
$spec = Getopt::Long::Descriptive->_strip_assignment($spec);
$string .= "=item " . join " or ", map { length > 1 ? "B<--$_>" : "B<-$_>" }
- split /\|/, $spec;
+ split /\|/, $spec;
$string .= "\n\n$desc\n\n=cut\n\n";
}