.include 'cclass.pasm'
.include 'except_severity.pasm'
.include 'except_types.pasm'
.include 'iglobals.pasm'
.include 'interpinfo.pasm'
.include 'iterator.pasm'
.include 'sysinfo.pasm'
.include 'stat.pasm'
.include 'datatypes.pasm'
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_22_1372810513.70507") :anon :lex
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/Escape.pm"
.annotate 'line', 1
    .const 'Sub' $P5003 = 'cuid_1_1372810513.70507' 
    capture_lex $P5003 
    .const 'Sub' $P5001 = 'cuid_1_1372810513.70507' 
    capture_lex $P5001
    $P5002 = $P5001()
    .return ($P5002) 
.end
.loadlib "nqp_group"
.loadlib "nqp_ops"
.loadlib "perl6_group"
.loadlib "perl6_ops"
.loadlib "bit_ops"
.loadlib "math_ops"
.loadlib "trans_ops"
.loadlib "io_ops"
.loadlib "obscure_ops"
.loadlib "os"
.loadlib "file"
.loadlib "sys_ops"
.loadlib "nqp_bigint_ops"
.loadlib "nqp_dyncall_ops"
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_1_1372810513.70507") :anon :lex :outer("cuid_22_1372810513.70507")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/Escape.pm"
.annotate 'line', 1
    .const 'Sub' $P5005 = 'cuid_2_1372810513.70507' 
    capture_lex $P5005 
    .lex "GLOBALish", $P101 
    .lex "EXPORT", $P102 
    .lex "$?PACKAGE", $P103 
    .lex "::?PACKAGE", $P104 
    .lex "$_", $P105 
    .lex "$/", $P106 
    .lex "$!", $P107 
    .lex "URI", $P108 
    .lex "$=pod", $P109 
    .lex "!UNIT_MARKER", $P110 
    .local pmc ctxsave 
    find_dynamic_lex $P5004, "$*CTXSAVE"
    set ctxsave, $P5004
    isnull $I5001, ctxsave
    if $I5001 goto unless10_end11 
    can $I5002, ctxsave, "ctxsave"
    perl6_box_int $P5007, $I5002
    set $P5006, $P5007
    unless $I5002 goto if11_end13 
    $P5005 = ctxsave."ctxsave"()
    set $P5006, $P5005
  if11_end13:
  unless10_end11:
    nqp_get_sc_object $P5004, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 129
    .const 'Sub' $P5005 = 'cuid_2_1372810513.70507' 
    capture_lex $P5005
    $P5006 = $P5005()
    nqp_get_sc_object $P5007, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 5
    .return ($P5007) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_2_1372810513.70507") :anon :lex :outer("cuid_1_1372810513.70507")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/Escape.pm"
.annotate 'line', 3
    .const 'Sub' $P5008 = 'cuid_3_1372810513.70507' 
    capture_lex $P5008 
    .const 'Sub' $P5008 = 'cuid_8_1372810513.70507' 
    capture_lex $P5008 
    .const 'Sub' $P5008 = 'cuid_10_1372810513.70507' 
    capture_lex $P5008 
    .lex "$?PACKAGE", $P101 
    .lex "::?PACKAGE", $P102 
    .lex "$_", $P103 
    .lex "%escapes", $P104 
    .lex "&uri_escape", $P105 
    .lex "&uri_unescape", $P106 
    .local pmc _inline_arg_3 
    .const 'Sub' $P5002 = 'cuid_3_1372810513.70507' 
    capture_lex $P5002
    .const 'Sub' $P5003 = 'cuid_8_1372810513.70507' 
    capture_lex $P5003
    $P5003 = $P105."clone"()
    set $P105, $P5003
    .const 'Sub' $P5004 = 'cuid_10_1372810513.70507' 
    capture_lex $P5004
    $P5004 = $P106."clone"()
    set $P106, $P5004
.annotate 'line', 7

    nqp_get_sc_object $P5006, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 9
    set _inline_arg_3, $P5006
    nqp_get_sc_object $P5009, "5C7C172868FA9510BA84BFF074E73D635E54D9D3", 2184
    nqp_get_sc_object $P5010, "5C7C172868FA9510BA84BFF074E73D635E54D9D3", 632
    $P5012 = _inline_arg_3."Numeric"()
    perl6ize_type $P5011, $P5012
    perl6_booleanize $P5013, 1
    $P5014 = $P5009."new"($P5010, $P5011, $P5013 :named("excludes_max"))
    perl6ize_type $P5008, $P5014
    perl6_decontainerize_return_value $P5007, $P5008
    nqp_get_sc_object $P5008, "5C7C172868FA9510BA84BFF074E73D635E54D9D3", 11208
    perl6_type_check_return_value $P5007, $P5008
    nqp_get_sc_object $P5009, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 10
    $P5010 = $P5009."clone"()
    perl6_capture_lex $P5010
    $P5011 = $P5007."map"($P5010)
    perl6ize_type $P5005, $P5011
    $P104."STORE"($P5005)
.annotate 'line', 11
    nqp_get_sc_object $P5006, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 15
    $P5007 = $P104."postcircumfix:<{ }>"($P5006)
    perl6ize_type $P5005, $P5007
    nqp_get_sc_object $P5008, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 16
    perl6_container_store $P5005, $P5008
    null $P5005
    nqp_get_sc_object $P5006, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 50
    $P5007 = $P5006."clone"()
    perl6_capture_lex $P5007
    .return ($P5007) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_3_1372810513.70507") :anon :lex :outer("cuid_2_1372810513.70507")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/Escape.pm"
.annotate 'line', 7
    .param pmc CALL_SIG :call_sig 
    .lex "$_", $P101 
    .lex "call_sig", $P102 
    .lex "$*DISPATCHER", $P103 
    perl6_take_dispatcher 
    set $P5002, CALL_SIG
    set $P102, $P5002
    bind_signature 
.annotate 'line', 9
    find_lex $P5005, "$_"
    $P5006 = $P5005."chr"()
    perl6ize_type $P5004, $P5006
    nqp_get_sc_object $P5007, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 11
    find_lex $P5008, "$_"
    $P5009 = "&sprintf"($P5007, $P5008)
    $P5010 = "&infix:<=>>"($P5004, $P5009)
    .return ($P5010) 
