package MooseX::Getopt::Dashes;
+# ABSTRACT: convert underscores in attribute names to dashes
+
use Moose::Role;
with 'MooseX::Getopt';
return ( $flag, @aliases );
};
-1;
-
-__END__
+no Moose::Role;
-=pod
-
-=head1 NAME
-
-MooseX::Getopt::Dashes - convert underscores in attribute names to dashes
+1;
=head1 SYNOPSIS
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