use OO syntax for handling subref

[gitmo/MooseX-Getopt.git] / lib / MooseX / Getopt / Dashes.pm

diff --git a/lib/MooseX/Getopt/Dashes.pm b/lib/MooseX/Getopt/Dashes.pm
index ffad599..ef6a559 100644 (file)
--- 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,50 +17,42 @@ around _get_cmd_flags_for_attr => sub {
     return ( $flag, @aliases );
 };
 
+no Moose::Role;
+
 1;
 
-__END__
+=head1 SYNOPSIS
 
-=pod
+  package My::App;
+  use Moose;
+  with 'MooseX::Getopt::Dashes';
 
-=head1 NAME
+  # Will be called as --some-thingy, not --some_thingy
+  has 'some_thingy' => (
+      is      => 'ro',
+      isa     => 'Str',
+      default => 'foo'
+  );
 
-MooseX::Getopt::Dashes - convert underscores in attribute names to dashes
+  # Will be called as --another_thingy, not --another-thingy
+  has 'another_thingy' => (
+      traits   => [ 'Getopt' ],
+      cmd_flag => 'another_thingy'
+      is       => 'ro',
+      isa      => 'Str',
+      default  => 'foo'
+  );
+
+  # use as MooseX::Getopt
 
 =head1 DESCRIPTION
 
 This is a version of C<MooseX::Getopt> which converts underscores in
 attribute names to dashes when generating command line flags.
 
-=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> >>
-
-=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.
+You can selectively disable this on a per-attribute basis by supplying
+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>.
 
 =cut