.end
.HLL "perl6"
.namespace []
.sub "uri_escape" :subid("cuid_8_1372810513.70507") :anon :lex :outer("cuid_2_1372810513.70507")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/Escape.pm"
.annotate 'line', 19
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5012 = 'cuid_4_1372810513.70507' 
    capture_lex $P5012 
    .const 'Sub' $P5012 = 'cuid_5_1372810513.70507' 
    capture_lex $P5012 
    .const 'Sub' $P5012 = 'cuid_7_1372810513.70507' 
    capture_lex $P5012 
    .lex "$s", $P101 
    .lex "$no_utf8", $P102 
    .lex "$_", $P103 
    .lex "$/", $P104 
    .lex "$!", $P105 
    .lex "call_sig", $P106 
    .lex "$*DISPATCHER", $P107 
    .lex "&?ROUTINE", $P108 
    perl6_take_dispatcher 
    .const 'Sub' $P5001 = 'cuid_4_1372810513.70507' 
    capture_lex $P5001
    .const 'Sub' $P5005 = 'cuid_5_1372810513.70507' 
    capture_lex $P5005
    .const 'Sub' $P5006 = 'cuid_7_1372810513.70507' 
    capture_lex $P5006
    set $P5007, CALL_SIG
    set $P106, $P5007
    bind_signature 
    root_new $P109, ['parrot';'Continuation']
    set_label $P109, lexotic_40
    .lex "RETURN", $P109
.annotate 'line', 20
    find_lex $P5011, "&defined"
    perl6_multi_dispatch_thunk $P5010, $P5011
    $P5012 = $P5010($P101)
    if $P5012 goto unless19_else42 
    $P5013 = "&return"($P101)
    goto unless19_end43
  unless19_else42:
    find_lex $P5014, "Nil"
  unless19_end43:
.annotate 'line', 21
    perl6_booleanize $P5011, 1
    nqp_get_sc_object $P5012, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 22
    $P5013 = $P5012."clone"()
    perl6_capture_lex $P5013
    nqp_get_sc_object $P5014, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 28
    $P5015 = $P5014."clone"()
    perl6_capture_lex $P5015
    $P5016 = $P101."subst"($P5013, $P5015, $P5011 :named("g"))
    perl6ize_type $P5010, $P5016
    perl6_decontainerize_return_value $P5009, $P5010
    goto lexotic_41
  lexotic_40:
    .get_results ($P5009)
  lexotic_41:
    find_lex $P5010, "&EXHAUST"
    store_lex "RETURN", $P5010
    nqp_get_sc_object $P5011, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 17
    perl6_type_check_return_value $P5009, $P5011
    .return ($P5009) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_4_1372810513.70507") :anon :lex :outer("cuid_8_1372810513.70507")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/Escape.pm"
.annotate 'line', 19

    perl6_booleanize $P5001, 0
    .return ($P5001) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_5_1372810513.70507") :anon :lex :outer("cuid_8_1372810513.70507")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/Escape.pm"
.annotate 'line', 21
    .param pmc CALL_SIG :call_sig 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex utf8:"$\x{a2}", $P103 
    .lex "$?REGEX", $P104 
    .lex "call_sig", $P105 
    .lex "$*DISPATCHER", $P106 
    .local pmc self 
    perl6_take_dispatcher 
    getinterp $P5003
    set $P5003, $P5003['sub']
    perl6_code_object_from_parrot_sub $P5002, $P5003
    set $P104, $P5002
    set $P5004, CALL_SIG
    set $P105, $P5004
    bind_signature 
    set self, $P101
    .local string rx12_tgt
    .local int rx12_pos
    .local int rx12_off
    .local int rx12_eos
    .local int rx12_rep
    .local pmc rx12_cur
    .local pmc rx12_curclass
    .local pmc rx12_bstack
    .local pmc rx12_cstack
    (rx12_cur, rx12_tgt, rx12_pos, rx12_curclass, rx12_bstack, $I19) = self."!cursor_start"()
    store_lex unicode:"$\x{a2}", rx12_cur
    length rx12_eos, rx12_tgt
    eq $I19, 1, rx12_restart16
    gt rx12_pos, rx12_eos, rx12_fail17
    repr_get_attr_int $I11, self, rx12_curclass, "$!from"
    ne $I11, -1, rxscan13_done23
    goto rxscan13_scan22
  rxscan13_loop21:
    inc rx12_pos
    gt rx12_pos, rx12_eos, rx12_fail17
    repr_bind_attr_int rx12_cur, rx12_curclass, "$!from", rx12_pos
  rxscan13_scan22:
    nqp_rxmark rx12_bstack, rxscan13_loop21, rx12_pos, 0
  rxscan13_done23:
    nqp_rxmark rx12_bstack, rxconj14_fail24, rx12_pos, 0
    goto rxconj14_first25
  rxconj14_fail24:
    goto rx12_fail17
  rxconj14_first25:
    add $I11, rx12_pos, 1
    gt $I11, rx12_eos, rx12_fail17
    substr $S10, rx12_tgt, rx12_pos, 1
    eq $S10, ucs4:"-", rx12_fail17
    add rx12_pos, 1
    nqp_rxpeek $I19, rx12_bstack, rxconj14_fail24
    inc $I19
    set $I11, rx12_bstack[$I19]
    nqp_rxmark rx12_bstack, rxconj14_fail24, $I11, rx12_pos
    set rx12_pos, $I11
    ge rx12_pos, rx12_eos, rx12_fail17
    substr $S11, rx12_tgt, rx12_pos, 1
    index $I11, ucs4:"!*'()._~ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789", $S11
    ge $I11, 0, rx12_fail17
    inc rx12_pos
    nqp_rxpeek $I19, rx12_bstack, rxconj14_fail24
    inc $I19
    set $I11, rx12_bstack[$I19]
    inc $I19
    set $I12, rx12_bstack[$I19]
    ne rx12_pos, $I12, rx12_fail17
    set rx12_pos, $I11
    ge rx12_pos, rx12_eos, rx12_fail17
    add rx12_pos, 1
    rx12_cur."!cursor_pass"(rx12_pos, 'backtrack'=>1)
    .return (rx12_cur)
  rx12_restart16:
    repr_get_attr_obj rx12_cstack, rx12_cur, rx12_curclass, "$!cstack"
  rx12_fail17:
    unless rx12_bstack, rx12_done15
    pop $I19, rx12_bstack
    if_null rx12_cstack, rx12_cstack_done20
    unless rx12_cstack, rx12_cstack_done20
    dec $I19
    set $P11, rx12_cstack[$I19]
  rx12_cstack_done20:
    pop rx12_rep, rx12_bstack
    pop rx12_pos, rx12_bstack
    pop $I19, rx12_bstack
    lt rx12_pos, -1, rx12_done15
    lt rx12_pos, 0, rx12_fail17
    eq $I19, 0, rx12_fail17
    nqp_islist $I20, rx12_cstack
    unless $I20, rx12_jump18
    elements $I18, rx12_bstack
    le $I18, 0, rx12_cut19
    dec $I18
    set $I18, rx12_bstack[$I18]
  rx12_cut19:
    assign rx12_cstack, $I18
  rx12_jump18:
    jump $I19
  rx12_done15:
    rx12_cur."!cursor_fail"()
    .return (rx12_cur) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_7_1372810513.70507") :anon :lex :outer("cuid_8_1372810513.70507")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/Escape.pm"
