X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FGetopt%2FDashes.pm;fp=lib%2FMooseX%2FGetopt%2FDashes.pm;h=ef6a55976085c1d8b32bc05d97675c207b5c3d0e;hb=669588e263ff229c94d602596f23cc91deefed75;hp=bb8a9bb2f9a90fc31c86fdab1ab5d3c28293e89f;hpb=fff9a1f87fa035f2810fd2f621c71d8ff94590e6;p=gitmo%2FMooseX-Getopt.git

diff --git a/lib/MooseX/Getopt/Dashes.pm b/lib/MooseX/Getopt/Dashes.pm
index bb8a9bb..ef6a559 100644
--- a/lib/MooseX/Getopt/Dashes.pm
+++ b/lib/MooseX/Getopt/Dashes.pm
@@ -1,4 +1,6 @@
 package MooseX::Getopt::Dashes;
+# ABSTRACT: convert underscores in attribute names to dashes
+
 use Moose::Role;
 
 with 'MooseX::Getopt';
@@ -15,15 +17,9 @@ around _get_cmd_flags_for_attr => sub {
     return ( $flag, @aliases );
 };
 
-1;
-
-__END__
+no Moose::Role;
 
-=pod
-
-=head1 NAME
-
-MooseX::Getopt::Dashes - convert underscores in attribute names to dashes
+1;
 
 =head1 SYNOPSIS
 
@@ -59,37 +55,4 @@ a L<cmd_flag|MooseX::Getopt::Meta::Attribute/METHODS> argument with
 the command flag you'd like for a given attribute. No underscore to
 dash replacement will be done on the C<cmd_flag>.
 
-=head1 METHODS
-
-=over 4
-
-=item meta
-
-=back
-
-=head1 BUGS
-
-All complex software has bugs lurking in it, and this module is no
-exception. If you find a bug please either email me, or add the bug
-to cpan-RT.
-
-=head1 AUTHOR
-
-Dagfinn Ilmari MannsE<aring>ker E<lt>ilmari@ilmari.orgE<gt>
-
-Stevan Little E<lt>stevan@iinteractive.comE<gt>
-
-Yuval Kogman  C<< <nuffin@cpan.org> >>
-
-E<AElig>var ArnfjE<ouml>rE<eth> Bjarmason E<lt>avar@cpan.orgE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2007-2008 by Infinity Interactive, Inc.
-
-L<http://www.iinteractive.com>
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
 =cut