X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FAdmin%2FUsage.pm;h=6aabfd9dbd3d333f71459577740f4f5a2dbf7e94;hb=d71502b;hp=ddd925a204b1c3d941e8bdd2ca4016ff402f00d2;hpb=7901452a18e3accbb8b6080bee3f90f97c16e18a;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Admin/Usage.pm b/lib/DBIx/Class/Admin/Usage.pm index ddd925a..6aabfd9 100644 --- a/lib/DBIx/Class/Admin/Usage.pm +++ b/lib/DBIx/Class/Admin/Usage.pm @@ -1,13 +1,13 @@ package # hide from PAUSE DBIx::Class::Admin::Usage; +use warnings; +use strict; use base 'Getopt::Long::Descriptive::Usage'; use base 'Class::Accessor::Grouped'; -use Class::C3; - __PACKAGE__->mk_group_accessors('simple', 'synopsis', 'short_description'); sub prog_name { @@ -68,7 +68,7 @@ sub pod_option_text { $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"; }