.annotate 'line', 22
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5005 = 'cuid_6_1372810513.70507' 
    capture_lex $P5005 
    .lex "$_", $P101 
    .lex "call_sig", $P102 
    .lex "$*DISPATCHER", $P103 
    perl6_take_dispatcher 
    .const 'Sub' $P5001 = 'cuid_6_1372810513.70507' 
    capture_lex $P5001
    set $P5003, CALL_SIG
    set $P102, $P5003
    bind_signature 
.annotate 'line', 23
    find_lex $P5005, "$no_utf8"
    set $P5017, $P5005
    if $P5005 goto unless18_end39 
    nqp_get_sc_object $P5010, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 29
    find_lex $P5012, "$_"
    $P5013 = $P5012."Str"()
    perl6ize_type $P5011, $P5013
    $P5014 = "&ord"($P5011)
    find_lex $P5009, "&infix:<+&>"
    perl6_multi_dispatch_thunk $P5008, $P5009
    $P5015 = $P5008($P5010, $P5014)
    find_lex $P5007, "&prefix:<not>"
    perl6_multi_dispatch_thunk $P5006, $P5007
    $P5016 = $P5006($P5015)
    set $P5017, $P5016
  unless18_end39:
    unless $P5017 goto if17_else36 
    find_lex $P5019, "%escapes"
    find_lex $P5021, "$_"
    $P5022 = $P5021."Str"()
    perl6ize_type $P5020, $P5022
    $P5023 = $P5019."postcircumfix:<{ }>"($P5020)
    perl6ize_type $P5018, $P5023
    set $P5045, $P5018
    goto if17_end37
  if17_else36:
.annotate 'line', 25
    nqp_get_sc_object $P5026, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 30
    find_lex $P5033, "$_"
    $P5034 = $P5033."Str"()
    perl6ize_type $P5032, $P5034
    $P5035 = $P5032."encode"()
    perl6ize_type $P5031, $P5035
    nqp_get_sc_object $P5036, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 31
    $P5037 = $P5031."unpack"($P5036)
    perl6ize_type $P5030, $P5037
    $P5038 = $P5030."uc"()
    perl6ize_type $P5029, $P5038
    nqp_get_sc_object $P5039, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 32
    $P5040 = $P5039."clone"()
    perl6_capture_lex $P5040
    $P5041 = $P5029."comb"($P5040)
    perl6ize_type $P5028, $P5041
    nqp_get_sc_object $P5042, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 30
    $P5043 = $P5028."join"($P5042)
    perl6ize_type $P5027, $P5043
    find_lex $P5025, "&infix:<~>"
    perl6_multi_dispatch_thunk $P5024, $P5025
    $P5044 = $P5024($P5026, $P5027)
    set $P5045, $P5044
  if17_end37:
    .return ($P5045) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_6_1372810513.70507") :anon :lex :outer("cuid_7_1372810513.70507")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/Escape.pm"
.annotate 'line', 25
    .param pmc CALL_SIG :call_sig 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex utf8:"$\x{a2}", $P103 
    .lex "$?REGEX", $P104 
    .lex "call_sig", $P105 
    .lex "$*DISPATCHER", $P106 
    .local pmc self 
    perl6_take_dispatcher 
    getinterp $P5003
    set $P5003, $P5003['sub']
    perl6_code_object_from_parrot_sub $P5002, $P5003
    set $P104, $P5002
    set $P5004, CALL_SIG
    set $P105, $P5004
    bind_signature 
    set self, $P101
    .local string rx15_tgt
    .local int rx15_pos
    .local int rx15_off
    .local int rx15_eos
    .local int rx15_rep
    .local pmc rx15_cur
    .local pmc rx15_curclass
    .local pmc rx15_bstack
    .local pmc rx15_cstack
    (rx15_cur, rx15_tgt, rx15_pos, rx15_curclass, rx15_bstack, $I19) = self."!cursor_start"()
    store_lex unicode:"$\x{a2}", rx15_cur
    length rx15_eos, rx15_tgt
    eq $I19, 1, rx15_restart28
    gt rx15_pos, rx15_eos, rx15_fail29
    repr_get_attr_int $I11, self, rx15_curclass, "$!from"
    ne $I11, -1, rxscan16_done35
    goto rxscan16_scan34
  rxscan16_loop33:
    inc rx15_pos
    gt rx15_pos, rx15_eos, rx15_fail29
    repr_bind_attr_int rx15_cur, rx15_curclass, "$!from", rx15_pos
  rxscan16_scan34:
    nqp_rxmark rx15_bstack, rxscan16_loop33, rx15_pos, 0
  rxscan16_done35:
    ge rx15_pos, rx15_eos, rx15_fail29
    add rx15_pos, 1
    ge rx15_pos, rx15_eos, rx15_fail29
    add rx15_pos, 1
    rx15_cur."!cursor_pass"(rx15_pos, 'backtrack'=>1)
    .return (rx15_cur)
  rx15_restart28:
    repr_get_attr_obj rx15_cstack, rx15_cur, rx15_curclass, "$!cstack"
  rx15_fail29:
    unless rx15_bstack, rx15_done27
    pop $I19, rx15_bstack
    if_null rx15_cstack, rx15_cstack_done32
    unless rx15_cstack, rx15_cstack_done32
    dec $I19
    set $P11, rx15_cstack[$I19]
  rx15_cstack_done32:
    pop rx15_rep, rx15_bstack
    pop rx15_pos, rx15_bstack
    pop $I19, rx15_bstack
    lt rx15_pos, -1, rx15_done27
    lt rx15_pos, 0, rx15_fail29
    eq $I19, 0, rx15_fail29
    nqp_islist $I20, rx15_cstack
    unless $I20, rx15_jump30
    elements $I18, rx15_bstack
    le $I18, 0, rx15_cut31
    dec $I18
    set $I18, rx15_bstack[$I18]
  rx15_cut31:
    assign rx15_cstack, $I18
  rx15_jump30:
    jump $I19
  rx15_done27:
    rx15_cur."!cursor_fail"()
    .return (rx15_cur) 
