with 'MooseX::Getopt::Basic';
+has usage => (
+ is => 'rw', isa => 'Getopt::Long::Descriptive::Usage',
+ traits => ['NoGetopt'],
+);
+
+# captures the options: --help --usage --?
+has help_flag => (
+ is => 'ro', isa => 'Bool',
+ traits => ['Getopt'],
+ cmd_flag => 'help',
+ cmd_aliases => [ qw(usage ?) ],
+ documentation => 'Prints this usage information.',
+);
+
around _getopt_spec => sub {
shift;
shift->_gld_spec(@_);