view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

pad_leavemy|||
pad_new|||
pad_push|||
pad_reset|||
pad_setsv|||
pad_sv|||
pad_swipe|||
pad_tidy|||
pad_undef|||
parse_body|||
parse_unicode_opts|||
path_is_absolute|||
peep|||
pending_ident|||
perl_alloc_using|||n
perl_alloc|||n
perl_clone_using|||n
perl_clone|||n
perl_construct|||n
perl_destruct||5.007003|n
perl_free|||n

t/CGI-Deurl-XS.t  view on Meta::CPAN

    is(scalar @vals, 3,                                 'multi_3vals');
    is($vals[0], 1,                                     'multi_2key_a');
    is($vals[1], 3,                                     'multi_2key_b');
    is($vals[2], 4,                                     'multi_2key_c');
}

is(parse_query_string("foo=b+ar")->{foo}, 'b ar',       'space');

is(parse_query_string("foo=ba\%72")->{foo}, 'bar',      'escape_a');

# unicode
{
    use utf8;
    my $s = parse_query_string("foo=bar%E0%B2%A0xyz")->{foo};
    utf8::decode($s);
    is($s, "barಠxyz", 'escape_no_u');
}

{
    # support for %uXXXX produced by javascript's escape()
    my $s = parse_query_string("foo=bar\%u1000")->{foo};