.end
.HLL "perl6"
.namespace []
.sub "uri_unescape" :subid("cuid_10_1372810513.70507") :anon :lex :outer("cuid_2_1372810513.70507")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/Escape.pm"
.annotate 'line', 34
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5015 = 'cuid_9_1372810513.70507' 
    capture_lex $P5015 
    .const 'Sub' $P5015 = 'cuid_14_1372810513.70507' 
    capture_lex $P5015 
    .const 'Sub' $P5015 = 'cuid_15_1372810513.70507' 
    capture_lex $P5015 
    .const 'Sub' $P5015 = 'cuid_16_1372810513.70507' 
    capture_lex $P5015 
    .const 'Sub' $P5015 = 'cuid_20_1372810513.70507' 
    capture_lex $P5015 
    .const 'Sub' $P5015 = 'cuid_21_1372810513.70507' 
    capture_lex $P5015 
    .lex "@to_unesc", $P101 
    .lex "$no_utf8", $P102 
    .lex "$_", $P103 
    .lex "$/", $P104 
    .lex "$!", $P105 
    .lex "@rc", $P106 
    .lex "call_sig", $P107 
    .lex "$*DISPATCHER", $P108 
    .lex "&?ROUTINE", $P109 
    perl6_take_dispatcher 
    .const 'Sub' $P5001 = 'cuid_9_1372810513.70507' 
    capture_lex $P5001
    .const 'Sub' $P5005 = 'cuid_14_1372810513.70507' 
    capture_lex $P5005
    .const 'Sub' $P5006 = 'cuid_15_1372810513.70507' 
    capture_lex $P5006
    .const 'Sub' $P5007 = 'cuid_16_1372810513.70507' 
    capture_lex $P5007
    .const 'Sub' $P5008 = 'cuid_20_1372810513.70507' 
    capture_lex $P5008
    .const 'Sub' $P5009 = 'cuid_21_1372810513.70507' 
    capture_lex $P5009
    set $P5010, CALL_SIG
    set $P107, $P5010
    bind_signature 
    root_new $P110, ['parrot';'Continuation']
    set_label $P110, lexotic_86
    .lex "RETURN", $P110
.annotate 'line', 36

    nqp_get_sc_object $P5014, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 57
    $P5015 = $P5014."clone"()
    perl6_capture_lex $P5015
    $P5016 = $P101."map"($P5015)
    perl6ize_type $P5013, $P5016
    $P106."STORE"($P5013)
.annotate 'line', 42

    if $P102 goto unless41_else88 
    nqp_get_sc_object $P5014, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 84
    nqp_get_sc_object $P5015, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 83
    $P5016 = $P5015."clone"()
    perl6_capture_lex $P5016
    $P5017 = $P106."dispatch:<.=>"($P5014, $P5016)
    perl6ize_type $P5013, $P5017
    goto unless41_end89
  unless41_else88:
    find_lex $P5018, "Nil"
  unless41_end89:
.annotate 'line', 43
    nqp_get_sc_object $P5013, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 97
    $P5014 = $P5013()
    $P5015 = "&return"($P5014)
    perl6_decontainerize_return_value $P5012, $P5015
    goto lexotic_87
  lexotic_86:
    .get_results ($P5012)
  lexotic_87:
    find_lex $P5013, "&EXHAUST"
    store_lex "RETURN", $P5013
    nqp_get_sc_object $P5014, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 50
    perl6_type_check_return_value $P5012, $P5014
    .return ($P5012) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_9_1372810513.70507") :anon :lex :outer("cuid_10_1372810513.70507")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/Escape.pm"
.annotate 'line', 34

    perl6_booleanize $P5001, 0
    .return ($P5001) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_14_1372810513.70507") :anon :lex :outer("cuid_10_1372810513.70507")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/Escape.pm"
.annotate 'line', 36
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5006 = 'cuid_12_1372810513.70507' 
    capture_lex $P5006 
    .const 'Sub' $P5006 = 'cuid_13_1372810513.70507' 
    capture_lex $P5006 
    .lex "$_", $P101 
    .lex "call_sig", $P102 
    .lex "$*DISPATCHER", $P103 
    .local pmc _inline_arg_1 
    .local pmc _inline_arg_2 
    perl6_take_dispatcher 
    .const 'Sub' $P5001 = 'cuid_12_1372810513.70507' 
    capture_lex $P5001
    .const 'Sub' $P5002 = 'cuid_13_1372810513.70507' 
    capture_lex $P5002
    set $P5004, CALL_SIG
    set $P102, $P5004
    bind_signature 
