view release on metacpan or  search on metacpan

README  view on Meta::CPAN

        use Getopt::Usaginator ...

        sub run {
            my $self = shift;
            my @arguments = @_;
    
            usage 0 unless @arguments;

            my ( $help );
            {     
                local @ARGV = @arguments;                                  
                GetOptions(
                    'help|h|?' => \$help,
                );
            }

            usage 0 if $help;

            ...
        }

lib/Getopt/Usaginator.pm  view on Meta::CPAN

    use Getopt::Usaginator ...

    sub run {
        my $self = shift;
        my @arguments = @_;
    
        usage 0 unless @arguments;

        my ( $help );
        {     
            local @ARGV = @arguments;                                  
            GetOptions(
                'help|h|?' => \$help,
            );
        }

        usage 0 if $help;

        ...
    }