view release on metacpan or  search on metacpan

bin/pjstruct  view on Meta::CPAN

use constant {
    EXIT_SUCCESS => 0,
    EXIT_INVALID => 1,
    EXIT_ERROR   => 2,
};

# Main entry point
exit main(@ARGV);

sub main (@args) {
    local @ARGV = @args;
    
    # Global options
    my %opts = (
        format  => 'text',
        quiet   => 0,
        verbose => 0,
        help    => 0,
        version => 0,
    );