.annotate 'line', 38
.annotate 'line', 37
    find_lex $P5008, "$_"
    nqp_get_sc_object $P5009, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 16
    set _inline_arg_1, $P5009
    nqp_get_sc_object $P5010, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 15
    set _inline_arg_2, $P5010
    nqp_get_sc_object $P5013, "5C7C172868FA9510BA84BFF074E73D635E54D9D3", 4
    $P5014 = $P5013."new"(_inline_arg_1 :named("key"), _inline_arg_2 :named("value"))
    perl6ize_type $P5012, $P5014
    perl6_decontainerize_return_value $P5011, $P5012
    nqp_get_sc_object $P5012, "5C7C172868FA9510BA84BFF074E73D635E54D9D3", 12592
    perl6_type_check_return_value $P5011, $P5012
    $P5013 = $P5008."trans"($P5011)
    perl6ize_type $P5007, $P5013
    perl6_booleanize $P5014, 1
    nqp_get_sc_object $P5015, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 61
    $P5016 = $P5015."clone"()
    perl6_capture_lex $P5016
    nqp_get_sc_object $P5017, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 67
    $P5018 = $P5017."clone"()
    perl6_capture_lex $P5018
    $P5019 = $P5007."subst"($P5016, $P5018, $P5014 :named("g"))
    perl6ize_type $P5006, $P5019
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_12_1372810513.70507") :anon :lex :outer("cuid_14_1372810513.70507")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/Escape.pm"
.annotate 'line', 38
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5006 = 'cuid_11_1372810513.70507' 
    capture_lex $P5006 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex utf8:"$\x{a2}", $P103 
    .lex "$?REGEX", $P104 
    .lex "call_sig", $P105 
    .lex "$*DISPATCHER", $P106 
    .local pmc self 
    perl6_take_dispatcher 
    getinterp $P5003
    set $P5003, $P5003['sub']
    perl6_code_object_from_parrot_sub $P5002, $P5003
    set $P104, $P5002
    set $P5004, CALL_SIG
    set $P105, $P5004
    bind_signature 
    set self, $P101
    .local string rx20_tgt
    .local int rx20_pos
    .local int rx20_off
    .local int rx20_eos
    .local int rx20_rep
    .local pmc rx20_cur
    .local pmc rx20_curclass
    .local pmc rx20_bstack
    .local pmc rx20_cstack
    (rx20_cur, rx20_tgt, rx20_pos, rx20_curclass, rx20_bstack, $I19) = self."!cursor_start"()
    store_lex unicode:"$\x{a2}", rx20_cur
    length rx20_eos, rx20_tgt
    eq $I19, 1, rx20_restart46
    gt rx20_pos, rx20_eos, rx20_fail47
    repr_get_attr_int $I11, self, rx20_curclass, "$!from"
    ne $I11, -1, rxscan21_done53
    goto rxscan21_scan52
  rxscan21_loop51:
    inc rx20_pos
    gt rx20_pos, rx20_eos, rx20_fail47
    repr_bind_attr_int rx20_cur, rx20_curclass, "$!from", rx20_pos
  rxscan21_scan52:
    nqp_rxmark rx20_bstack, rxscan21_loop51, rx20_pos, 0
  rxscan21_done53:
    add $I11, rx20_pos, 1
    gt $I11, rx20_eos, rx20_fail47
    substr $S10, rx20_tgt, rx20_pos, 1
    ne $S10, ucs4:"%", rx20_fail47
    add rx20_pos, 1
    .const 'Sub' $P5005 = 'cuid_11_1372810513.70507' 
    capture_lex $P5005
    repr_bind_attr_int rx20_cur, rx20_curclass, "$!pos", rx20_pos
    $P11 = rx20_cur.$P5005()
    repr_get_attr_int $I11, $P11, rx20_curclass, "$!pos"
    lt $I11, 0, rx20_fail47
    goto rxsubrule26_pass68
  rxsubrule26_back69:
    $P11 = $P11."!cursor_next"()
    repr_get_attr_int $I11, $P11, rx20_curclass, "$!pos"
    lt $I11, 0, rx20_fail47
  rxsubrule26_pass68:
    rx20_cstack = rx20_cur."!cursor_capture"($P11, "0")
    set_addr $I11, rxsubrule26_back69
    push rx20_bstack, $I11
    push rx20_bstack, 0
    push rx20_bstack, rx20_pos
    elements $I11, rx20_cstack
    push rx20_bstack, $I11
    repr_get_attr_int rx20_pos, $P11, rx20_curclass, "$!pos"
    rx20_cur."!cursor_pass"(rx20_pos, 'backtrack'=>1)
    .return (rx20_cur)
  rx20_restart46:
    repr_get_attr_obj rx20_cstack, rx20_cur, rx20_curclass, "$!cstack"
  rx20_fail47:
    unless rx20_bstack, rx20_done45
    pop $I19, rx20_bstack
    if_null rx20_cstack, rx20_cstack_done50
    unless rx20_cstack, rx20_cstack_done50
    dec $I19
    set $P11, rx20_cstack[$I19]
  rx20_cstack_done50:
    pop rx20_rep, rx20_bstack
    pop rx20_pos, rx20_bstack
    pop $I19, rx20_bstack
    lt rx20_pos, -1, rx20_done45
    lt rx20_pos, 0, rx20_fail47
    eq $I19, 0, rx20_fail47
    nqp_islist $I20, rx20_cstack
    unless $I20, rx20_jump48
    elements $I18, rx20_bstack
    le $I18, 0, rx20_cut49
    dec $I18
    set $I18, rx20_bstack[$I18]
  rx20_cut49:
    assign rx20_cstack, $I18
  rx20_jump48:
    jump $I19
  rx20_done45:
    rx20_cur."!cursor_fail"()
    .return (rx20_cur) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_11_1372810513.70507") :anon :lex :outer("cuid_12_1372810513.70507")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/Escape.pm"
    .param pmc self 
    .lex utf8:"$\x{a2}", $P101 
    .local string rx22_tgt
    .local int rx22_pos
    .local int rx22_off
    .local int rx22_eos
    .local int rx22_rep
    .local pmc rx22_cur
    .local pmc rx22_curclass
    .local pmc rx22_bstack
    .local pmc rx22_cstack
    (rx22_cur, rx22_tgt, rx22_pos, rx22_curclass, rx22_bstack, $I19) = self."!cursor_start"()
    store_lex unicode:"$\x{a2}", rx22_cur
    length rx22_eos, rx22_tgt
    eq $I19, 1, rx22_restart56
    gt rx22_pos, rx22_eos, rx22_fail57
    repr_get_attr_int $I11, self, rx22_curclass, "$!from"
    ne $I11, -1, rxscan23_done63
    goto rxscan23_scan62
  rxscan23_loop61:
    inc rx22_pos
    gt rx22_pos, rx22_eos, rx22_fail57
    repr_bind_attr_int rx22_cur, rx22_curclass, "$!from", rx22_pos
  rxscan23_scan62:
    nqp_rxmark rx22_bstack, rxscan23_loop61, rx22_pos, 0
  rxscan23_done63:
    nqp_rxmark rx22_bstack, rxquantg24_done65, -1, 0
  rxquantg24_loop64:
    repr_bind_attr_int rx22_cur, rx22_curclass, "$!pos", rx22_pos
    $P11 = rx22_cur."xdigit"()
    repr_get_attr_int $I11, $P11, rx22_curclass, "$!pos"
    lt $I11, 0, rx22_fail57
    goto rxsubrule25_pass66
  rxsubrule25_back67:
    $P11 = $P11."!cursor_next"()
    repr_get_attr_int $I11, $P11, rx22_curclass, "$!pos"
    lt $I11, 0, rx22_fail57
  rxsubrule25_pass66:
    rx22_cstack = rx22_cur."!cursor_push_cstack"($P11)
    set_addr $I11, rxsubrule25_back67
    push rx22_bstack, $I11
    push rx22_bstack, 0
    push rx22_bstack, rx22_pos
    elements $I11, rx22_cstack
    push rx22_bstack, $I11
    repr_get_attr_int rx22_pos, $P11, rx22_curclass, "$!pos"
    nqp_rxpeek $I19, rx22_bstack, rxquantg24_done65
    inc $I19
    inc $I19
    set rx22_rep, rx22_bstack[$I19]
    inc rx22_rep
    ge rx22_rep, 2, rxquantg24_done65
    nqp_rxmark rx22_bstack, rxquantg24_done65, rx22_pos, rx22_rep
    goto rxquantg24_loop64
  rxquantg24_done65:
    lt rx22_rep, 2, rx22_fail57
    rx22_cur."!cursor_pass"(rx22_pos, 'backtrack'=>1)
    .return (rx22_cur)
  rx22_restart56:
    repr_get_attr_obj rx22_cstack, rx22_cur, rx22_curclass, "$!cstack"
  rx22_fail57:
    unless rx22_bstack, rx22_done55
    pop $I19, rx22_bstack
    if_null rx22_cstack, rx22_cstack_done60
    unless rx22_cstack, rx22_cstack_done60
    dec $I19
    set $P11, rx22_cstack[$I19]
  rx22_cstack_done60:
    pop rx22_rep, rx22_bstack
    pop rx22_pos, rx22_bstack
    pop $I19, rx22_bstack
    lt rx22_pos, -1, rx22_done55
    lt rx22_pos, 0, rx22_fail57
    eq $I19, 0, rx22_fail57
    nqp_islist $I20, rx22_cstack
    unless $I20, rx22_jump58
    elements $I18, rx22_bstack
    le $I18, 0, rx22_cut59
    dec $I18
    set $I18, rx22_bstack[$I18]
  rx22_cut59:
    assign rx22_cstack, $I18
  rx22_jump58:
    jump $I19
  rx22_done55:
    rx22_cur."!cursor_fail"()
    .return (rx22_cur) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_13_1372810513.70507") :anon :lex :outer("cuid_14_1372810513.70507")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/Escape.pm"
