view release on metacpan or  search on metacpan

lib/Perl/Maker.pm  view on Meta::CPAN

    while (1) {
        if (not @args) {
            $hash->{action} = 'help';
            last;
        }
        if ($args[0] !~ /^-/) {
            $hash->{action} = shift(@args);
            last;
        }
        local @ARGV = @args;
        GetOptions(               

        );
        @args = @ARGV;
    }
    $hash->{file} = shift(@args) || '';
    die "Extra arguments '@args'\n" if @args;

    $class->$orig($hash);
};