view release on metacpan or  search on metacpan

t/Getopt-Tree.t  view on Meta::CPAN

        if   ( $v =~ /hold/i ) { return 'On Hold' }
        else                   { return ucfirst( lc( $v ) ) }
    };

    $p = [
        { name => 'debug', abbr => 'd', exists => 1, optional => 1, descr => 'Enable debugging output.' },
        {
            name     => 'user',
            abbr     => 'u',
            optional => 1,
            descr    => 'Ticketing username, defaults to scalar(getpwuid($<)).'
        },
        {
            name     => 'no-cache',
            abbr     => 'nc',
            exists   => 1,
            optional => 1,
            descr    => 'Don\'t cache your credentials in /tmp/.'
        },
        {
            name     => 'qa',