.annotate 'line', 38
    .param pmc CALL_SIG :call_sig 
    .lex "$/", $P101 
    .lex "$_", $P102 
    .lex "call_sig", $P103 
    .lex "$*DISPATCHER", $P104 
    perl6_take_dispatcher 
    set $P5002, CALL_SIG
    set $P103, $P5002
    bind_signature 
.annotate 'line', 39
    nqp_get_sc_object $P5005, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 69
    nqp_get_sc_object $P5008, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 68
    $P5009 = $P101."postcircumfix:<[ ]>"($P5008)
    find_lex $P5007, "&prefix:<~>"
    perl6_multi_dispatch_thunk $P5006, $P5007
    $P5010 = $P5006($P5009)
    $P5011 = "&unbase"($P5005, $P5010)
    $P5012 = $P5011."chr"()
    perl6ize_type $P5004, $P5012
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_15_1372810513.70507") :anon :lex :outer("cuid_10_1372810513.70507")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/Escape.pm"
    .param pmc CALL_SIG :call_sig 
    .lex "$x0", $P101 
    .lex "call_sig", $P102 
    set $P5001, CALL_SIG
    set $P102, $P5001
    bind_signature 
.annotate 'line', 42
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 76
    $P5003 = $P101."encode"($P5002)
    .return ($P5003) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_16_1372810513.70507") :anon :lex :outer("cuid_10_1372810513.70507")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/Escape.pm"
    .param pmc CALL_SIG :call_sig 
    .lex "$x0", $P101 
    .lex "call_sig", $P102 
    set $P5001, CALL_SIG
    set $P102, $P5001
    bind_signature 
