view release on metacpan or  search on metacpan

lib/Pegex/Cmd.pm  view on Meta::CPAN

    print <<"...";
The 'pegex' compiler command v$VERSION

Using the Perl Pegex module v$Pegex::VERSION
...
}

sub getopt {
    my ($self, @argv) = @_;

    local @ARGV = @argv;

    GetOptions(
        "to=s" => \$self->{to},
        "boot" => \$self->{boot},
    ) or error;

    if (not @ARGV) {
        print usage;
        exit 0;
    }