_usage_format method

diff --git a/lib/MooseX/Getopt.pm b/lib/MooseX/Getopt.pm
index 0e23360..89e55b8 100644 (file)
--- a/lib/MooseX/Getopt.pm
+++ b/lib/MooseX/Getopt.pm
@@ -55,7 +55,7 @@ sub _parse_argv {
 
     my ( $parsed_options, $usage ) = eval {
         local $SIG{__WARN__} = sub { push @err, @_ };
-        Getopt::Long::Descriptive::describe_options("usage: %c %o", @$opt_spec)
+        Getopt::Long::Descriptive::describe_options($class->_usage_format(%params), @$opt_spec)
     };
 
     die join "", grep { defined } @err, $@ if @err or $@;
@@ -77,6 +77,10 @@ sub _parse_argv {
     );
 }
 
+sub _usage_format {
+    return "usage: %c %o";
+}
+
 sub _gld_spec {
     my ( $class, %params ) = @_;