.annotate 'line', 42
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 80
    $P5003 = $P5002."clone"()
    perl6_capture_lex $P5003
    $P5004 = $P5003($P101)
    nqp_get_sc_object $P5005, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 77
    $P5006 = $P5004."decode"($P5005)
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_20_1372810513.70507") :anon :lex :outer("cuid_10_1372810513.70507")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/Escape.pm"
.annotate 'line', 43
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5007 = 'cuid_19_1372810513.70507' 
    capture_lex $P5007 
    .const 'Sub' $P5007 = 'cuid_17_1372810513.70507' 
    capture_lex $P5007 
    .const 'Sub' $P5007 = 'cuid_18_1372810513.70507' 
    capture_lex $P5007 
    .lex "$_", $P101 
    .lex "call_sig", $P102 
    .lex "$*DISPATCHER", $P103 
    perl6_take_dispatcher 
    .const 'Sub' $P5001 = 'cuid_19_1372810513.70507' 
    capture_lex $P5001
    set $P5003, CALL_SIG
    set $P102, $P5003
    bind_signature 
    new $P5005, 'ExceptionHandler', [.CONTROL_BREAK]
    set_label $P5005, catch_handler_3984
    push_eh $P5005
    nqp_get_sc_object $P5005, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 68
    find_lex $P5006, "$_"
    $P5007 = $P5005."ACCEPTS"($P5006)
    unless $P5007 goto if27_end71 
    new $P5011, 'ExceptionHandler', [.CONTROL_CONTINUE]
    set_label $P5011, catch_handler_2973
    push_eh $P5011
    .const 'Sub' $P5008 = 'cuid_17_1372810513.70507' 
    capture_lex $P5008
    $P5009 = $P5008()
    $P5010 = "&succeed"($P5009)
    set $P5012, $P5010
    pop_eh 
    goto skip_handler_2872
  catch_handler_2973:
    .get_results ($P5011) 
    set $I10001, $P5011["type"]
    eq $I10001, .CONTROL_CONTINUE, handle_type_3074
  handle_type_3074:
    getattribute $P10001, $P5011, "payload"
    finalize $P5011
    pop_upto_eh $P5011
    pop_eh 
    set $P5012, $P10001
    goto skip_handler_2872
  skip_handler_2872:
  if27_end71:
    nqp_get_sc_object $P5005, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 88
    find_lex $P5006, "$_"
    $P5007 = $P5005."ACCEPTS"($P5006)
    unless $P5007 goto if31_end76 
    new $P5011, 'ExceptionHandler', [.CONTROL_CONTINUE]
    set_label $P5011, catch_handler_3378
    push_eh $P5011
    .const 'Sub' $P5008 = 'cuid_18_1372810513.70507' 
    capture_lex $P5008
    $P5009 = $P5008()
    $P5010 = "&succeed"($P5009)
    set $P5012, $P5010
    pop_eh 
    goto skip_handler_3277
  catch_handler_3378:
    .get_results ($P5011) 
    set $I10001, $P5011["type"]
    eq $I10001, .CONTROL_CONTINUE, handle_type_3479
  handle_type_3479:
    getattribute $P10001, $P5011, "payload"
    finalize $P5011
    pop_upto_eh $P5011
    pop_eh 
    set $P5012, $P10001
    goto skip_handler_3277
  skip_handler_3277:
  if31_end76:
    new $P5008, 'ExceptionHandler', [.CONTROL_CONTINUE]
    set_label $P5008, catch_handler_3681
    push_eh $P5008
    nqp_get_sc_object $P5005, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 91
    $P5006 = $P5005()
    $P5007 = "&succeed"($P5006)
    set $P5009, $P5007
    pop_eh 
    goto skip_handler_3580
  catch_handler_3681:
    .get_results ($P5008) 
    set $I10001, $P5008["type"]
    eq $I10001, .CONTROL_CONTINUE, handle_type_3782
  handle_type_3782:
    getattribute $P10001, $P5008, "payload"
    finalize $P5008
    pop_upto_eh $P5008
    pop_eh 
    set $P5009, $P10001
    goto skip_handler_3580
  skip_handler_3580:
    set $P5006, $P5009
    pop_eh 
    goto skip_handler_3883
  catch_handler_3984:
    .get_results ($P5005) 
    set $I10001, $P5005["type"]
    eq $I10001, .CONTROL_BREAK, handle_type_4085
  handle_type_4085:
    getattribute $P10001, $P5005, "payload"
    nqp_get_sc_object $P10002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 85
    perl6_type_check_return_value $P10001, $P10002
    perl6_returncc $P10001
    finalize $P5005
    pop_upto_eh $P5005
    pop_eh 
    set $P5006, $P10001
    goto skip_handler_3883
  skip_handler_3883:
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_19_1372810513.70507") :anon :lex :outer("cuid_20_1372810513.70507")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/Escape.pm"
.annotate 'line', 46
    .lex "$_", $P101 
    find_lex $P5002, "@rc"
    .return ($P5002) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_17_1372810513.70507") :anon :lex :outer("cuid_20_1372810513.70507")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/Escape.pm"
