also treat "-h" as a request for help

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

diff --git a/lib/MooseX/Getopt/GLD.pm b/lib/MooseX/Getopt/GLD.pm
index d5a49de..2f74f95 100644 (file)
--- a/lib/MooseX/Getopt/GLD.pm
+++ b/lib/MooseX/Getopt/GLD.pm
@@ -22,12 +22,12 @@ role {
         traits => ['NoGetopt'],
     );
 
-    # captures the options: --help --usage --? -?
+    # captures the options: --help --usage --? -? -h
     has help_flag => (
         is => 'ro', isa => 'Bool',
         traits => ['Getopt'],
         cmd_flag => 'help',
-        cmd_aliases => [ qw(usage ?) ],
+        cmd_aliases => [ qw(usage ? h) ],
         documentation => 'Prints this usage information.',
     );