The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl
package HideOptions;

use Moose;
with 'MooseX::Getopt::Usage';
with 'MooseX::Getopt::Usage::Role::Man';

sub getopt_usage_config {
    return (
        usage_sections => ["SYNOPSIS"],
        man_sections   => ["!OPTIONS"],
    );
}

=pod

=head1 NAME

hide_options - Test hiding options.

=head1 SYNOPSIS

 %c [OPTIONS] [MANS]

=head1 DESCRIPTION

Test hiding the OPTIONS section (auto generated) via selector.

=head1 AUTHOR

Invader Flobee 

=cut

1;

package main;
HideOptions->new_with_options;