view release on metacpan or  search on metacpan

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

    $callme->($usage_writer);
    close( $usage_writer );
    my $r = <$usage_reader>;
    close( $usage_reader );
    return $r;
}

sub test_parse_command_line {
    my ( $params, $cli ) = @_;

    local @ARGV = split( m/ +/, $cli );
    local $SIG{__WARN__} = sub {};
    my ( $op, $config ) = parse_command_line( $params );
    ok( $op && $config, $cli );
    return ( $op, $config );
}

#########################

use constant STATUS_REGEX => qr/(OPEN|CLOSED|HOLD)/;
use constant TICKET_REGEX => qr/(\d+)/;