gistfile1.pl

#!/usr/bin/perl

package Options;
use Mouse;
with 'MouseX::Getopt';

has 'help' => (
  is      => 'rw',
  isa     => 'Bool',
  default => 0,
);

package main;
use Pod::Usage;

my $opt = Options->new_with_options;
pod2usage(2) if $opt->help;

__END__

=head1 NAME

sample - Using MouseX::Getopt and Pod::Usage

=head1 SYNOPSIS

sample [options]

 Options:
   -h,--help        brief help message

=cut