.annotate 'line', 44
    .param pmc CALL_SIG :call_sig 
    .lex "$_", $P101 
    .lex "call_sig", $P102 
    .lex "$*DISPATCHER", $P103 
    perl6_take_dispatcher 
    set $P5002, CALL_SIG
    set $P102, $P5002
    bind_signature 
    nqp_get_sc_object $P5004, "5C7C172868FA9510BA84BFF074E73D635E54D9D3", 869
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_18_1372810513.70507") :anon :lex :outer("cuid_20_1372810513.70507")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/Escape.pm"
.annotate 'line', 45
    .param pmc CALL_SIG :call_sig 
    .lex "$_", $P101 
    .lex "call_sig", $P102 
    .lex "$*DISPATCHER", $P103 
    perl6_take_dispatcher 
    set $P5002, CALL_SIG
    set $P102, $P5002
    bind_signature 
    find_lex $P5005, "@rc"
    nqp_get_sc_object $P5006, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 68
    $P5007 = $P5005."postcircumfix:<[ ]>"($P5006)
    perl6ize_type $P5004, $P5007
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_21_1372810513.70507") :anon :lex :outer("cuid_10_1372810513.70507")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/Escape.pm"
.annotate 'line', 43

    find_lex $P5003, "@rc"
    $P5004 = $P5003."elems"()
    perl6ize_type $P5002, $P5004
    nqp_get_sc_object $P5001, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 85
    $P5005 = $P5001($P5002)
    .return ($P5005) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_24_1372810513.70507") :load :init
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/Escape.pm"
    .const 'Sub' $P5001 = 'cuid_23_1372810513.70507' 
    capture_lex $P5001 
    .local pmc cur_sc 
    .local pmc conflicts 
    nqp_dynop_setup 
    nqp_bigint_setup 
    nqp_native_call_setup 
    rakudo_dynop_setup 
    getinterp $P5001
    get_class $P5002, "LexPad"
    get_class $P5003, "Perl6LexPad"
    $P5001."hll_map"($P5002, $P5003)
    load_bytecode "ModuleLoader.pbc"
    get_root_namespace $P5003
    set $P5002, $P5003["nqp"]
    set $P5001, $P5002["ModuleLoader"]
    $P5001."load_module"("Perl6::ModuleLoader")
    .const 'Sub' $P5001 = "cuid_22_1372810513.70507" 
    get_hll_global $P5002, "ModuleLoader"
    $P5003 = $P5002."load_setting"("CORE")
    $P5001."set_outer_ctx"($P5003)
    load_bytecode "ModuleLoader.pbc"
    get_root_namespace $P5003
    set $P5002, $P5003["nqp"]
    set $P5001, $P5002["ModuleLoader"]
    $P5001."load_module"("Perl6::ModuleLoader")
    get_hll_global $P5001, "ModuleLoader"
    $P5001."load_module"("IETF::RFC_Grammar::URI", 5 :named("line"))
    nqp_create_sc $P5001, "4CA99B345B89B827D835C4F294FC7ED2618304BD"
    set cur_sc, $P5001
    cur_sc."set_description"("/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/Escape.pm")
    new $P5002, 'ResizablePMCArray'
    set conflicts, $P5002
    new $P5003, 'ResizableStringArray'
    null $S5001
    push $P5003, $S5001
    push $P5003, "Uninstantiable"
    push $P5003, "25B76D5348C2A22A9722D68A7288B5D268CF8F4E-1372810229.31343"
    push $P5003, "src/gen/Metamodel.pm"
    push $P5003, "GLOBALish"
    push $P5003, "EXPORT"
    push $P5003, "$?PACKAGE"
    push $P5003, "::?PACKAGE"
    push $P5003, "URI"
    push $P5003, "$=pod"
    push $P5003, "!UNIT_MARKER"
    push $P5003, "5C7C172868FA9510BA84BFF074E73D635E54D9D3"
    push $P5003, "src/gen/CORE.setting"
    push $P5003, "%escapes"
    push $P5003, "&uri_escape"
    push $P5003, "&uri_unescape"
    push $P5003, "27420382D80CEF05775E7415279171A93892A1F1-1372810242.10453"
    push $P5003, "src/gen/BOOTSTRAP.pm"
    push $P5003, "256"
    push $P5003, "%%%02X"
    push $P5003, "$_"
    push $P5003, " "
    push $P5003, "+"
    push $P5003, "$no_utf8"
    push $P5003, "g"
    push $P5003, ""
    push $P5003, "%_"
    push $P5003, "$*DISPATCHER"
    push $P5003, "128"
    push $P5003, "%"
    push $P5003, "H*"
    push $P5003, "$s"
    push $P5003, "no_utf8"
    push $P5003, "&?ROUTINE"
    push $P5003, "@to_unesc"
    push $P5003, "@rc"
    push $P5003, "xdigit"
    push $P5003, "0"
    push $P5003, "16"
    push $P5003, "$/"
    push $P5003, "latin-1"
    push $P5003, "UTF-8"
    push $P5003, "$x0"
    push $P5003, "map"
    push $P5003, "1"
    push $P5003, "NAME"
    push $P5003, "head"
    push $P5003, "URI::Escape - Escape and unescape unsafe characters"
    push $P5003, "SYNOPSYS"
    push $P5003, "use URI::Escape;"
    push $P5003, "my $escaped = uri_escape(\"10% is enough\\n\");\nmy $un_escaped = uri_unescape('10%25%20is%20enough%0A');"
    push $P5003, "pod"
    push $P5003, "GLOBAL"
    push $P5003, "IETF"
    push $P5003, "AD88E198E05B7A7612708FC785413B82B760F1C8"
    push $P5003, "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/IETF/RFC_Grammar/IPv6.pm"
    push $P5003, "ALL"
    push $P5003, "DEFAULT"
    push $P5003, "URI::Escape"
    push $P5003, "Escape"
    push $P5003, "6"
    .const 'Sub' $P5004 = 'cuid_23_1372810513.70507' 
    capture_lex $P5004
    $P5005 = $P5004()
    nqp_deserialize_sc "[encoded data, 15684 characters]", cur_sc, $P5003, $P5005, conflicts
    unless conflicts goto if42_end91 
    get_hll_global $P5006, "ModuleLoader"
    $P5007 = $P5006."resolve_repossession_conflicts"(conflicts)
  if42_end91:
    .const "LexInfo" $P5001 = "cuid_1_1372810513.70507"
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 2
    $P5001."set_static_lexpad"($P5002)
    .const "LexInfo" $P5001 = "cuid_2_1372810513.70507"
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 7
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_3_1372810513.70507" 
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 10
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_4_1372810513.70507" 
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 20
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_5_1372810513.70507"
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 27
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_5_1372810513.70507" 
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 22
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_6_1372810513.70507"
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 37
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_6_1372810513.70507" 
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 32
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_7_1372810513.70507" 
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 28
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_8_1372810513.70507"
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 45
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_8_1372810513.70507" 
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 17
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_9_1372810513.70507" 
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 54
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_10_1372810513.70507"
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 56
    $P5001."set_static_lexpad"($P5002)
    .const "LexInfo" $P5001 = "cuid_11_1372810513.70507"
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 60
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_11_1372810513.70507" 
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 59
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_12_1372810513.70507"
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 66
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_12_1372810513.70507" 
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 61
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_13_1372810513.70507" 
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 67
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_14_1372810513.70507" 
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 57
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_15_1372810513.70507" 
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 80
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_16_1372810513.70507" 
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 83
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_17_1372810513.70507" 
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 86
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_18_1372810513.70507" 
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 89
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_19_1372810513.70507" 
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 91
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_20_1372810513.70507" 
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 85
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_21_1372810513.70507" 
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 97
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_10_1372810513.70507" 
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 50
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_2_1372810513.70507" 
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 128
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_1_1372810513.70507" 
    nqp_get_sc_object $P5002, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 3
    perl6_associate_sub_code_object $P5001, $P5002
    nqp_get_sc_object $P5001, "4CA99B345B89B827D835C4F294FC7ED2618304BD", 0
    set_hll_global "GLOBAL", $P5001
    .return () 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_23_1372810513.70507") :anon :lex :outer("cuid_24_1372810513.70507")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/Escape.pm"
    new $P5001, 'ResizablePMCArray'
    .const 'Sub' $P5002 = "cuid_3_1372810513.70507" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_4_1372810513.70507" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_5_1372810513.70507" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_6_1372810513.70507" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_7_1372810513.70507" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_8_1372810513.70507" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_9_1372810513.70507" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_11_1372810513.70507" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_12_1372810513.70507" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_13_1372810513.70507" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_14_1372810513.70507" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_15_1372810513.70507" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_16_1372810513.70507" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_17_1372810513.70507" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_18_1372810513.70507" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_19_1372810513.70507" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_20_1372810513.70507" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_21_1372810513.70507" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_10_1372810513.70507" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_2_1372810513.70507" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_1_1372810513.70507" 
    push $P5001, $P5002
    .return ($P5001) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_25_1372810513.70507") :load
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/Escape.pm"
    .const 'Sub' $P5001 = "cuid_22_1372810513.70507" 
    $P5002 = $P5001()
    .return ($P5002) 
.end