view release on metacpan or  search on metacpan

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

90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
    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;
    }