.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_68_1372810518.65886") :anon :lex
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 1
    .const 'Sub' $P5003 = 'cuid_1_1372810518.65886' 
    capture_lex $P5003 
    .const 'Sub' $P5001 = 'cuid_1_1372810518.65886' 
    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_1372810518.65886") :anon :lex :outer("cuid_68_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 1
    .const 'Sub' $P5005 = 'cuid_2_1372810518.65886' 
    capture_lex $P5005 
    .lex "GLOBALish", $P101 
    .lex "EXPORT", $P102 
    .lex "$?PACKAGE", $P103 
    .lex "::?PACKAGE", $P104 
    .lex "$_", $P105 
    .lex "$/", $P106 
    .lex "$!", $P107 
    .lex "LWP", $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, "E395371008F12CAD160057529FCB23CF59FF3774", 415
    .const 'Sub' $P5005 = 'cuid_2_1372810518.65886' 
    capture_lex $P5005
    $P5006 = $P5005()
    nqp_get_sc_object $P5007, "E395371008F12CAD160057529FCB23CF59FF3774", 12
    .return ($P5007) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_2_1372810518.65886") :anon :lex :outer("cuid_1_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 8
    .const 'Sub' $P5035 = 'cuid_3_1372810518.65886' 
    capture_lex $P5035 
    .const 'Sub' $P5035 = 'cuid_4_1372810518.65886' 
    capture_lex $P5035 
    .const 'Sub' $P5035 = 'cuid_5_1372810518.65886' 
    capture_lex $P5035 
    .const 'Sub' $P5035 = 'cuid_7_1372810518.65886' 
    capture_lex $P5035 
    .const 'Sub' $P5035 = 'cuid_8_1372810518.65886' 
    capture_lex $P5035 
    .const 'Sub' $P5035 = 'cuid_11_1372810518.65886' 
    capture_lex $P5035 
    .const 'Sub' $P5035 = 'cuid_14_1372810518.65886' 
    capture_lex $P5035 
    .const 'Sub' $P5035 = 'cuid_32_1372810518.65886' 
    capture_lex $P5035 
    .const 'Sub' $P5035 = 'cuid_43_1372810518.65886' 
    capture_lex $P5035 
    .const 'Sub' $P5035 = 'cuid_50_1372810518.65886' 
    capture_lex $P5035 
    .const 'Sub' $P5035 = 'cuid_55_1372810518.65886' 
    capture_lex $P5035 
    .const 'Sub' $P5035 = 'cuid_58_1372810518.65886' 
    capture_lex $P5035 
    .const 'Sub' $P5035 = 'cuid_62_1372810518.65886' 
    capture_lex $P5035 
    .const 'Sub' $P5035 = 'cuid_66_1372810518.65886' 
    capture_lex $P5035 
    .lex "$?PACKAGE", $P101 
    .lex "::?PACKAGE", $P102 
    .lex "$?CLASS", $P103 
    .lex "::?CLASS", $P104 
    .lex "$_", $P105 
    .lex "$VERSION", $P106 
    .lex "GET", $P107 
    .lex "POST", $P108 
    .lex "RequestType", $P109 
    .lex "&class_default_encoding", $P110 
    .lex "$class_default_encoding", $P111 
    .lex "$crlf", $P112 
    .lex "$http_header_end_marker", $P113 
    .lex "$default_stream_read_len", $P114 
    get_who $P5002, $P101
    nqp_get_sc_object $P5003, "E395371008F12CAD160057529FCB23CF59FF3774", 15
    $P5004 = $P5002."at_key"($P5003)
    set $P106, $P5004
    .const 'Sub' $P5005 = 'cuid_3_1372810518.65886' 
    capture_lex $P5005
    .const 'Sub' $P5006 = 'cuid_4_1372810518.65886' 
    capture_lex $P5006
    $P5007 = $P110."clone"()
    set $P110, $P5007
    get_who $P5008, $P101
    nqp_get_sc_object $P5009, "E395371008F12CAD160057529FCB23CF59FF3774", 39
    $P5010 = $P5008."at_key"($P5009)
    set $P111, $P5010
    .const 'Sub' $P5011 = 'cuid_5_1372810518.65886' 
    capture_lex $P5011
    .const 'Sub' $P5012 = 'cuid_7_1372810518.65886' 
    capture_lex $P5012
    .const 'Sub' $P5013 = 'cuid_8_1372810518.65886' 
    capture_lex $P5013
    .const 'Sub' $P5014 = 'cuid_11_1372810518.65886' 
    capture_lex $P5014
    .const 'Sub' $P5015 = 'cuid_14_1372810518.65886' 
    capture_lex $P5015
    .const 'Sub' $P5016 = 'cuid_32_1372810518.65886' 
    capture_lex $P5016
    .const 'Sub' $P5017 = 'cuid_43_1372810518.65886' 
    capture_lex $P5017
    .const 'Sub' $P5018 = 'cuid_50_1372810518.65886' 
    capture_lex $P5018
    .const 'Sub' $P5019 = 'cuid_55_1372810518.65886' 
    capture_lex $P5019
    .const 'Sub' $P5020 = 'cuid_58_1372810518.65886' 
    capture_lex $P5020
    .const 'Sub' $P5021 = 'cuid_62_1372810518.65886' 
    capture_lex $P5021
    .const 'Sub' $P5022 = 'cuid_66_1372810518.65886' 
    capture_lex $P5022
.annotate 'line', 10
    nqp_get_sc_object $P5023, "E395371008F12CAD160057529FCB23CF59FF3774", 10
    perl6_container_store $P106, $P5023
    nqp_get_sc_object $P5023, "E395371008F12CAD160057529FCB23CF59FF3774", 19
.annotate 'line', 15

    nqp_get_sc_object $P5023, "E395371008F12CAD160057529FCB23CF59FF3774", 26
    perl6_container_store $P111, $P5023
.annotate 'line', 18

    nqp_get_sc_object $P5024, "5C7C172868FA9510BA84BFF074E73D635E54D9D3", 8957
    nqp_get_sc_object $P5025, "E395371008F12CAD160057529FCB23CF59FF3774", 41
    nqp_get_sc_object $P5026, "E395371008F12CAD160057529FCB23CF59FF3774", 42
    $P5027 = $P5024."new"($P5025, $P5026)
    perl6ize_type $P5023, $P5027
    perl6_container_store $P112, $P5023
.annotate 'line', 19

    nqp_get_sc_object $P5024, "5C7C172868FA9510BA84BFF074E73D635E54D9D3", 8957
    nqp_get_sc_object $P5025, "E395371008F12CAD160057529FCB23CF59FF3774", 41
    nqp_get_sc_object $P5026, "E395371008F12CAD160057529FCB23CF59FF3774", 42
    nqp_get_sc_object $P5027, "E395371008F12CAD160057529FCB23CF59FF3774", 41
    nqp_get_sc_object $P5028, "E395371008F12CAD160057529FCB23CF59FF3774", 42
    $P5029 = $P5024."new"($P5025, $P5026, $P5027, $P5028)
    perl6ize_type $P5023, $P5029
    perl6_container_store $P113, $P5023
    nqp_get_sc_object $P5023, "E395371008F12CAD160057529FCB23CF59FF3774", 48
    null $P5023
    null $P5024
    null $P5025
    null $P5026
    null $P5027
    null $P5028
    null $P5029
    null $P5030
    null $P5031
    null $P5032
    nqp_get_sc_object $P5033, "E395371008F12CAD160057529FCB23CF59FF3774", 400
    $P5034 = $P5033."clone"()
    perl6_capture_lex $P5034
    .return ($P5034) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_3_1372810518.65886") :anon :lex :outer("cuid_2_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 14
    .param pmc CALL_SIG :call_sig 
    .lex "self", $P101 
    .lex "$_", $P102 
    .lex "call_sig", $P103 
    set $P5001, CALL_SIG
    set $P103, $P5001
    bind_signature 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 26
    .return ($P5002) 
.end
.HLL "perl6"
.namespace []
.sub "class_default_encoding" :subid("cuid_4_1372810518.65886") :anon :lex :outer("cuid_2_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 15
    .param pmc CALL_SIG :call_sig 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "call_sig", $P103 
    .lex "$*DISPATCHER", $P104 
    perl6_take_dispatcher 
    set $P5002, CALL_SIG
    set $P103, $P5002
    bind_signature 
    find_lex $P5003, "$class_default_encoding"
    .return ($P5003) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_5_1372810518.65886") :anon :lex :outer("cuid_2_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 20

    nqp_get_sc_object $P5003, "E395371008F12CAD160057529FCB23CF59FF3774", 44
    nqp_get_sc_object $P5004, "E395371008F12CAD160057529FCB23CF59FF3774", 45
    find_lex $P5002, "&infix:<*>"
    perl6_multi_dispatch_thunk $P5001, $P5002
    $P5005 = $P5001($P5003, $P5004)
    .return ($P5005) 
.end
.HLL "perl6"
.namespace []
.sub "base64encode" :subid("cuid_7_1372810518.65886") :anon :lex :outer("cuid_2_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 22
    .param pmc CALL_SIG :call_sig 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$user", $P103 
    .lex "$pass", $P104 
    .lex "$_", $P105 
    .lex "$/", $P106 
    .lex "$!", $P107 
    .lex "$mime", $P108 
    .lex "$encoded", $P109 
    .lex "call_sig", $P110 
    .lex "$*DISPATCHER", $P111 
    .lex "&?ROUTINE", $P112 
    perl6_take_dispatcher 
    set $P5005, CALL_SIG
    set $P110, $P5005
    bind_signature 
    root_new $P113, ['parrot';'Continuation']
    set_label $P113, lexotic_14
    .lex "RETURN", $P113
.annotate 'line', 23
    nqp_get_sc_object $P5007, "E395371008F12CAD160057529FCB23CF59FF3774", 52
    $P108."dispatch:<.=>"($P5007)
.annotate 'line', 24

    nqp_get_sc_object $P5012, "E395371008F12CAD160057529FCB23CF59FF3774", 54
    find_lex $P5011, "&infix:<~>"
    perl6_multi_dispatch_thunk $P5010, $P5011
    $P5013 = $P5010($P103, $P5012)
    find_lex $P5009, "&infix:<~>"
    perl6_multi_dispatch_thunk $P5008, $P5009
    $P5014 = $P5008($P5013, $P104)
    $P5015 = $P108."encode_base64"($P5014)
    perl6ize_type $P5007, $P5015
    perl6_container_store $P109, $P5007
.annotate 'line', 25
    $P5007 = "&return"($P109)
    perl6_decontainerize_return_value $P5006, $P5007
    goto lexotic_15
  lexotic_14:
    .get_results ($P5006)
  lexotic_15:
    find_lex $P5007, "&EXHAUST"
    store_lex "RETURN", $P5007
    nqp_get_sc_object $P5008, "E395371008F12CAD160057529FCB23CF59FF3774", 49
    perl6_type_check_return_value $P5006, $P5008
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "get" :subid("cuid_8_1372810518.65886") :anon :lex :outer("cuid_2_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 28
    .param pmc CALL_SIG :call_sig 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$url", $P103 
    .lex "$_", $P104 
    .lex "$/", $P105 
    .lex "$!", $P106 
    .lex "call_sig", $P107 
    .lex "$*DISPATCHER", $P108 
    .lex "&?ROUTINE", $P109 
    perl6_take_dispatcher 
    set $P5005, CALL_SIG
    set $P107, $P5005
    bind_signature 
.annotate 'line', 29
    nqp_get_sc_object $P5008, "E395371008F12CAD160057529FCB23CF59FF3774", 22
    $P5009 = $P101."request_shell"($P5008, $P103)
    perl6ize_type $P5007, $P5009
    perl6_decontainerize_return_value $P5006, $P5007
    nqp_get_sc_object $P5007, "E395371008F12CAD160057529FCB23CF59FF3774", 63
    perl6_type_check_return_value $P5006, $P5007
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "post" :subid("cuid_11_1372810518.65886") :anon :lex :outer("cuid_2_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 32
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5011 = 'cuid_9_1372810518.65886' 
    capture_lex $P5011 
    .const 'Sub' $P5011 = 'cuid_10_1372810518.65886' 
    capture_lex $P5011 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$url", $P103 
    .lex "%headers", $P104 
    .lex "$content", $P105 
    .lex "$_", $P106 
    .lex "$/", $P107 
    .lex "$!", $P108 
    .lex "call_sig", $P109 
    .lex "$*DISPATCHER", $P110 
    .lex "&?ROUTINE", $P111 
    perl6_take_dispatcher 
    .const 'Sub' $P5002 = 'cuid_9_1372810518.65886' 
    capture_lex $P5002
    .const 'Sub' $P5003 = 'cuid_10_1372810518.65886' 
    capture_lex $P5003
    set $P5007, CALL_SIG
    set $P109, $P5007
    bind_signature 
    root_new $P112, ['parrot';'Continuation']
    set_label $P112, lexotic_16
    .lex "RETURN", $P112
.annotate 'line', 33
    nqp_get_sc_object $P5010, "E395371008F12CAD160057529FCB23CF59FF3774", 23
    $P5011 = $P101."request_shell"($P5010, $P103, $P104, $P105)
    perl6ize_type $P5009, $P5011
    perl6_decontainerize_return_value $P5008, $P5009
    goto lexotic_17
  lexotic_16:
    .get_results ($P5008)
  lexotic_17:
    find_lex $P5009, "&EXHAUST"
    store_lex "RETURN", $P5009
    nqp_get_sc_object $P5010, "E395371008F12CAD160057529FCB23CF59FF3774", 71
    perl6_type_check_return_value $P5008, $P5010
    .return ($P5008) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_9_1372810518.65886") :anon :lex :outer("cuid_11_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 32
    .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 $P5004, "Nil"
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_10_1372810518.65886") :anon :lex :outer("cuid_11_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 32

    find_lex $P5001, "Nil"
    $P5002 = "&circumfix:<{ }>"($P5001)
    .return ($P5002) 
.end
.HLL "perl6"
.namespace []
.sub "request_shell" :subid("cuid_14_1372810518.65886") :anon :lex :outer("cuid_2_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 36
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5013 = 'cuid_12_1372810518.65886' 
    capture_lex $P5013 
    .const 'Sub' $P5013 = 'cuid_13_1372810518.65886' 
    capture_lex $P5013 
    .const 'Sub' $P5013 = 'cuid_15_1372810518.65886' 
    capture_lex $P5013 
    .const 'Sub' $P5013 = 'cuid_30_1372810518.65886' 
    capture_lex $P5013 
    .const 'Sub' $P5013 = 'cuid_16_1372810518.65886' 
    capture_lex $P5013 
    .const 'Sub' $P5013 = 'cuid_17_1372810518.65886' 
    capture_lex $P5013 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$rt", $P103 
    .lex "$url", $P104 
    .lex "%headers", $P105 
    .lex "$content", $P106 
    .lex "$_", $P107 
    .lex "$/", $P108 
    .lex "$!", $P109 
    .lex "$scheme", $P110 
    .lex "$hostname", $P111 
    .lex "$port", $P112 
    .lex "$path", $P113 
    .lex "$auth", $P114 
    .lex "$status", $P115 
    .lex "$resp_headers", $P116 
    .lex "$resp_content", $P117 
    .lex "call_sig", $P118 
    .lex "$*DISPATCHER", $P119 
    .lex "&?ROUTINE", $P120 
    .local pmc old_topic_1 
    .local pmc sm_result_1 
    perl6_take_dispatcher 
    .const 'Sub' $P5002 = 'cuid_12_1372810518.65886' 
    capture_lex $P5002
    .const 'Sub' $P5003 = 'cuid_13_1372810518.65886' 
    capture_lex $P5003
    .const 'Sub' $P5007 = 'cuid_15_1372810518.65886' 
    capture_lex $P5007
    .const 'Sub' $P5008 = 'cuid_30_1372810518.65886' 
    capture_lex $P5008
    set $P5009, CALL_SIG
    set $P118, $P5009
    bind_signature 
    root_new $P121, ['parrot';'Continuation']
    set_label $P121, lexotic_130
    .lex "RETURN", $P121
.annotate 'line', 38

    if $P104 goto unless55_else132 
    $P5011 = "&return"()
    goto unless55_end133
  unless55_else132:
    find_lex $P5012, "Nil"
  unless55_end133:
    $P5011 = "&infix:<,>"($P110, $P111, $P112, $P113, $P114)
.annotate 'line', 40
    $P5013 = $P101."parse_url"($P104)
    perl6ize_type $P5012, $P5013
    perl6_container_store $P5011, $P5012
.annotate 'line', 42
    nqp_get_sc_object $P5012, "E395371008F12CAD160057529FCB23CF59FF3774", 106
    $P5013 = $P105."postcircumfix:<{ }>"($P5012)
    perl6ize_type $P5011, $P5013
    nqp_get_sc_object $P5014, "E395371008F12CAD160057529FCB23CF59FF3774", 107
    perl6_container_store $P5011, $P5014
.annotate 'line', 43
    nqp_get_sc_object $P5012, "E395371008F12CAD160057529FCB23CF59FF3774", 108
    $P5013 = $P105."postcircumfix:<{ }>"($P5012)
    perl6ize_type $P5011, $P5013
    nqp_get_sc_object $P5014, "E395371008F12CAD160057529FCB23CF59FF3774", 115
    "&METAOP_TEST_ASSIGN:<//>"($P5011, $P5014)
.annotate 'line', 45

    unless $P114 goto if56_else134 
    .const 'Sub' $P5011 = 'cuid_16_1372810518.65886' 
    capture_lex $P5011
    $P5012 = $P5011()
    goto if56_end135
  if56_else134:
    find_lex $P5013, "Nil"
  if56_end135:
.annotate 'line', 53
    nqp_get_sc_object $P5012, "E395371008F12CAD160057529FCB23CF59FF3774", 127
    $P5013 = $P105."postcircumfix:<{ }>"($P5012)
    perl6ize_type $P5011, $P5013
    perl6_container_store $P5011, $P111
.annotate 'line', 55
    find_lex $P5011, "$_"
    set old_topic_1, $P5011
    store_lex "$_", $P103
    nqp_get_sc_object $P5012, "E395371008F12CAD160057529FCB23CF59FF3774", 23
    find_lex $P5013, "$_"
    $P5014 = $P5012."ACCEPTS"($P5013)
    set sm_result_1, $P5014
    store_lex "$_", old_topic_1
    set $P5013, sm_result_1
    unless sm_result_1 goto if58_end139 
    $P5012 = $P106."defined"()
    perl6ize_type $P5011, $P5012
    set $P5013, $P5011
  if58_end139:
    unless $P5013 goto if57_else136 
    .const 'Sub' $P5014 = 'cuid_17_1372810518.65886' 
    capture_lex $P5014
    $P5015 = $P5014()
    goto if57_end137
  if57_else136:
    find_lex $P5016, "Nil"
  if57_end137:
    $P5011 = "&infix:<,>"($P115, $P116, $P117)
.annotate 'line', 64
    $P5013 = $P101."make_request"($P103, $P111, $P112, $P113, $P105, $P106)
    perl6ize_type $P5012, $P5013
    perl6_container_store $P5011, $P5012
.annotate 'line', 66
    nqp_get_sc_object $P5011, "E395371008F12CAD160057529FCB23CF59FF3774", 134
    $P5012 = $P5011($P115)
    perl6_decontainerize_return_value $P5010, $P5012
    goto lexotic_131
  lexotic_130:
    .get_results ($P5010)
  lexotic_131:
    find_lex $P5011, "&EXHAUST"
    store_lex "RETURN", $P5011
    nqp_get_sc_object $P5012, "E395371008F12CAD160057529FCB23CF59FF3774", 89
    perl6_type_check_return_value $P5010, $P5012
    .return ($P5010) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_12_1372810518.65886") :anon :lex :outer("cuid_14_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 36
    .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 $P5004, "Nil"
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_13_1372810518.65886") :anon :lex :outer("cuid_14_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 36

    find_lex $P5001, "Nil"
    $P5002 = "&circumfix:<{ }>"($P5001)
    .return ($P5002) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_15_1372810518.65886") :anon :lex :outer("cuid_14_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 43

    nqp_get_sc_object $P5007, "E395371008F12CAD160057529FCB23CF59FF3774", 112
    find_lex $P5008, "$VERSION"
    $P5009 = $P5008."Stringy"()
    find_lex $P5006, "&infix:<~>"
    perl6_multi_dispatch_thunk $P5005, $P5006
    $P5010 = $P5005($P5007, $P5009)
    nqp_get_sc_object $P5011, "E395371008F12CAD160057529FCB23CF59FF3774", 113
    find_lex $P5004, "&infix:<~>"
    perl6_multi_dispatch_thunk $P5003, $P5004
    $P5012 = $P5003($P5010, $P5011)
    nqp_get_sc_object $P5015, "E395371008F12CAD160057529FCB23CF59FF3774", 109
    $P5016 = "&DYNAMIC"($P5015)
    nqp_get_sc_object $P5017, "E395371008F12CAD160057529FCB23CF59FF3774", 110
    $P5018 = $P5016."postcircumfix:<{ }>"($P5017)
    perl6ize_type $P5014, $P5018
    nqp_get_sc_object $P5019, "E395371008F12CAD160057529FCB23CF59FF3774", 111
    $P5020 = $P5014."postcircumfix:<{ }>"($P5019)
    perl6ize_type $P5013, $P5020
    $P5021 = $P5013."Stringy"()
    find_lex $P5002, "&infix:<~>"
    perl6_multi_dispatch_thunk $P5001, $P5002
    $P5022 = $P5001($P5012, $P5021)
    .return ($P5022) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_30_1372810518.65886") :anon :lex :outer("cuid_14_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 66
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5009 = 'cuid_18_1372810518.65886' 
    capture_lex $P5009 
    .const 'Sub' $P5009 = 'cuid_21_1372810518.65886' 
    capture_lex $P5009 
    .const 'Sub' $P5009 = 'cuid_29_1372810518.65886' 
    capture_lex $P5009 
    .const 'Sub' $P5009 = 'cuid_19_1372810518.65886' 
    capture_lex $P5009 
    .const 'Sub' $P5009 = 'cuid_28_1372810518.65886' 
    capture_lex $P5009 
    .lex "$_", $P101 
    .lex "call_sig", $P102 
    .lex "$*DISPATCHER", $P103 
    perl6_take_dispatcher 
    .const 'Sub' $P5001 = 'cuid_18_1372810518.65886' 
    capture_lex $P5001
    .const 'Sub' $P5002 = 'cuid_21_1372810518.65886' 
    capture_lex $P5002
    .const 'Sub' $P5003 = 'cuid_29_1372810518.65886' 
    capture_lex $P5003
    set $P5005, CALL_SIG
    set $P102, $P5005
    bind_signature 
    new $P5007, 'ExceptionHandler', [.CONTROL_BREAK]
    set_label $P5007, catch_handler_53128
    push_eh $P5007
    nqp_get_sc_object $P5007, "E395371008F12CAD160057529FCB23CF59FF3774", 135
    $P5008 = $P5007."clone"()
    perl6_capture_lex $P5008
    find_lex $P5009, "$_"
    $P5010 = $P5008."ACCEPTS"($P5009)
    unless $P5010 goto if16_end39 
    new $P5014, 'ExceptionHandler', [.CONTROL_CONTINUE]
    set_label $P5014, catch_handler_1943
    push_eh $P5014
    .const 'Sub' $P5011 = 'cuid_19_1372810518.65886' 
    capture_lex $P5011
    $P5012 = $P5011()
    $P5013 = "&succeed"($P5012)
    set $P5015, $P5013
    pop_eh 
    goto skip_handler_1842
  catch_handler_1943:
    .get_results ($P5014) 
    set $I10001, $P5014["type"]
    eq $I10001, .CONTROL_CONTINUE, handle_type_2044
  handle_type_2044:
    getattribute $P10001, $P5014, "payload"
    finalize $P5014
    pop_upto_eh $P5014
    pop_eh 
    set $P5015, $P10001
    goto skip_handler_1842
  skip_handler_1842:
  if16_end39:
    nqp_get_sc_object $P5007, "E395371008F12CAD160057529FCB23CF59FF3774", 151
    $P5008 = $P5007."clone"()
    perl6_capture_lex $P5008
    find_lex $P5009, "$_"
    $P5010 = $P5008."ACCEPTS"($P5009)
    unless $P5010 goto if21_end46 
    new $P5014, 'ExceptionHandler', [.CONTROL_CONTINUE]
    set_label $P5014, catch_handler_47122
    push_eh $P5014
    .const 'Sub' $P5011 = 'cuid_28_1372810518.65886' 
    capture_lex $P5011
    $P5012 = $P5011()
    $P5013 = "&succeed"($P5012)
    set $P5015, $P5013
    pop_eh 
    goto skip_handler_46121
  catch_handler_47122:
    .get_results ($P5014) 
    set $I10001, $P5014["type"]
    eq $I10001, .CONTROL_CONTINUE, handle_type_48123
  handle_type_48123:
    getattribute $P10001, $P5014, "payload"
    finalize $P5014
    pop_upto_eh $P5014
    pop_eh 
    set $P5015, $P10001
    goto skip_handler_46121
  skip_handler_46121:
  if21_end46:
    new $P5010, 'ExceptionHandler', [.CONTROL_CONTINUE]
    set_label $P5010, catch_handler_50125
    push_eh $P5010
    nqp_get_sc_object $P5007, "E395371008F12CAD160057529FCB23CF59FF3774", 192
    $P5008 = $P5007()
    $P5009 = "&succeed"($P5008)
    set $P5011, $P5009
    pop_eh 
    goto skip_handler_49124
  catch_handler_50125:
    .get_results ($P5010) 
    set $I10001, $P5010["type"]
    eq $I10001, .CONTROL_CONTINUE, handle_type_51126
  handle_type_51126:
    getattribute $P10001, $P5010, "payload"
    finalize $P5010
    pop_upto_eh $P5010
    pop_eh 
    set $P5011, $P10001
    goto skip_handler_49124
  skip_handler_49124:
    set $P5008, $P5011
    pop_eh 
    goto skip_handler_52127
  catch_handler_53128:
    .get_results ($P5007) 
    set $I10001, $P5007["type"]
    eq $I10001, .CONTROL_BREAK, handle_type_54129
  handle_type_54129:
    getattribute $P10001, $P5007, "payload"
    nqp_get_sc_object $P10002, "E395371008F12CAD160057529FCB23CF59FF3774", 134
    perl6_type_check_return_value $P10001, $P10002
    perl6_returncc $P10001
    finalize $P5007
    pop_upto_eh $P5007
    pop_eh 
    set $P5008, $P10001
    goto skip_handler_52127
  skip_handler_52127:
    .return ($P5008) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_18_1372810518.65886") :anon :lex :outer("cuid_30_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 68
    .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_restart20
    gt rx12_pos, rx12_eos, rx12_fail21
    repr_get_attr_int $I11, self, rx12_curclass, "$!from"
    ne $I11, -1, rxscan13_done27
    goto rxscan13_scan26
  rxscan13_loop25:
    inc rx12_pos
    gt rx12_pos, rx12_eos, rx12_fail21
    repr_bind_attr_int rx12_cur, rx12_curclass, "$!from", rx12_pos
  rxscan13_scan26:
    nqp_rxmark rx12_bstack, rxscan13_loop25, rx12_pos, 0
  rxscan13_done27:
    add $I11, rx12_pos, 2
    gt $I11, rx12_eos, rx12_fail21
    substr $S10, rx12_tgt, rx12_pos, 2
    ne $S10, ucs4:"30", rx12_fail21
    add rx12_pos, 2
    ge rx12_pos, rx12_eos, rx12_fail21
    substr $S11, rx12_tgt, rx12_pos, 1
    index $I11, ucs4:"12", $S11
    lt $I11, 0, rx12_fail21
    inc rx12_pos
    rx12_cur."!cursor_pass"(rx12_pos, 'backtrack'=>1)
    .return (rx12_cur)
  rx12_restart20:
    repr_get_attr_obj rx12_cstack, rx12_cur, rx12_curclass, "$!cstack"
  rx12_fail21:
    unless rx12_bstack, rx12_done19
    pop $I19, rx12_bstack
    if_null rx12_cstack, rx12_cstack_done24
    unless rx12_cstack, rx12_cstack_done24
    dec $I19
    set $P11, rx12_cstack[$I19]
  rx12_cstack_done24:
    pop rx12_rep, rx12_bstack
    pop rx12_pos, rx12_bstack
    pop $I19, rx12_bstack
    lt rx12_pos, -1, rx12_done19
    lt rx12_pos, 0, rx12_fail21
    eq $I19, 0, rx12_fail21
    nqp_islist $I20, rx12_cstack
    unless $I20, rx12_jump22
    elements $I18, rx12_bstack
    le $I18, 0, rx12_cut23
    dec $I18
    set $I18, rx12_bstack[$I18]
  rx12_cut23:
    assign rx12_cstack, $I18
  rx12_jump22:
    jump $I19
  rx12_done19:
    rx12_cur."!cursor_fail"()
    .return (rx12_cur) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_21_1372810518.65886") :anon :lex :outer("cuid_30_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 85
    .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 rx14_tgt
    .local int rx14_pos
    .local int rx14_off
    .local int rx14_eos
    .local int rx14_rep
    .local pmc rx14_cur
    .local pmc rx14_curclass
    .local pmc rx14_bstack
    .local pmc rx14_cstack
    (rx14_cur, rx14_tgt, rx14_pos, rx14_curclass, rx14_bstack, $I19) = self."!cursor_start"()
    store_lex unicode:"$\x{a2}", rx14_cur
    length rx14_eos, rx14_tgt
    eq $I19, 1, rx14_restart30
    gt rx14_pos, rx14_eos, rx14_fail31
    repr_get_attr_int $I11, self, rx14_curclass, "$!from"
    ne $I11, -1, rxscan15_done37
    goto rxscan15_scan36
  rxscan15_loop35:
    inc rx14_pos
    gt rx14_pos, rx14_eos, rx14_fail31
    repr_bind_attr_int rx14_cur, rx14_curclass, "$!from", rx14_pos
  rxscan15_scan36:
    nqp_rxmark rx14_bstack, rxscan15_loop35, rx14_pos, 0
  rxscan15_done37:
    add $I11, rx14_pos, 3
    gt $I11, rx14_eos, rx14_fail31
    substr $S10, rx14_tgt, rx14_pos, 3
    ne $S10, ucs4:"200", rx14_fail31
    add rx14_pos, 3
    rx14_cur."!cursor_pass"(rx14_pos, 'backtrack'=>1)
    .return (rx14_cur)
  rx14_restart30:
    repr_get_attr_obj rx14_cstack, rx14_cur, rx14_curclass, "$!cstack"
  rx14_fail31:
    unless rx14_bstack, rx14_done29
    pop $I19, rx14_bstack
    if_null rx14_cstack, rx14_cstack_done34
    unless rx14_cstack, rx14_cstack_done34
    dec $I19
    set $P11, rx14_cstack[$I19]
  rx14_cstack_done34:
    pop rx14_rep, rx14_bstack
    pop rx14_pos, rx14_bstack
    pop $I19, rx14_bstack
    lt rx14_pos, -1, rx14_done29
    lt rx14_pos, 0, rx14_fail31
    eq $I19, 0, rx14_fail31
    nqp_islist $I20, rx14_cstack
    unless $I20, rx14_jump32
    elements $I18, rx14_bstack
    le $I18, 0, rx14_cut33
    dec $I18
    set $I18, rx14_bstack[$I18]
  rx14_cut33:
    assign rx14_cstack, $I18
  rx14_jump32:
    jump $I19
  rx14_done29:
    rx14_cur."!cursor_fail"()
    .return (rx14_cur) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_29_1372810518.65886") :anon :lex :outer("cuid_30_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 110
    .lex "$_", $P101 
.annotate 'line', 111
    $P5002 = "&return"()
    .return ($P5002) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_19_1372810518.65886") :anon :lex :outer("cuid_30_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 68
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5004 = 'cuid_20_1372810518.65886' 
    capture_lex $P5004 
    .lex "$_", $P101 
    .lex "%resp_headers", $P102 
    .lex "$new_url", $P103 
    .lex "call_sig", $P104 
    .lex "$*DISPATCHER", $P105 
    perl6_take_dispatcher 
    set $P5002, CALL_SIG
    set $P104, $P5002
    bind_signature 
.annotate 'line', 69

    find_lex $P5005, "$resp_headers"
    $P5006 = $P5005."hash"()
    perl6ize_type $P5004, $P5006
    $P102."STORE"($P5004)
.annotate 'line', 70

    nqp_get_sc_object $P5005, "E395371008F12CAD160057529FCB23CF59FF3774", 145
    $P5006 = $P102."postcircumfix:<{ }>"($P5005)
    perl6ize_type $P5004, $P5006
    perl6_container_store $P103, $P5004
.annotate 'line', 71
    find_lex $P5005, "&prefix:<!>"
    perl6_multi_dispatch_thunk $P5004, $P5005
    $P5006 = $P5004($P103)
    unless $P5006 goto if17_else40 
    .const 'Sub' $P5007 = 'cuid_20_1372810518.65886' 
    capture_lex $P5007
    $P5008 = $P5007()
    goto if17_end41
  if17_else40:
    find_lex $P5009, "Nil"
  if17_end41:
.annotate 'line', 82
    find_lex $P5005, "self"
    find_lex $P5006, "$rt"
    find_lex $P5007, "%headers"
    find_lex $P5008, "$content"
    $P5009 = $P5005."request_shell"($P5006, $P103, $P5007, $P5008)
    perl6ize_type $P5004, $P5009
    $P5010 = "&return"($P5004)
    .return ($P5010) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_20_1372810518.65886") :anon :lex :outer("cuid_19_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 71
    .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', 72
    nqp_get_sc_object $P5010, "E395371008F12CAD160057529FCB23CF59FF3774", 147
    find_lex $P5011, "$status"
    $P5012 = $P5011."Stringy"()
    find_lex $P5009, "&infix:<~>"
    perl6_multi_dispatch_thunk $P5008, $P5009
    $P5013 = $P5008($P5010, $P5012)
    nqp_get_sc_object $P5014, "E395371008F12CAD160057529FCB23CF59FF3774", 148
    find_lex $P5007, "&infix:<~>"
    perl6_multi_dispatch_thunk $P5006, $P5007
    $P5015 = $P5006($P5013, $P5014)
    find_lex $P5005, "&die"
    perl6_multi_dispatch_thunk $P5004, $P5005
    $P5016 = $P5004($P5015)
    .return ($P5016) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_28_1372810518.65886") :anon :lex :outer("cuid_30_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 85
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5006 = 'cuid_22_1372810518.65886' 
    capture_lex $P5006 
    .const 'Sub' $P5006 = 'cuid_23_1372810518.65886' 
    capture_lex $P5006 
    .const 'Sub' $P5006 = 'cuid_24_1372810518.65886' 
    capture_lex $P5006 
    .const 'Sub' $P5006 = 'cuid_27_1372810518.65886' 
    capture_lex $P5006 
    .lex "$_", $P101 
    .lex "call_sig", $P102 
    .lex "$*DISPATCHER", $P103 
    .local pmc old_topic_2 
    .local pmc sm_result_2 
    .local pmc old_topic_3 
    .local pmc sm_result_3 
    perl6_take_dispatcher 
    .const 'Sub' $P5002 = 'cuid_22_1372810518.65886' 
    capture_lex $P5002
    .const 'Sub' $P5003 = 'cuid_23_1372810518.65886' 
    capture_lex $P5003
    set $P5004, CALL_SIG
    set $P102, $P5004
    bind_signature 
.annotate 'line', 87
    find_lex $P5007, "$resp_headers"
    nqp_get_sc_object $P5008, "E395371008F12CAD160057529FCB23CF59FF3774", 158
    $P5009 = $P5007."postcircumfix:<{ }>"($P5008)
    perl6ize_type $P5006, $P5009
    set $P5010, $P5006
    unless $P5006 goto if35_end88 
    find_lex $P5010, "$_"
    set old_topic_2, $P5010
.annotate 'line', 88
    find_lex $P5012, "$resp_headers"
    nqp_get_sc_object $P5013, "E395371008F12CAD160057529FCB23CF59FF3774", 158
    $P5014 = $P5012."postcircumfix:<{ }>"($P5013)
    perl6ize_type $P5011, $P5014
    store_lex "$_", $P5011
    nqp_get_sc_object $P5015, "E395371008F12CAD160057529FCB23CF59FF3774", 159
    $P5016 = $P5015."clone"()
    perl6_capture_lex $P5016
    find_lex $P5017, "$_"
    $P5018 = $P5016."ACCEPTS"($P5017)
    set sm_result_2, $P5018
    store_lex "$_", old_topic_2
    set $P5010, sm_result_2
  if35_end88:
    set $P5027, $P5010
    unless $P5010 goto if34_end86 
.annotate 'line', 91
    find_lex $P5013, "$/"
    nqp_get_sc_object $P5014, "E395371008F12CAD160057529FCB23CF59FF3774", 165
    $P5015 = $P5013."postcircumfix:<{ }>"($P5014)
    nqp_get_sc_object $P5016, "E395371008F12CAD160057529FCB23CF59FF3774", 166
    find_lex $P5012, "&infix:<eq>"
    perl6_multi_dispatch_thunk $P5011, $P5012
    $P5017 = $P5011($P5015, $P5016)
    set $P5026, $P5017
    if $P5017 goto unless36_end90 
.annotate 'line', 92
    find_lex $P5020, "$/"
    nqp_get_sc_object $P5021, "E395371008F12CAD160057529FCB23CF59FF3774", 165
    $P5022 = $P5020."postcircumfix:<{ }>"($P5021)
    nqp_get_sc_object $P5023, "E395371008F12CAD160057529FCB23CF59FF3774", 167
    find_lex $P5019, "&infix:<eq>"
    perl6_multi_dispatch_thunk $P5018, $P5019
    $P5024 = $P5018($P5022, $P5023)
    set $P5025, $P5024
    unless $P5024 goto if37_end92 
    find_lex $P5025, "$_"
    set old_topic_3, $P5025
.annotate 'line', 93
    find_lex $P5026, "$/"
    nqp_get_sc_object $P5027, "E395371008F12CAD160057529FCB23CF59FF3774", 168
    $P5028 = $P5026."postcircumfix:<{ }>"($P5027)
    store_lex "$_", $P5028
    nqp_get_sc_object $P5029, "E395371008F12CAD160057529FCB23CF59FF3774", 169
    $P5030 = $P5029."clone"()
    perl6_capture_lex $P5030
    find_lex $P5031, "$_"
    $P5032 = $P5030."ACCEPTS"($P5031)
    set sm_result_3, $P5032
    store_lex "$_", old_topic_3
    set $P5025, sm_result_3
  if37_end92:
    set $P5026, $P5025
  unless36_end90:
    set $P5027, $P5026
  if34_end86:
    unless $P5027 goto if33_else83 
    .const 'Sub' $P5028 = 'cuid_24_1372810518.65886' 
    capture_lex $P5028
    $P5029 = $P5028()
    set $P5032, $P5029
    goto if33_end84
  if33_else83:
    .const 'Sub' $P5030 = 'cuid_27_1372810518.65886' 
    capture_lex $P5030
    $P5031 = $P5030()
    set $P5032, $P5031
  if33_end84:
    .return ($P5032) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_22_1372810518.65886") :anon :lex :outer("cuid_28_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 89
    .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 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_restart49
    gt rx22_pos, rx22_eos, rx22_fail50
    repr_get_attr_int $I11, self, rx22_curclass, "$!from"
    ne $I11, -1, rxscan23_done56
    goto rxscan23_scan55
  rxscan23_loop54:
    inc rx22_pos
    gt rx22_pos, rx22_eos, rx22_fail50
    repr_bind_attr_int rx22_cur, rx22_curclass, "$!from", rx22_pos
  rxscan23_scan55:
    nqp_rxmark rx22_bstack, rxscan23_loop54, rx22_pos, 0
  rxscan23_done56:
    nqp_rxmark rx22_bstack, rxcap24_fail58, rx22_pos, 0
  rxquantg25_loop59:
    ge rx22_pos, rx22_eos, rx22_fail50
    substr $S11, rx22_tgt, rx22_pos, 1
    index $I11, ucs4:"/;", $S11
    ge $I11, 0, rx22_fail50
    inc rx22_pos
    nqp_rxmark rx22_bstack, rxquantg25_done60, rx22_pos, rx22_rep
    goto rxquantg25_loop59
  rxquantg25_done60:
    nqp_rxpeek $I19, rx22_bstack, rxcap24_fail58
    inc $I19
    set $I11, rx22_bstack[$I19]
    repr_bind_attr_int rx22_cur, rx22_curclass, "$!pos", rx22_pos
    $P11 = rx22_cur."!cursor_start_subcapture"($I11)
    $P11."!cursor_pass"(rx22_pos)
    rx22_cstack = rx22_cur."!cursor_capture"($P11, "media-type")
    goto rxcap24_done57
  rxcap24_fail58:
    goto rx22_fail50
  rxcap24_done57:
    nqp_rxmark rx22_bstack, rxquantg26_done62, rx22_pos, 0
  rxquantg26_loop61:
    ge rx22_pos, rx22_eos, rx22_fail50
    substr $S11, rx22_tgt, rx22_pos, 1
    index $I11, ucs4:"/", $S11
    lt $I11, 0, rx22_fail50
    inc rx22_pos
    nqp_rxmark rx22_bstack, rxcap27_fail64, rx22_pos, 0
  rxquantg28_loop65:
    ge rx22_pos, rx22_eos, rx22_fail50
    substr $S11, rx22_tgt, rx22_pos, 1
    index $I11, ucs4:";", $S11
    ge $I11, 0, rx22_fail50
    inc rx22_pos
    nqp_rxmark rx22_bstack, rxquantg28_done66, rx22_pos, rx22_rep
    goto rxquantg28_loop65
  rxquantg28_done66:
    nqp_rxpeek $I19, rx22_bstack, rxcap27_fail64
    inc $I19
    set $I11, rx22_bstack[$I19]
    repr_bind_attr_int rx22_cur, rx22_curclass, "$!pos", rx22_pos
    $P11 = rx22_cur."!cursor_start_subcapture"($I11)
    $P11."!cursor_pass"(rx22_pos)
    rx22_cstack = rx22_cur."!cursor_capture"($P11, "media-subtype")
    goto rxcap27_done63
  rxcap27_fail64:
    goto rx22_fail50
  rxcap27_done63:
  rxquantg26_done62:
    rx22_cur."!cursor_pass"(rx22_pos, 'backtrack'=>1)
    .return (rx22_cur)
  rx22_restart49:
    repr_get_attr_obj rx22_cstack, rx22_cur, rx22_curclass, "$!cstack"
  rx22_fail50:
    unless rx22_bstack, rx22_done48
    pop $I19, rx22_bstack
    if_null rx22_cstack, rx22_cstack_done53
    unless rx22_cstack, rx22_cstack_done53
    dec $I19
    set $P11, rx22_cstack[$I19]
  rx22_cstack_done53:
    pop rx22_rep, rx22_bstack
    pop rx22_pos, rx22_bstack
    pop $I19, rx22_bstack
    lt rx22_pos, -1, rx22_done48
    lt rx22_pos, 0, rx22_fail50
    eq $I19, 0, rx22_fail50
    nqp_islist $I20, rx22_cstack
    unless $I20, rx22_jump51
    elements $I18, rx22_bstack
    le $I18, 0, rx22_cut52
    dec $I18
    set $I18, rx22_bstack[$I18]
  rx22_cut52:
    assign rx22_cstack, $I18
  rx22_jump51:
    jump $I19
  rx22_done48:
    rx22_cur."!cursor_fail"()
    .return (rx22_cur) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_23_1372810518.65886") :anon :lex :outer("cuid_28_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 93
    .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 rx29_tgt
    .local int rx29_pos
    .local int rx29_off
    .local int rx29_eos
    .local int rx29_rep
    .local pmc rx29_cur
    .local pmc rx29_curclass
    .local pmc rx29_bstack
    .local pmc rx29_cstack
    (rx29_cur, rx29_tgt, rx29_pos, rx29_curclass, rx29_bstack, $I19) = self."!cursor_start"()
    store_lex unicode:"$\x{a2}", rx29_cur
    length rx29_eos, rx29_tgt
    eq $I19, 1, rx29_restart69
    gt rx29_pos, rx29_eos, rx29_fail70
    repr_get_attr_int $I11, self, rx29_curclass, "$!from"
    ne $I11, -1, rxscan30_done76
    goto rxscan30_scan75
  rxscan30_loop74:
    inc rx29_pos
    gt rx29_pos, rx29_eos, rx29_fail70
    repr_bind_attr_int rx29_cur, rx29_curclass, "$!from", rx29_pos
  rxscan30_scan75:
    nqp_rxmark rx29_bstack, rxscan30_loop74, rx29_pos, 0
  rxscan30_done76:
    new $P11, "ResizableIntegerArray"
    nqp_push_label $P11, alt31_078
    nqp_push_label $P11, alt31_182
    nqp_rxmark rx29_bstack, alt31_end77, -1, 0
    rx29_cur."!alt"(rx29_pos, "alt_nfa__2_1372810520.43196", $P11)
    goto rx29_fail70
  alt31_078:
    new $P11, "ResizableIntegerArray"
    nqp_push_label $P11, alt32_080
    nqp_push_label $P11, alt32_181
    nqp_rxmark rx29_bstack, alt32_end79, -1, 0
    rx29_cur."!alt"(rx29_pos, "alt_nfa__1_1372810520.43133", $P11)
    goto rx29_fail70
  alt32_080:
    add $I11, rx29_pos, 4
    gt $I11, rx29_eos, rx29_fail70
    substr $S10, rx29_tgt, rx29_pos, 4
    ne $S10, ucs4:"ecma", rx29_fail70
    add rx29_pos, 4
    goto alt32_end79
  alt32_181:
    add $I11, rx29_pos, 4
    gt $I11, rx29_eos, rx29_fail70
    substr $S10, rx29_tgt, rx29_pos, 4
    ne $S10, ucs4:"java", rx29_fail70
    add rx29_pos, 4
    goto alt32_end79
  alt32_end79:
    add $I11, rx29_pos, 6
    gt $I11, rx29_eos, rx29_fail70
    substr $S10, rx29_tgt, rx29_pos, 6
    ne $S10, ucs4:"script", rx29_fail70
    add rx29_pos, 6
    goto alt31_end77
  alt31_182:
    add $I11, rx29_pos, 4
    gt $I11, rx29_eos, rx29_fail70
    substr $S10, rx29_tgt, rx29_pos, 4
    ne $S10, ucs4:"json", rx29_fail70
    add rx29_pos, 4
    goto alt31_end77
  alt31_end77:
    rx29_cur."!cursor_pass"(rx29_pos, 'backtrack'=>1)
    .return (rx29_cur)
  rx29_restart69:
    repr_get_attr_obj rx29_cstack, rx29_cur, rx29_curclass, "$!cstack"
  rx29_fail70:
    unless rx29_bstack, rx29_done68
    pop $I19, rx29_bstack
    if_null rx29_cstack, rx29_cstack_done73
    unless rx29_cstack, rx29_cstack_done73
    dec $I19
    set $P11, rx29_cstack[$I19]
  rx29_cstack_done73:
    pop rx29_rep, rx29_bstack
    pop rx29_pos, rx29_bstack
    pop $I19, rx29_bstack
    lt rx29_pos, -1, rx29_done68
    lt rx29_pos, 0, rx29_fail70
    eq $I19, 0, rx29_fail70
    nqp_islist $I20, rx29_cstack
    unless $I20, rx29_jump71
    elements $I18, rx29_bstack
    le $I18, 0, rx29_cut72
    dec $I18
    set $I18, rx29_bstack[$I18]
  rx29_cut72:
    assign rx29_cstack, $I18
  rx29_jump71:
    jump $I19
  rx29_done68:
    rx29_cur."!cursor_fail"()
    .return (rx29_cur) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_24_1372810518.65886") :anon :lex :outer("cuid_28_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 96
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5005 = 'cuid_26_1372810518.65886' 
    capture_lex $P5005 
    .lex "$_", $P101 
    .lex "$charset", $P102 
    .lex "call_sig", $P103 
    .lex "$*DISPATCHER", $P104 
    .local pmc old_topic_4 
    .local pmc sm_result_4 
    perl6_take_dispatcher 
    .const 'Sub' $P5002 = 'cuid_26_1372810518.65886' 
    capture_lex $P5002
    set $P5003, CALL_SIG
    set $P103, $P5003
    bind_signature 
.annotate 'line', 97

.annotate 'line', 98
    find_lex $P5006, "$_"
    set old_topic_4, $P5006
    find_lex $P5008, "$resp_headers"
    nqp_get_sc_object $P5009, "E395371008F12CAD160057529FCB23CF59FF3774", 158
    $P5010 = $P5008."postcircumfix:<{ }>"($P5009)
    perl6ize_type $P5007, $P5010
    store_lex "$_", $P5007
    nqp_get_sc_object $P5011, "E395371008F12CAD160057529FCB23CF59FF3774", 181
    $P5012 = $P5011."clone"()
    perl6_capture_lex $P5012
    find_lex $P5013, "$_"
    $P5014 = $P5012."ACCEPTS"($P5013)
    set sm_result_4, $P5014
    store_lex "$_", old_topic_4
    nqp_get_sc_object $P5006, "E395371008F12CAD160057529FCB23CF59FF3774", 187
    $P5007 = sm_result_4."postcircumfix:<[ ]>"($P5006)
    perl6ize_type $P5005, $P5007
    perl6_container_store $P102, $P5005
.annotate 'line', 99

    unless $P102 goto if44_else117 
    $P5006 = $P102."Str"()
    perl6ize_type $P5005, $P5006
    set $P5015, $P5005
    goto if44_end118
  if44_else117:
.annotate 'line', 100
    find_lex $P5007, "self"
    unless $P5007 goto if45_else119 
    find_lex $P5008, "self"
    $P5009 = $P5008."default_encoding"()
    $P5010 = $P5009."item"()
    set $P5014, $P5010
    goto if45_end120
  if45_else119:
    find_lex $P5011, "self"
    $P5012 = $P5011."class_default_encoding"()
    $P5013 = $P5012."item"()
    set $P5014, $P5013
  if45_end120:
    set $P5015, $P5014
  if44_end118:
    perl6_container_store $P102, $P5015
.annotate 'line', 101
    find_lex $P5006, "$resp_content"
    $P5007 = $P5006."decode"($P102)
    perl6ize_type $P5005, $P5007
    $P5008 = "&return"($P5005)
    .return ($P5008) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_26_1372810518.65886") :anon :lex :outer("cuid_24_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 98
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5006 = 'cuid_25_1372810518.65886' 
    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 rx38_tgt
    .local int rx38_pos
    .local int rx38_off
    .local int rx38_eos
    .local int rx38_rep
    .local pmc rx38_cur
    .local pmc rx38_curclass
    .local pmc rx38_bstack
    .local pmc rx38_cstack
    (rx38_cur, rx38_tgt, rx38_pos, rx38_curclass, rx38_bstack, $I19) = self."!cursor_start"()
    store_lex unicode:"$\x{a2}", rx38_cur
    length rx38_eos, rx38_tgt
    eq $I19, 1, rx38_restart95
    gt rx38_pos, rx38_eos, rx38_fail96
    repr_get_attr_int $I11, self, rx38_curclass, "$!from"
    ne $I11, -1, rxscan39_done102
    goto rxscan39_scan101
  rxscan39_loop100:
    inc rx38_pos
    gt rx38_pos, rx38_eos, rx38_fail96
    repr_bind_attr_int rx38_cur, rx38_curclass, "$!from", rx38_pos
  rxscan39_scan101:
    nqp_rxmark rx38_bstack, rxscan39_loop100, rx38_pos, 0
  rxscan39_done102:
    add $I11, rx38_pos, 8
    gt $I11, rx38_eos, rx38_fail96
    substr $S10, rx38_tgt, rx38_pos, 8
    ne $S10, ucs4:"charset=", rx38_fail96
    add rx38_pos, 8
    .const 'Sub' $P5005 = 'cuid_25_1372810518.65886' 
    capture_lex $P5005
    repr_bind_attr_int rx38_cur, rx38_curclass, "$!pos", rx38_pos
    $P11 = rx38_cur.$P5005()
    repr_get_attr_int $I11, $P11, rx38_curclass, "$!pos"
    lt $I11, 0, rx38_fail96
    goto rxsubrule43_pass115
  rxsubrule43_back116:
    $P11 = $P11."!cursor_next"()
    repr_get_attr_int $I11, $P11, rx38_curclass, "$!pos"
    lt $I11, 0, rx38_fail96
  rxsubrule43_pass115:
    rx38_cstack = rx38_cur."!cursor_capture"($P11, "0")
    set_addr $I11, rxsubrule43_back116
    push rx38_bstack, $I11
    push rx38_bstack, 0
    push rx38_bstack, rx38_pos
    elements $I11, rx38_cstack
    push rx38_bstack, $I11
    repr_get_attr_int rx38_pos, $P11, rx38_curclass, "$!pos"
    rx38_cur."!cursor_pass"(rx38_pos, 'backtrack'=>1)
    .return (rx38_cur)
  rx38_restart95:
    repr_get_attr_obj rx38_cstack, rx38_cur, rx38_curclass, "$!cstack"
  rx38_fail96:
    unless rx38_bstack, rx38_done94
    pop $I19, rx38_bstack
    if_null rx38_cstack, rx38_cstack_done99
    unless rx38_cstack, rx38_cstack_done99
    dec $I19
    set $P11, rx38_cstack[$I19]
  rx38_cstack_done99:
    pop rx38_rep, rx38_bstack
    pop rx38_pos, rx38_bstack
    pop $I19, rx38_bstack
    lt rx38_pos, -1, rx38_done94
    lt rx38_pos, 0, rx38_fail96
    eq $I19, 0, rx38_fail96
    nqp_islist $I20, rx38_cstack
    unless $I20, rx38_jump97
    elements $I18, rx38_bstack
    le $I18, 0, rx38_cut98
    dec $I18
    set $I18, rx38_bstack[$I18]
  rx38_cut98:
    assign rx38_cstack, $I18
  rx38_jump97:
    jump $I19
  rx38_done94:
    rx38_cur."!cursor_fail"()
    .return (rx38_cur) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_25_1372810518.65886") :anon :lex :outer("cuid_26_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
    .param pmc self 
    .lex utf8:"$\x{a2}", $P101 
    .local string rx40_tgt
    .local int rx40_pos
    .local int rx40_off
    .local int rx40_eos
    .local int rx40_rep
    .local pmc rx40_cur
    .local pmc rx40_curclass
    .local pmc rx40_bstack
    .local pmc rx40_cstack
    (rx40_cur, rx40_tgt, rx40_pos, rx40_curclass, rx40_bstack, $I19) = self."!cursor_start"()
    store_lex unicode:"$\x{a2}", rx40_cur
    length rx40_eos, rx40_tgt
    eq $I19, 1, rx40_restart105
    gt rx40_pos, rx40_eos, rx40_fail106
    repr_get_attr_int $I11, self, rx40_curclass, "$!from"
    ne $I11, -1, rxscan41_done112
    goto rxscan41_scan111
  rxscan41_loop110:
    inc rx40_pos
    gt rx40_pos, rx40_eos, rx40_fail106
    repr_bind_attr_int rx40_cur, rx40_curclass, "$!from", rx40_pos
  rxscan41_scan111:
    nqp_rxmark rx40_bstack, rxscan41_loop110, rx40_pos, 0
  rxscan41_done112:
    nqp_rxmark rx40_bstack, rxquantg42_done114, rx40_pos, 0
  rxquantg42_loop113:
    ge rx40_pos, rx40_eos, rx40_fail106
    substr $S11, rx40_tgt, rx40_pos, 1
    index $I11, ucs4:";", $S11
    ge $I11, 0, rx40_fail106
    inc rx40_pos
    nqp_rxmark rx40_bstack, rxquantg42_done114, rx40_pos, rx40_rep
    goto rxquantg42_loop113
  rxquantg42_done114:
    rx40_cur."!cursor_pass"(rx40_pos, 'backtrack'=>1)
    .return (rx40_cur)
  rx40_restart105:
    repr_get_attr_obj rx40_cstack, rx40_cur, rx40_curclass, "$!cstack"
  rx40_fail106:
    unless rx40_bstack, rx40_done104
    pop $I19, rx40_bstack
    if_null rx40_cstack, rx40_cstack_done109
    unless rx40_cstack, rx40_cstack_done109
    dec $I19
    set $P11, rx40_cstack[$I19]
  rx40_cstack_done109:
    pop rx40_rep, rx40_bstack
    pop rx40_pos, rx40_bstack
    pop $I19, rx40_bstack
    lt rx40_pos, -1, rx40_done104
    lt rx40_pos, 0, rx40_fail106
    eq $I19, 0, rx40_fail106
    nqp_islist $I20, rx40_cstack
    unless $I20, rx40_jump107
    elements $I18, rx40_bstack
    le $I18, 0, rx40_cut108
    dec $I18
    set $I18, rx40_bstack[$I18]
  rx40_cut108:
    assign rx40_cstack, $I18
  rx40_jump107:
    jump $I19
  rx40_done104:
    rx40_cur."!cursor_fail"()
    .return (rx40_cur) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_27_1372810518.65886") :anon :lex :outer("cuid_28_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 103
    .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', 104
    find_lex $P5004, "$resp_content"
    $P5005 = "&return"($P5004)
    .return ($P5005) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_16_1372810518.65886") :anon :lex :outer("cuid_14_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 45
    .param pmc CALL_SIG :call_sig 
    .lex "$_", $P101 
    .lex "$user", $P102 
    .lex "$pass", $P103 
    .lex "$base64enc", $P104 
    .lex "call_sig", $P105 
    .lex "$*DISPATCHER", $P106 
    perl6_take_dispatcher 
    set $P5002, CALL_SIG
    set $P105, $P5002
    bind_signature 
.annotate 'line', 46
    find_lex $P5004, "$hostname"
    find_lex $P5006, "$auth"
    nqp_get_sc_object $P5007, "E395371008F12CAD160057529FCB23CF59FF3774", 117
    $P5008 = $P5006."postcircumfix:<{ }>"($P5007)
    perl6ize_type $P5005, $P5008
    perl6_container_store $P5004, $P5005
.annotate 'line', 47

    find_lex $P5005, "$auth"
    nqp_get_sc_object $P5006, "E395371008F12CAD160057529FCB23CF59FF3774", 120
    $P5007 = $P5005."postcircumfix:<{ }>"($P5006)
    perl6ize_type $P5004, $P5007
    perl6_container_store $P102, $P5004
.annotate 'line', 48

    find_lex $P5005, "$auth"
    nqp_get_sc_object $P5006, "E395371008F12CAD160057529FCB23CF59FF3774", 122
    $P5007 = $P5005."postcircumfix:<{ }>"($P5006)
    perl6ize_type $P5004, $P5007
    perl6_container_store $P103, $P5004
.annotate 'line', 49

    find_lex $P5005, "self"
    $P5006 = $P5005."base64encode"($P102, $P103)
    perl6ize_type $P5004, $P5006
    perl6_container_store $P104, $P5004
.annotate 'line', 50
    find_lex $P5005, "%headers"
    nqp_get_sc_object $P5006, "E395371008F12CAD160057529FCB23CF59FF3774", 124
    $P5007 = $P5005."postcircumfix:<{ }>"($P5006)
    perl6ize_type $P5004, $P5007
    nqp_get_sc_object $P5010, "E395371008F12CAD160057529FCB23CF59FF3774", 125
    $P5011 = $P104."Stringy"()
    find_lex $P5009, "&infix:<~>"
    perl6_multi_dispatch_thunk $P5008, $P5009
    $P5012 = $P5008($P5010, $P5011)
    perl6_container_store $P5004, $P5012
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_17_1372810518.65886") :anon :lex :outer("cuid_14_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 55
    .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', 60
    find_lex $P5005, "%headers"
    nqp_get_sc_object $P5006, "E395371008F12CAD160057529FCB23CF59FF3774", 129
    $P5007 = $P5005."postcircumfix:<{ }>"($P5006)
    perl6ize_type $P5004, $P5007
    find_lex $P5010, "$content"
    $P5011 = $P5010."encode"()
    perl6ize_type $P5009, $P5011
    $P5012 = $P5009."bytes"()
    perl6ize_type $P5008, $P5012
    perl6_container_store $P5004, $P5008
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "parse_chunks" :subid("cuid_32_1372810518.65886") :anon :lex :outer("cuid_2_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 117
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5010 = 'cuid_31_1372810518.65886' 
    capture_lex $P5010 
    .const 'Sub' $P5010 = 'cuid_42_1372810518.65886' 
    capture_lex $P5010 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$b", $P103 
    .lex "$sock", $P104 
    .lex "$_", $P105 
    .lex "$/", $P106 
    .lex "$!", $P107 
    .lex "$line_end_pos", $P108 
    .lex "$chunk_len", $P109 
    .lex "$chunk_start", $P110 
    .lex "$content", $P111 
    .lex "call_sig", $P112 
    .lex "$*DISPATCHER", $P113 
    .lex "&?ROUTINE", $P114 
    perl6_take_dispatcher 
    .const 'Sub' $P5005 = 'cuid_31_1372810518.65886' 
    capture_lex $P5005
    set $P5006, CALL_SIG
    set $P112, $P5006
    bind_signature 
    root_new $P115, ['parrot';'Continuation']
    set_label $P115, lexotic_140
    .lex "RETURN", $P115
    $P5008 = "&infix:<,>"($P108, $P109, $P110)
.annotate 'line', 118
    nqp_get_sc_object $P5011, "E395371008F12CAD160057529FCB23CF59FF3774", 210
    $P5012 = $P5011."clone"()
    perl6_capture_lex $P5012
    nqp_get_sc_object $P5013, "E395371008F12CAD160057529FCB23CF59FF3774", 208
    perl6_booleanize $P5014, 1
    find_lex $P5010, "&infix:<xx>"
    perl6_multi_dispatch_thunk $P5009, $P5010
    $P5015 = $P5009($P5012, $P5013, $P5014 :named("thunked"))
    perl6_container_store $P5008, $P5015
.annotate 'line', 119
    nqp_get_sc_object $P5008, "E395371008F12CAD160057529FCB23CF59FF3774", 52
    $P111."dispatch:<.=>"($P5008)
    new $P5020, 'ExceptionHandler', [.CONTROL_LOOP_NEXT;.CONTROL_LOOP_REDO;.CONTROL_LOOP_LAST]
    set_label $P5020, while59_handlers145
    push_eh $P5020
  while59_test142:
.annotate 'line', 122
    nqp_get_sc_object $P5012, "E395371008F12CAD160057529FCB23CF59FF3774", 216
    find_lex $P5011, "&infix:<+>"
    perl6_multi_dispatch_thunk $P5010, $P5011
    $P5013 = $P5010($P108, $P5012)
    $P5015 = $P103."bytes"()
    perl6ize_type $P5014, $P5015
    find_lex $P5009, "&infix:<<=>"
    perl6_multi_dispatch_thunk $P5008, $P5009
    $P5016 = $P5008($P5013, $P5014)
    set $P5019, $P5016
    unless $P5016 goto while59_done146 
  while59_redo144:
    .const 'Sub' $P5017 = 'cuid_42_1372810518.65886' 
    capture_lex $P5017
    $P5018 = $P5017()
    set $P5019, $P5018
    goto while59_test142 
  while59_handlers145:
    .get_results ($P5020)
    pop_upto_eh $P5020
    getattribute $P5020, $P5020, 'type'
    eq $P5020, .CONTROL_LOOP_NEXT, while59_test142
    eq $P5020, .CONTROL_LOOP_REDO, while59_redo144
  while59_done146:
    pop_eh 
.annotate 'line', 178
    nqp_get_sc_object $P5010, "E395371008F12CAD160057529FCB23CF59FF3774", 250
    find_lex $P5009, "&die"
    perl6_multi_dispatch_thunk $P5008, $P5009
    $P5011 = $P5008($P5010)
    perl6_decontainerize_return_value $P5007, $P5011
    goto lexotic_141
  lexotic_140:
    .get_results ($P5007)
  lexotic_141:
    find_lex $P5008, "&EXHAUST"
    store_lex "RETURN", $P5008
    nqp_get_sc_object $P5009, "E395371008F12CAD160057529FCB23CF59FF3774", 205
    perl6_type_check_return_value $P5007, $P5009
    .return ($P5007) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_31_1372810518.65886") :anon :lex :outer("cuid_32_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 118

    nqp_get_sc_object $P5001, "E395371008F12CAD160057529FCB23CF59FF3774", 187
    .return ($P5001) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_42_1372810518.65886") :anon :lex :outer("cuid_32_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 122
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5005 = 'cuid_35_1372810518.65886' 
    capture_lex $P5005 
    .const 'Sub' $P5005 = 'cuid_33_1372810518.65886' 
    capture_lex $P5005 
    .const 'Sub' $P5005 = 'cuid_40_1372810518.65886' 
    capture_lex $P5005 
    .const 'Sub' $P5005 = 'cuid_41_1372810518.65886' 
    capture_lex $P5005 
    .lex "$_", $P101 
    .lex "call_sig", $P102 
    .lex "$*DISPATCHER", $P103 
    .local pmc old_topic_5 
    .local pmc sm_result_5 
    perl6_take_dispatcher 
    .const 'Sub' $P5002 = 'cuid_35_1372810518.65886' 
    capture_lex $P5002
    set $P5003, CALL_SIG
    set $P102, $P5003
    bind_signature 
    new $P5029, 'ExceptionHandler', [.CONTROL_LOOP_NEXT;.CONTROL_LOOP_REDO;.CONTROL_LOOP_LAST]
    set_label $P5029, while69_handlers180
    push_eh $P5029
  while69_test177:
.annotate 'line', 123
    find_lex $P5009, "$line_end_pos"
    nqp_get_sc_object $P5010, "E395371008F12CAD160057529FCB23CF59FF3774", 218
    find_lex $P5008, "&infix:<+>"
    perl6_multi_dispatch_thunk $P5007, $P5008
    $P5011 = $P5007($P5009, $P5010)
    find_lex $P5013, "$b"
    $P5014 = $P5013."bytes"()
    perl6ize_type $P5012, $P5014
    find_lex $P5006, "&infix:<<=>"
    perl6_multi_dispatch_thunk $P5005, $P5006
    $P5015 = $P5005($P5011, $P5012)
    set $P5025, $P5015
    unless $P5015 goto if70_end183 
.annotate 'line', 124
    find_lex $P5019, "$b"
    find_lex $P5020, "$line_end_pos"
    nqp_get_sc_object $P5021, "E395371008F12CAD160057529FCB23CF59FF3774", 44
    $P5022 = $P5019."subbuf"($P5020, $P5021)
    perl6ize_type $P5018, $P5022
    find_lex $P5023, "$crlf"
    find_lex $P5017, "&infix:<ne>"
    perl6_multi_dispatch_thunk $P5016, $P5017
    $P5024 = $P5016($P5018, $P5023)
    set $P5025, $P5024
  if70_end183:
    set $P5028, $P5025
    unless $P5025 goto while69_done181 
  while69_redo179:
    .const 'Sub' $P5026 = 'cuid_33_1372810518.65886' 
    capture_lex $P5026
    $P5027 = $P5026()
    set $P5028, $P5027
    goto while69_test177 
  while69_handlers180:
    .get_results ($P5029)
    pop_upto_eh $P5029
    getattribute $P5029, $P5029, 'type'
    eq $P5029, .CONTROL_LOOP_NEXT, while69_test177
    eq $P5029, .CONTROL_LOOP_REDO, while69_redo179
  while69_done181:
    pop_eh 
.annotate 'line', 129
    find_lex $P5009, "$line_end_pos"
    nqp_get_sc_object $P5010, "E395371008F12CAD160057529FCB23CF59FF3774", 218
    find_lex $P5008, "&infix:<+>"
    perl6_multi_dispatch_thunk $P5007, $P5008
    $P5011 = $P5007($P5009, $P5010)
    find_lex $P5013, "$b"
    $P5014 = $P5013."bytes"()
    perl6ize_type $P5012, $P5014
    find_lex $P5006, "&infix:<<=>"
    perl6_multi_dispatch_thunk $P5005, $P5006
    $P5015 = $P5005($P5011, $P5012)
    set $P5016, $P5015
    unless $P5015 goto if72_end187 
    find_lex $P5016, "$_"
    set old_topic_5, $P5016
.annotate 'line', 132
.annotate 'line', 130
    find_lex $P5019, "$b"
.annotate 'line', 131
    find_lex $P5020, "$chunk_start"
    find_lex $P5025, "$line_end_pos"
    nqp_get_sc_object $P5026, "E395371008F12CAD160057529FCB23CF59FF3774", 44
    find_lex $P5024, "&infix:<+>"
    perl6_multi_dispatch_thunk $P5023, $P5024
    $P5027 = $P5023($P5025, $P5026)
    find_lex $P5028, "$chunk_start"
    find_lex $P5022, "&infix:<->"
    perl6_multi_dispatch_thunk $P5021, $P5022
    $P5029 = $P5021($P5027, $P5028)
    $P5030 = $P5019."subbuf"($P5020, $P5029)
    perl6ize_type $P5018, $P5030
    nqp_get_sc_object $P5031, "E395371008F12CAD160057529FCB23CF59FF3774", 221
    $P5032 = $P5018."decode"($P5031)
    perl6ize_type $P5017, $P5032
    store_lex "$_", $P5017
    nqp_get_sc_object $P5033, "E395371008F12CAD160057529FCB23CF59FF3774", 227
    $P5034 = $P5033."clone"()
    perl6_capture_lex $P5034
    find_lex $P5035, "$_"
    $P5036 = $P5034."ACCEPTS"($P5035)
    set sm_result_5, $P5036
    store_lex "$_", old_topic_5
    set $P5016, sm_result_5
  if72_end187:
    unless $P5016 goto if71_else184 
    .const 'Sub' $P5017 = 'cuid_40_1372810518.65886' 
    capture_lex $P5017
    $P5018 = $P5017()
    set $P5021, $P5018
    goto if71_end185
  if71_else184:
    .const 'Sub' $P5019 = 'cuid_41_1372810518.65886' 
    capture_lex $P5019
    $P5020 = $P5019()
    set $P5021, $P5020
  if71_end185:
    .return ($P5021) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_35_1372810518.65886") :anon :lex :outer("cuid_42_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 132
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5006 = 'cuid_34_1372810518.65886' 
    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 rx60_tgt
    .local int rx60_pos
    .local int rx60_off
    .local int rx60_eos
    .local int rx60_rep
    .local pmc rx60_cur
    .local pmc rx60_curclass
    .local pmc rx60_bstack
    .local pmc rx60_cstack
    (rx60_cur, rx60_tgt, rx60_pos, rx60_curclass, rx60_bstack, $I19) = self."!cursor_start"()
    store_lex unicode:"$\x{a2}", rx60_cur
    length rx60_eos, rx60_tgt
    eq $I19, 1, rx60_restart149
    gt rx60_pos, rx60_eos, rx60_fail150
    repr_get_attr_int $I11, self, rx60_curclass, "$!from"
    ne $I11, -1, rxscan61_done156
    goto rxscan61_scan155
  rxscan61_loop154:
    inc rx60_pos
    gt rx60_pos, rx60_eos, rx60_fail150
    repr_bind_attr_int rx60_cur, rx60_curclass, "$!from", rx60_pos
  rxscan61_scan155:
    nqp_rxmark rx60_bstack, rxscan61_loop154, rx60_pos, 0
  rxscan61_done156:
    ne rx60_pos, 0, rx60_fail150
    .const 'Sub' $P5005 = 'cuid_34_1372810518.65886' 
    capture_lex $P5005
    repr_bind_attr_int rx60_cur, rx60_curclass, "$!pos", rx60_pos
    $P11 = rx60_cur.$P5005()
    repr_get_attr_int $I11, $P11, rx60_curclass, "$!pos"
    lt $I11, 0, rx60_fail150
    goto rxsubrule67_pass172
  rxsubrule67_back173:
    $P11 = $P11."!cursor_next"()
    repr_get_attr_int $I11, $P11, rx60_curclass, "$!pos"
    lt $I11, 0, rx60_fail150
  rxsubrule67_pass172:
    rx60_cstack = rx60_cur."!cursor_capture"($P11, "0")
    set_addr $I11, rxsubrule67_back173
    push rx60_bstack, $I11
    push rx60_bstack, 0
    push rx60_bstack, rx60_pos
    elements $I11, rx60_cstack
    push rx60_bstack, $I11
    repr_get_attr_int rx60_pos, $P11, rx60_curclass, "$!pos"
    new $P11, "ResizableIntegerArray"
    nqp_push_label $P11, alt68_0175
    nqp_push_label $P11, alt68_1176
    nqp_rxmark rx60_bstack, alt68_end174, -1, 0
    rx60_cur."!alt"(rx60_pos, "alt_nfa__3_1372810520.69803", $P11)
    goto rx60_fail150
  alt68_0175:
    add $I11, rx60_pos, 1
    gt $I11, rx60_eos, rx60_fail150
    substr $S10, rx60_tgt, rx60_pos, 1
    ne $S10, ucs4:";", rx60_fail150
    add rx60_pos, 1
    goto alt68_end174
  alt68_1176:
    add $I11, rx60_pos, 2
    gt $I11, rx60_eos, rx60_fail150
    substr $S10, rx60_tgt, rx60_pos, 2
    ne $S10, ucs4:"\r\n", rx60_fail150
    add rx60_pos, 2
    goto alt68_end174
  alt68_end174:
    rx60_cur."!cursor_pass"(rx60_pos, 'backtrack'=>1)
    .return (rx60_cur)
  rx60_restart149:
    repr_get_attr_obj rx60_cstack, rx60_cur, rx60_curclass, "$!cstack"
  rx60_fail150:
    unless rx60_bstack, rx60_done148
    pop $I19, rx60_bstack
    if_null rx60_cstack, rx60_cstack_done153
    unless rx60_cstack, rx60_cstack_done153
    dec $I19
    set $P11, rx60_cstack[$I19]
  rx60_cstack_done153:
    pop rx60_rep, rx60_bstack
    pop rx60_pos, rx60_bstack
    pop $I19, rx60_bstack
    lt rx60_pos, -1, rx60_done148
    lt rx60_pos, 0, rx60_fail150
    eq $I19, 0, rx60_fail150
    nqp_islist $I20, rx60_cstack
    unless $I20, rx60_jump151
    elements $I18, rx60_bstack
    le $I18, 0, rx60_cut152
    dec $I18
    set $I18, rx60_bstack[$I18]
  rx60_cut152:
    assign rx60_cstack, $I18
  rx60_jump151:
    jump $I19
  rx60_done148:
    rx60_cur."!cursor_fail"()
    .return (rx60_cur) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_34_1372810518.65886") :anon :lex :outer("cuid_35_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
    .param pmc self 
    .lex utf8:"$\x{a2}", $P101 
    .local string rx63_tgt
    .local int rx63_pos
    .local int rx63_off
    .local int rx63_eos
    .local int rx63_rep
    .local pmc rx63_cur
    .local pmc rx63_curclass
    .local pmc rx63_bstack
    .local pmc rx63_cstack
    (rx63_cur, rx63_tgt, rx63_pos, rx63_curclass, rx63_bstack, $I19) = self."!cursor_start"()
    store_lex unicode:"$\x{a2}", rx63_cur
    length rx63_eos, rx63_tgt
    eq $I19, 1, rx63_restart160
    gt rx63_pos, rx63_eos, rx63_fail161
    repr_get_attr_int $I11, self, rx63_curclass, "$!from"
    ne $I11, -1, rxscan64_done167
    goto rxscan64_scan166
  rxscan64_loop165:
    inc rx63_pos
    gt rx63_pos, rx63_eos, rx63_fail161
    repr_bind_attr_int rx63_cur, rx63_curclass, "$!from", rx63_pos
  rxscan64_scan166:
    nqp_rxmark rx63_bstack, rxscan64_loop165, rx63_pos, 0
  rxscan64_done167:
  rxquantg65_loop168:
    repr_bind_attr_int rx63_cur, rx63_curclass, "$!pos", rx63_pos
    $P11 = rx63_cur."xdigit"()
    repr_get_attr_int $I11, $P11, rx63_curclass, "$!pos"
    lt $I11, 0, rx63_fail161
    goto rxsubrule66_pass170
  rxsubrule66_back171:
    $P11 = $P11."!cursor_next"()
    repr_get_attr_int $I11, $P11, rx63_curclass, "$!pos"
    lt $I11, 0, rx63_fail161
  rxsubrule66_pass170:
    rx63_cstack = rx63_cur."!cursor_push_cstack"($P11)
    set_addr $I11, rxsubrule66_back171
    push rx63_bstack, $I11
    push rx63_bstack, 0
    push rx63_bstack, rx63_pos
    elements $I11, rx63_cstack
    push rx63_bstack, $I11
    repr_get_attr_int rx63_pos, $P11, rx63_curclass, "$!pos"
    nqp_rxmark rx63_bstack, rxquantg65_done169, rx63_pos, rx63_rep
    goto rxquantg65_loop168
  rxquantg65_done169:
    rx63_cur."!cursor_pass"(rx63_pos, 'backtrack'=>1)
    .return (rx63_cur)
  rx63_restart160:
    repr_get_attr_obj rx63_cstack, rx63_cur, rx63_curclass, "$!cstack"
  rx63_fail161:
    unless rx63_bstack, rx63_done159
    pop $I19, rx63_bstack
    if_null rx63_cstack, rx63_cstack_done164
    unless rx63_cstack, rx63_cstack_done164
    dec $I19
    set $P11, rx63_cstack[$I19]
  rx63_cstack_done164:
    pop rx63_rep, rx63_bstack
    pop rx63_pos, rx63_bstack
    pop $I19, rx63_bstack
    lt rx63_pos, -1, rx63_done159
    lt rx63_pos, 0, rx63_fail161
    eq $I19, 0, rx63_fail161
    nqp_islist $I20, rx63_cstack
    unless $I20, rx63_jump162
    elements $I18, rx63_bstack
    le $I18, 0, rx63_cut163
    dec $I18
    set $I18, rx63_bstack[$I18]
  rx63_cut163:
    assign rx63_cstack, $I18
  rx63_jump162:
    jump $I19
  rx63_done159:
    rx63_cur."!cursor_fail"()
    .return (rx63_cur) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_33_1372810518.65886") :anon :lex :outer("cuid_42_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 125
    .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', 126
    find_lex $P5006, "$line_end_pos"
    find_lex $P5005, "&postfix:<++>"
    perl6_multi_dispatch_thunk $P5004, $P5005
    $P5007 = $P5004($P5006)
    .return ($P5007) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_40_1372810518.65886") :anon :lex :outer("cuid_42_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 133
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5004 = 'cuid_36_1372810518.65886' 
    capture_lex $P5004 
    .const 'Sub' $P5004 = 'cuid_37_1372810518.65886' 
    capture_lex $P5004 
    .const 'Sub' $P5004 = 'cuid_38_1372810518.65886' 
    capture_lex $P5004 
    .lex "$_", $P101 
    .lex "call_sig", $P102 
    .lex "$*DISPATCHER", $P103 
    perl6_take_dispatcher 
    set $P5002, CALL_SIG
    set $P102, $P5002
    bind_signature 
.annotate 'line', 137
    find_lex $P5004, "$chunk_len"
    nqp_get_sc_object $P5005, "E395371008F12CAD160057529FCB23CF59FF3774", 234
    find_lex $P5008, "$/"
    nqp_get_sc_object $P5009, "E395371008F12CAD160057529FCB23CF59FF3774", 187
    $P5010 = $P5008."postcircumfix:<[ ]>"($P5009)
    perl6ize_type $P5007, $P5010
    $P5011 = $P5007."Str"()
    perl6ize_type $P5006, $P5011
    $P5012 = "&unbase"($P5005, $P5006)
    perl6_container_store $P5004, $P5012
.annotate 'line', 141
    find_lex $P5006, "$chunk_len"
    nqp_get_sc_object $P5007, "E395371008F12CAD160057529FCB23CF59FF3774", 187
    find_lex $P5005, "&infix:<==>"
    perl6_multi_dispatch_thunk $P5004, $P5005
    $P5008 = $P5004($P5006, $P5007)
    unless $P5008 goto if73_else188 
    .const 'Sub' $P5009 = 'cuid_36_1372810518.65886' 
    capture_lex $P5009
    $P5010 = $P5009()
    goto if73_end189
  if73_else188:
    find_lex $P5011, "Nil"
  if73_end189:
.annotate 'line', 147
    find_lex $P5010, "$line_end_pos"
    find_lex $P5011, "$chunk_len"
    find_lex $P5009, "&infix:<+>"
    perl6_multi_dispatch_thunk $P5008, $P5009
    $P5012 = $P5008($P5010, $P5011)
    nqp_get_sc_object $P5013, "E395371008F12CAD160057529FCB23CF59FF3774", 218
    find_lex $P5007, "&infix:<+>"
    perl6_multi_dispatch_thunk $P5006, $P5007
    $P5014 = $P5006($P5012, $P5013)
    find_lex $P5016, "$b"
    $P5017 = $P5016."bytes"()
    perl6ize_type $P5015, $P5017
    find_lex $P5005, "&infix:<<=>"
    perl6_multi_dispatch_thunk $P5004, $P5005
    $P5018 = $P5004($P5014, $P5015)
    unless $P5018 goto if74_else190 
    .const 'Sub' $P5019 = 'cuid_37_1372810518.65886' 
    capture_lex $P5019
    $P5020 = $P5019()
    set $P5023, $P5020
    goto if74_end191
  if74_else190:
    .const 'Sub' $P5021 = 'cuid_38_1372810518.65886' 
    capture_lex $P5021
    $P5022 = $P5021()
    set $P5023, $P5022
  if74_end191:
    .return ($P5023) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_36_1372810518.65886") :anon :lex :outer("cuid_40_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 141
    .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', 143
    perl6_booleanize $P5004, 1
    find_lex $P5005, "$content"
    $P5006 = "&return"($P5004, $P5005)
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_37_1372810518.65886") :anon :lex :outer("cuid_40_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 147
    .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', 149
    find_lex $P5006, "$content"
    find_lex $P5008, "$b"
    find_lex $P5011, "$line_end_pos"
    nqp_get_sc_object $P5012, "E395371008F12CAD160057529FCB23CF59FF3774", 44
    find_lex $P5010, "&infix:<+>"
    perl6_multi_dispatch_thunk $P5009, $P5010
    $P5013 = $P5009($P5011, $P5012)
    find_lex $P5014, "$chunk_len"
    $P5015 = $P5008."subbuf"($P5013, $P5014)
    perl6ize_type $P5007, $P5015
    find_lex $P5004, "&infix:<~>"
    $P5005 = "&METAOP_ASSIGN"($P5004)
    $P5005($P5006, $P5007)
.annotate 'line', 150
    find_lex $P5004, "$line_end_pos"
    find_lex $P5005, "$chunk_start"
    find_lex $P5010, "$line_end_pos"
    find_lex $P5011, "$chunk_len"
    find_lex $P5009, "&infix:<+>"
    perl6_multi_dispatch_thunk $P5008, $P5009
    $P5012 = $P5008($P5010, $P5011)
    nqp_get_sc_object $P5013, "E395371008F12CAD160057529FCB23CF59FF3774", 218
    find_lex $P5007, "&infix:<+>"
    perl6_multi_dispatch_thunk $P5006, $P5007
    $P5014 = $P5006($P5012, $P5013)
    perl6_container_store $P5005, $P5014
    perl6_container_store $P5004, $P5005
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_38_1372810518.65886") :anon :lex :outer("cuid_40_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 152
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5004 = 'cuid_39_1372810518.65886' 
    capture_lex $P5004 
    .lex "$_", $P101 
    .lex "$last_chunk_end_len", $P102 
    .lex "call_sig", $P103 
    .lex "$*DISPATCHER", $P104 
    perl6_take_dispatcher 
    set $P5002, CALL_SIG
    set $P103, $P5002
    bind_signature 
.annotate 'line', 156

.annotate 'line', 157
    find_lex $P5008, "$chunk_len"
    nqp_get_sc_object $P5009, "E395371008F12CAD160057529FCB23CF59FF3774", 44
    find_lex $P5007, "&infix:<+>"
    perl6_multi_dispatch_thunk $P5006, $P5007
    $P5010 = $P5006($P5008, $P5009)
    find_lex $P5016, "$b"
    $P5017 = $P5016."bytes"()
    perl6ize_type $P5015, $P5017
    find_lex $P5018, "$line_end_pos"
    find_lex $P5014, "&infix:<->"
    perl6_multi_dispatch_thunk $P5013, $P5014
    $P5019 = $P5013($P5015, $P5018)
    nqp_get_sc_object $P5020, "E395371008F12CAD160057529FCB23CF59FF3774", 44
    find_lex $P5012, "&infix:<->"
    perl6_multi_dispatch_thunk $P5011, $P5012
    $P5021 = $P5011($P5019, $P5020)
    find_lex $P5005, "&infix:<->"
    perl6_multi_dispatch_thunk $P5004, $P5005
    $P5022 = $P5004($P5010, $P5021)
    perl6_container_store $P102, $P5022
.annotate 'line', 158
    find_lex $P5006, "$content"
    find_lex $P5008, "$b"
    find_lex $P5011, "$line_end_pos"
    nqp_get_sc_object $P5012, "E395371008F12CAD160057529FCB23CF59FF3774", 44
    find_lex $P5010, "&infix:<+>"
    perl6_multi_dispatch_thunk $P5009, $P5010
    $P5013 = $P5009($P5011, $P5012)
    $P5014 = $P5008."subbuf"($P5013)
    perl6ize_type $P5007, $P5014
    find_lex $P5004, "&infix:<~>"
    $P5005 = "&METAOP_ASSIGN"($P5004)
    $P5005($P5006, $P5007)
.annotate 'line', 159
    nqp_get_sc_object $P5006, "E395371008F12CAD160057529FCB23CF59FF3774", 44
    find_lex $P5005, "&infix:<>>"
    perl6_multi_dispatch_thunk $P5004, $P5005
    $P5007 = $P5004($P102, $P5006)
    unless $P5007 goto if75_else192 
    .const 'Sub' $P5008 = 'cuid_39_1372810518.65886' 
    capture_lex $P5008
    $P5009 = $P5008()
    goto if75_end193
  if75_else192:
    find_lex $P5010, "Nil"
  if75_end193:
.annotate 'line', 163
    find_lex $P5005, "$sock"
    nqp_get_sc_object $P5006, "E395371008F12CAD160057529FCB23CF59FF3774", 44
    $P5007 = "&min"($P102, $P5006)
    $P5008 = $P5005."read"($P5007)
    perl6ize_type $P5004, $P5008
.annotate 'line', 166
    perl6_booleanize $P5004, 0
    find_lex $P5005, "$content"
    $P5006 = "&return"($P5004, $P5005)
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_39_1372810518.65886") :anon :lex :outer("cuid_38_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 159
    .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', 160
    find_lex $P5006, "$content"
    find_lex $P5008, "$sock"
    find_lex $P5011, "$last_chunk_end_len"
    nqp_get_sc_object $P5012, "E395371008F12CAD160057529FCB23CF59FF3774", 44
    find_lex $P5010, "&infix:<->"
    perl6_multi_dispatch_thunk $P5009, $P5010
    $P5013 = $P5009($P5011, $P5012)
    $P5014 = $P5008."read"($P5013)
    perl6ize_type $P5007, $P5014
    find_lex $P5004, "&infix:<~>"
    $P5005 = "&METAOP_ASSIGN"($P5004)
    $P5015 = $P5005($P5006, $P5007)
    .return ($P5015) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_41_1372810518.65886") :anon :lex :outer("cuid_42_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 169
    .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', 172
    find_lex $P5006, "$b"
    find_lex $P5008, "$sock"
    nqp_get_sc_object $P5009, "E395371008F12CAD160057529FCB23CF59FF3774", 247
    $P5010 = $P5008."read"($P5009)
    perl6ize_type $P5007, $P5010
    find_lex $P5004, "&infix:<~>"
    $P5005 = "&METAOP_ASSIGN"($P5004)
    $P5011 = $P5005($P5006, $P5007)
    .return ($P5011) 
.end
.HLL "perl6"
.namespace []
.sub "make_request" :subid("cuid_43_1372810518.65886") :anon :lex :outer("cuid_2_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 183
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5010 = 'cuid_44_1372810518.65886' 
    capture_lex $P5010 
    .const 'Sub' $P5010 = 'cuid_45_1372810518.65886' 
    capture_lex $P5010 
    .const 'Sub' $P5010 = 'cuid_47_1372810518.65886' 
    capture_lex $P5010 
    .const 'Sub' $P5010 = 'cuid_49_1372810518.65886' 
    capture_lex $P5010 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$rt", $P103 
    .lex "$host", $P104 
    .lex "$port", $P105 
    .lex "$path", $P106 
    .lex "%headers", $P107 
    .lex "$content", $P108 
    .lex "$_", $P109 
    .lex "$/", $P110 
    .lex "$!", $P111 
    .lex "$headers", $P112 
    .lex "$sock", $P113 
    .lex "$req_str", $P114 
    .lex "$resp", $P115 
    .lex "$status", $P116 
    .lex "$resp_headers", $P117 
    .lex "$resp_content", $P118 
    .lex "call_sig", $P119 
    .lex "$*DISPATCHER", $P120 
    .lex "&?ROUTINE", $P121 
    perl6_take_dispatcher 
    .const 'Sub' $P5005 = 'cuid_44_1372810518.65886' 
    capture_lex $P5005
    set $P5006, CALL_SIG
    set $P119, $P5006
    bind_signature 
    root_new $P122, ['parrot';'Continuation']
    set_label $P122, lexotic_194
    .lex "RETURN", $P122
.annotate 'line', 185

    $P5009 = $P101."stringify_headers"($P107)
    perl6ize_type $P5008, $P5009
    perl6_container_store $P112, $P5008
.annotate 'line', 187
    nqp_get_sc_object $P5008, "E395371008F12CAD160057529FCB23CF59FF3774", 52
    $P113."dispatch:<.=>"($P5008, $P104 :named("host"), $P105 :named("port"))
.annotate 'line', 188

.annotate 'line', 190
.annotate 'line', 189
.annotate 'line', 188
    $P5015 = $P103."Stringy"()
    perl6ize_type $P5014, $P5015
    nqp_get_sc_object $P5020, "E395371008F12CAD160057529FCB23CF59FF3774", 267
    nqp_get_sc_object $P5021, "E395371008F12CAD160057529FCB23CF59FF3774", 265
    perl6_capture_lex $P5021
    $P5022 = $P5021()
    $P5023 = $P5022."Stringy"()
    $P5024 = $P5023."Stringy"()
    find_lex $P5019, "&infix:<~>"
    perl6_multi_dispatch_thunk $P5018, $P5019
    $P5025 = $P5018($P5020, $P5024)
    nqp_get_sc_object $P5026, "E395371008F12CAD160057529FCB23CF59FF3774", 268
    find_lex $P5017, "&infix:<~>"
    perl6_multi_dispatch_thunk $P5016, $P5017
    $P5027 = $P5016($P5025, $P5026)
    find_lex $P5013, "&infix:<~>"
    perl6_multi_dispatch_thunk $P5012, $P5013
    $P5028 = $P5012($P5014, $P5027)
.annotate 'line', 189

    find_lex $P5011, "&infix:<~>"
    perl6_multi_dispatch_thunk $P5010, $P5011
    $P5029 = $P5010($P5028, $P112)
    nqp_get_sc_object $P5030, "E395371008F12CAD160057529FCB23CF59FF3774", 226
    find_lex $P5009, "&infix:<~>"
    perl6_multi_dispatch_thunk $P5008, $P5009
    $P5031 = $P5008($P5029, $P5030)
    perl6_container_store $P114, $P5031
.annotate 'line', 194
    $P5009 = $P108."defined"()
    perl6ize_type $P5008, $P5009
    unless $P5008 goto if76_else196 
    find_lex $P5010, "&infix:<~>"
    $P5011 = "&METAOP_ASSIGN"($P5010)
    $P5012 = $P5011($P114, $P108)
    goto if76_end197
  if76_else196:
    find_lex $P5013, "Nil"
  if76_end197:
.annotate 'line', 196
    $P5009 = $P113."send"($P114)
    perl6ize_type $P5008, $P5009
.annotate 'line', 198

    find_lex $P5009, "$default_stream_read_len"
    $P5010 = $P113."read"($P5009)
    perl6ize_type $P5008, $P5010
    perl6_container_store $P115, $P5008
    $P5008 = "&infix:<,>"($P116, $P117, $P118)
.annotate 'line', 200
    $P5010 = $P101."parse_response"($P115)
    perl6ize_type $P5009, $P5010
    perl6_container_store $P5008, $P5009
.annotate 'line', 203
    nqp_get_sc_object $P5011, "E395371008F12CAD160057529FCB23CF59FF3774", 273
    $P5012 = $P117."postcircumfix:<{ }>"($P5011)
    perl6ize_type $P5010, $P5012
    set $P5014, $P5010
    if $P5010 goto unless78_end201 
    nqp_get_sc_object $P5013, "E395371008F12CAD160057529FCB23CF59FF3774", 274
    set $P5014, $P5013
  unless78_end201:
    nqp_get_sc_object $P5015, "E395371008F12CAD160057529FCB23CF59FF3774", 275
    find_lex $P5009, "&infix:<eq>"
    perl6_multi_dispatch_thunk $P5008, $P5009
    $P5016 = $P5008($P5014, $P5015)
    unless $P5016 goto if77_else198 
    .const 'Sub' $P5017 = 'cuid_45_1372810518.65886' 
    capture_lex $P5017
    $P5018 = $P5017()
    goto if77_end199
  if77_else198:
.annotate 'line', 218
    nqp_get_sc_object $P5020, "E395371008F12CAD160057529FCB23CF59FF3774", 129
    $P5021 = $P117."postcircumfix:<{ }>"($P5020)
    perl6ize_type $P5019, $P5021
    set $P5030, $P5019
    unless $P5019 goto if82_end212 
.annotate 'line', 219
    $P5025 = $P118."bytes"()
    perl6ize_type $P5024, $P5025
    nqp_get_sc_object $P5027, "E395371008F12CAD160057529FCB23CF59FF3774", 129
    $P5028 = $P117."postcircumfix:<{ }>"($P5027)
    perl6ize_type $P5026, $P5028
    find_lex $P5023, "&infix:<<>"
    perl6_multi_dispatch_thunk $P5022, $P5023
    $P5029 = $P5022($P5024, $P5026)
    set $P5030, $P5029
  if82_end212:
    unless $P5030 goto if81_else209 
    .const 'Sub' $P5031 = 'cuid_47_1372810518.65886' 
    capture_lex $P5031
    $P5032 = $P5031()
    set $P5035, $P5032
    goto if81_end210
  if81_else209:
    .const 'Sub' $P5033 = 'cuid_49_1372810518.65886' 
    capture_lex $P5033
    $P5034 = $P5033()
    set $P5035, $P5034
  if81_end210:
  if77_end199:
.annotate 'line', 232
    $P5009 = $P113."close"()
    perl6ize_type $P5008, $P5009
.annotate 'line', 234
    $P5008 = "&infix:<,>"($P116, $P117, $P118)
    $P5009 = "&return"($P5008)
    perl6_decontainerize_return_value $P5007, $P5009
    goto lexotic_195
  lexotic_194:
    .get_results ($P5007)
  lexotic_195:
    find_lex $P5008, "&EXHAUST"
    store_lex "RETURN", $P5008
    nqp_get_sc_object $P5009, "E395371008F12CAD160057529FCB23CF59FF3774", 257
    perl6_type_check_return_value $P5007, $P5009
    .return ($P5007) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_44_1372810518.65886") :anon :lex :outer("cuid_43_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 188
    .lex "$_", $P101 
    find_lex $P5002, "$path"
    .return ($P5002) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_45_1372810518.65886") :anon :lex :outer("cuid_43_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 203
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5004 = 'cuid_46_1372810518.65886' 
    capture_lex $P5004 
    .lex "$_", $P101 
    .lex "$is_last_chunk", $P102 
    .lex "$resp_content_chunk", $P103 
    .lex "call_sig", $P104 
    .lex "$*DISPATCHER", $P105 
    .local pmc _inline_arg_1 
    perl6_take_dispatcher 
    set $P5002, CALL_SIG
    set $P104, $P5002
    bind_signature 
.annotate 'line', 207
    find_lex $P5004, "$resp_content"
    $P5005 = "&infix:<,>"($P102, $P5004)
.annotate 'line', 208
    find_lex $P5007, "self"
    find_lex $P5008, "$resp_content"
    find_lex $P5009, "$sock"
    $P5010 = $P5007."parse_chunks"($P5008, $P5009)
    perl6ize_type $P5006, $P5010
    perl6_container_store $P5005, $P5006
    new $P5009, 'ExceptionHandler', [.CONTROL_LOOP_NEXT;.CONTROL_LOOP_REDO;.CONTROL_LOOP_LAST]
    set_label $P5009, while79_handlers205
    push_eh $P5009
  while79_test202:
.annotate 'line', 209
    set _inline_arg_1, $P102
    unless _inline_arg_1 goto if80_else207 
    nqp_get_sc_object $P5005, "5C7C172868FA9510BA84BFF074E73D635E54D9D3", 632
    set $P5007, $P5005
    goto if80_end208
  if80_else207:
    nqp_get_sc_object $P5006, "5C7C172868FA9510BA84BFF074E73D635E54D9D3", 758
    set $P5007, $P5006
  if80_end208:
    istrue $I5001, $P5007
    perl6_booleanize $P5008, $I5001
    perl6_decontainerize_return_value $P5004, $P5008
    nqp_get_sc_object $P5005, "5C7C172868FA9510BA84BFF074E73D635E54D9D3", 5625
    perl6_type_check_return_value $P5004, $P5005
    set $P5008, $P5004
    unless $P5004 goto while79_done206 
  while79_redo204:
    .const 'Sub' $P5006 = 'cuid_46_1372810518.65886' 
    capture_lex $P5006
    $P5007 = $P5006()
    set $P5008, $P5007
    goto while79_test202 
  while79_handlers205:
    .get_results ($P5009)
    pop_upto_eh $P5009
    getattribute $P5009, $P5009, 'type'
    eq $P5009, .CONTROL_LOOP_NEXT, while79_test202
    eq $P5009, .CONTROL_LOOP_REDO, while79_redo204
  while79_done206:
    pop_eh 
    .return ($P5008) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_46_1372810518.65886") :anon :lex :outer("cuid_45_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 209
    .param pmc CALL_SIG :call_sig 
    .lex "$_", $P101 
    .lex "$next_chunk_start", $P102 
    .lex "call_sig", $P103 
    .lex "$*DISPATCHER", $P104 
    perl6_take_dispatcher 
    set $P5002, CALL_SIG
    set $P103, $P5002
    bind_signature 
.annotate 'line', 210
    find_lex $P5004, "$is_last_chunk"
    find_lex $P5005, "$resp_content_chunk"
    $P5006 = "&infix:<,>"($P5004, $P5005)
.annotate 'line', 211
    find_lex $P5008, "self"
.annotate 'line', 212

    find_lex $P5010, "$sock"
    nqp_get_sc_object $P5011, "E395371008F12CAD160057529FCB23CF59FF3774", 45
    $P5012 = $P5010."read"($P5011)
    perl6ize_type $P5009, $P5012
    perl6_container_store $P102, $P5009
.annotate 'line', 213
    find_lex $P5013, "$sock"
    $P5014 = $P5008."parse_chunks"($P102, $P5013)
    perl6ize_type $P5007, $P5014
    perl6_container_store $P5006, $P5007
.annotate 'line', 215
    find_lex $P5006, "$resp_content"
    find_lex $P5007, "$resp_content_chunk"
    find_lex $P5004, "&infix:<~>"
    $P5005 = "&METAOP_ASSIGN"($P5004)
    $P5008 = $P5005($P5006, $P5007)
    .return ($P5008) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_47_1372810518.65886") :anon :lex :outer("cuid_43_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 220
    .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', 221
    find_lex $P5006, "$resp_content"
    find_lex $P5008, "$sock"
.annotate 'line', 222
    find_lex $P5012, "$resp_headers"
    nqp_get_sc_object $P5013, "E395371008F12CAD160057529FCB23CF59FF3774", 129
    $P5014 = $P5012."postcircumfix:<{ }>"($P5013)
    perl6ize_type $P5011, $P5014
    find_lex $P5016, "$resp_content"
    $P5017 = $P5016."bytes"()
    perl6ize_type $P5015, $P5017
    find_lex $P5010, "&infix:<->"
    perl6_multi_dispatch_thunk $P5009, $P5010
    $P5018 = $P5009($P5011, $P5015)
    $P5019 = $P5008."read"($P5018)
    perl6ize_type $P5007, $P5019
    find_lex $P5004, "&infix:<~>"
    $P5005 = "&METAOP_ASSIGN"($P5004)
    $P5020 = $P5005($P5006, $P5007)
    .return ($P5020) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_49_1372810518.65886") :anon :lex :outer("cuid_43_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 225
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5004 = 'cuid_48_1372810518.65886' 
    capture_lex $P5004 
    .lex "$_", $P101 
    .lex "call_sig", $P102 
    .lex "$*DISPATCHER", $P103 
    perl6_take_dispatcher 
    set $P5002, CALL_SIG
    set $P102, $P5002
    bind_signature 
    new $P5014, 'ExceptionHandler', [.CONTROL_LOOP_NEXT;.CONTROL_LOOP_REDO;.CONTROL_LOOP_LAST]
    set_label $P5014, while83_handlers216
    push_eh $P5014
  while83_test213:
.annotate 'line', 226
    find_lex $P5007, "$resp"
    $P5008 = $P5007."bytes"()
    perl6ize_type $P5006, $P5008
    nqp_get_sc_object $P5009, "E395371008F12CAD160057529FCB23CF59FF3774", 187
    find_lex $P5005, "&infix:<>>"
    perl6_multi_dispatch_thunk $P5004, $P5005
    $P5010 = $P5004($P5006, $P5009)
    set $P5013, $P5010
    unless $P5010 goto while83_done217 
  while83_redo215:
    .const 'Sub' $P5011 = 'cuid_48_1372810518.65886' 
    capture_lex $P5011
    $P5012 = $P5011()
    set $P5013, $P5012
    goto while83_test213 
  while83_handlers216:
    .get_results ($P5014)
    pop_upto_eh $P5014
    getattribute $P5014, $P5014, 'type'
    eq $P5014, .CONTROL_LOOP_NEXT, while83_test213
    eq $P5014, .CONTROL_LOOP_REDO, while83_redo215
  while83_done217:
    pop_eh 
    .return ($P5013) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_48_1372810518.65886") :anon :lex :outer("cuid_49_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 226
    .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', 227
    find_lex $P5004, "$resp"
    find_lex $P5006, "$sock"
    find_lex $P5007, "$default_stream_read_len"
    $P5008 = $P5006."read"($P5007)
    perl6ize_type $P5005, $P5008
    perl6_container_store $P5004, $P5005
.annotate 'line', 228
    find_lex $P5006, "$resp_content"
    find_lex $P5007, "$resp"
    find_lex $P5004, "&infix:<~>"
    $P5005 = "&METAOP_ASSIGN"($P5004)
    $P5008 = $P5005($P5006, $P5007)
    .return ($P5008) 
.end
.HLL "perl6"
.namespace []
.sub "parse_response" :subid("cuid_50_1372810518.65886") :anon :lex :outer("cuid_2_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 237
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5009 = 'cuid_51_1372810518.65886' 
    capture_lex $P5009 
    .const 'Sub' $P5009 = 'cuid_52_1372810518.65886' 
    capture_lex $P5009 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$resp", $P103 
    .lex "$_", $P104 
    .lex "$/", $P105 
    .lex "$!", $P106 
    .lex "%header", $P107 
    .lex "$header_end_pos", $P108 
    .lex "call_sig", $P109 
    .lex "$*DISPATCHER", $P110 
    .lex "&?ROUTINE", $P111 
    perl6_take_dispatcher 
    set $P5005, CALL_SIG
    set $P109, $P5005
    bind_signature 
    root_new $P112, ['parrot';'Continuation']
    set_label $P112, lexotic_218
    .lex "RETURN", $P112
.annotate 'line', 241

    nqp_get_sc_object $P5007, "E395371008F12CAD160057529FCB23CF59FF3774", 187
    perl6_container_store $P108, $P5007
    new $P5023, 'ExceptionHandler', [.CONTROL_LOOP_NEXT;.CONTROL_LOOP_REDO;.CONTROL_LOOP_LAST]
    set_label $P5023, while84_handlers223
    push_eh $P5023
  while84_test220:
.annotate 'line', 242
    $P5010 = $P103."bytes"()
    perl6ize_type $P5009, $P5010
    find_lex $P5008, "&infix:<<>"
    perl6_multi_dispatch_thunk $P5007, $P5008
    $P5011 = $P5007($P108, $P5009)
    set $P5019, $P5011
    unless $P5011 goto if85_end226 
.annotate 'line', 243
    find_lex $P5014, "$http_header_end_marker"
    nqp_get_sc_object $P5016, "E395371008F12CAD160057529FCB23CF59FF3774", 218
    $P5017 = $P103."subbuf"($P108, $P5016)
    perl6ize_type $P5015, $P5017
    find_lex $P5013, "&infix:<ne>"
    perl6_multi_dispatch_thunk $P5012, $P5013
    $P5018 = $P5012($P5014, $P5015)
    set $P5019, $P5018
  if85_end226:
    set $P5022, $P5019
    unless $P5019 goto while84_done224 
  while84_redo222:
    .const 'Sub' $P5020 = 'cuid_51_1372810518.65886' 
    capture_lex $P5020
    $P5021 = $P5020()
    set $P5022, $P5021
    goto while84_test220 
  while84_handlers223:
    .get_results ($P5023)
    pop_upto_eh $P5023
    getattribute $P5023, $P5023, 'type'
    eq $P5023, .CONTROL_LOOP_NEXT, while84_test220
    eq $P5023, .CONTROL_LOOP_REDO, while84_redo222
  while84_done224:
    pop_eh 
.annotate 'line', 247
    $P5010 = $P103."bytes"()
    perl6ize_type $P5009, $P5010
    find_lex $P5008, "&infix:<<>"
    perl6_multi_dispatch_thunk $P5007, $P5008
    $P5011 = $P5007($P108, $P5009)
    unless $P5011 goto if86_else227 
    .const 'Sub' $P5012 = 'cuid_52_1372810518.65886' 
    capture_lex $P5012
    $P5013 = $P5012()
    goto if86_end228
  if86_else227:
    find_lex $P5014, "Nil"
  if86_end228:
.annotate 'line', 260
    nqp_get_sc_object $P5009, "E395371008F12CAD160057529FCB23CF59FF3774", 331
    find_lex $P5008, "&die"
    perl6_multi_dispatch_thunk $P5007, $P5008
    $P5010 = $P5007($P5009)
    perl6_decontainerize_return_value $P5006, $P5010
    goto lexotic_219
  lexotic_218:
    .get_results ($P5006)
  lexotic_219:
    find_lex $P5007, "&EXHAUST"
    store_lex "RETURN", $P5007
    nqp_get_sc_object $P5008, "E395371008F12CAD160057529FCB23CF59FF3774", 305
    perl6_type_check_return_value $P5006, $P5008
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_51_1372810518.65886") :anon :lex :outer("cuid_50_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 243
    .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', 244
    find_lex $P5006, "$header_end_pos"
    find_lex $P5005, "&postfix:<++>"
    perl6_multi_dispatch_thunk $P5004, $P5005
    $P5007 = $P5004($P5006)
    .return ($P5007) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_52_1372810518.65886") :anon :lex :outer("cuid_50_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 247
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5006 = 'cuid_53_1372810518.65886' 
    capture_lex $P5006 
    .const 'Sub' $P5006 = 'cuid_54_1372810518.65886' 
    capture_lex $P5006 
    .lex "$_", $P101 
    .lex "@header_lines", $P102 
    .lex "$status_line", $P103 
    .lex "call_sig", $P104 
    .lex "$*DISPATCHER", $P105 
    perl6_take_dispatcher 
    .const 'Sub' $P5002 = 'cuid_53_1372810518.65886' 
    capture_lex $P5002
    .const 'Sub' $P5003 = 'cuid_54_1372810518.65886' 
    capture_lex $P5003
    set $P5004, CALL_SIG
    set $P104, $P5004
    bind_signature 
.annotate 'line', 248

.annotate 'line', 250
.annotate 'line', 248
    find_lex $P5009, "$resp"
    nqp_get_sc_object $P5010, "E395371008F12CAD160057529FCB23CF59FF3774", 187
.annotate 'line', 249
    find_lex $P5011, "$header_end_pos"
    $P5012 = $P5009."subbuf"($P5010, $P5011)
    perl6ize_type $P5008, $P5012
    nqp_get_sc_object $P5013, "E395371008F12CAD160057529FCB23CF59FF3774", 221
    $P5014 = $P5008."decode"($P5013)
    perl6ize_type $P5007, $P5014
    nqp_get_sc_object $P5015, "E395371008F12CAD160057529FCB23CF59FF3774", 315
    $P5016 = $P5015."clone"()
    perl6_capture_lex $P5016
    $P5017 = $P5007."split"($P5016)
    perl6ize_type $P5006, $P5017
    $P102."STORE"($P5006)
.annotate 'line', 251

    $P5007 = $P102."shift"()
    perl6ize_type $P5006, $P5007
    perl6_container_store $P103, $P5006
.annotate 'line', 253
    $P5006 = "&infix:<,>"($P102)
    nqp_get_sc_object $P5007, "E395371008F12CAD160057529FCB23CF59FF3774", 322
    $P5008 = $P5007."clone"()
    perl6_capture_lex $P5008
    $P5009 = $P5006."map"($P5008)
    "&eager"($P5009)
.annotate 'line', 257
    find_lex $P5007, "%header"
    $P5008 = $P5007."item"()
    perl6ize_type $P5006, $P5008
    find_lex $P5011, "$resp"
    find_lex $P5014, "$header_end_pos"
    nqp_get_sc_object $P5015, "E395371008F12CAD160057529FCB23CF59FF3774", 218
    find_lex $P5013, "&infix:<+>"
    perl6_multi_dispatch_thunk $P5012, $P5013
    $P5016 = $P5012($P5014, $P5015)
    $P5017 = $P5011."subbuf"($P5016)
    perl6ize_type $P5010, $P5017
    $P5018 = $P5010."item"()
    perl6ize_type $P5009, $P5018
    $P5019 = "&return"($P103, $P5006, $P5009)
    .return ($P5019) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_53_1372810518.65886") :anon :lex :outer("cuid_52_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 250
    .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 rx87_tgt
    .local int rx87_pos
    .local int rx87_off
    .local int rx87_eos
    .local int rx87_rep
    .local pmc rx87_cur
    .local pmc rx87_curclass
    .local pmc rx87_bstack
    .local pmc rx87_cstack
    (rx87_cur, rx87_tgt, rx87_pos, rx87_curclass, rx87_bstack, $I19) = self."!cursor_start"()
    store_lex unicode:"$\x{a2}", rx87_cur
    length rx87_eos, rx87_tgt
    eq $I19, 1, rx87_restart231
    gt rx87_pos, rx87_eos, rx87_fail232
    repr_get_attr_int $I11, self, rx87_curclass, "$!from"
    ne $I11, -1, rxscan88_done238
    goto rxscan88_scan237
  rxscan88_loop236:
    inc rx87_pos
    gt rx87_pos, rx87_eos, rx87_fail232
    repr_bind_attr_int rx87_cur, rx87_curclass, "$!from", rx87_pos
  rxscan88_scan237:
    nqp_rxmark rx87_bstack, rxscan88_loop236, rx87_pos, 0
  rxscan88_done238:
    ge rx87_pos, rx87_eos, rx87_fail232
    substr $S11, rx87_tgt, rx87_pos, 1
    index $I11, ucs4:"\r", $S11
    lt $I11, 0, rx87_fail232
    inc rx87_pos
    ge rx87_pos, rx87_eos, rx87_fail232
    is_cclass $I11, .CCLASS_NEWLINE, rx87_tgt, rx87_pos
    unless $I11, rx87_fail232
    substr $S10, rx87_tgt, rx87_pos, 2
    iseq $I11, $S10, "\r\n"
    add rx87_pos, $I11
    add rx87_pos, 1
    rx87_cur."!cursor_pass"(rx87_pos, 'backtrack'=>1)
    .return (rx87_cur)
  rx87_restart231:
    repr_get_attr_obj rx87_cstack, rx87_cur, rx87_curclass, "$!cstack"
  rx87_fail232:
    unless rx87_bstack, rx87_done230
    pop $I19, rx87_bstack
    if_null rx87_cstack, rx87_cstack_done235
    unless rx87_cstack, rx87_cstack_done235
    dec $I19
    set $P11, rx87_cstack[$I19]
  rx87_cstack_done235:
    pop rx87_rep, rx87_bstack
    pop rx87_pos, rx87_bstack
    pop $I19, rx87_bstack
    lt rx87_pos, -1, rx87_done230
    lt rx87_pos, 0, rx87_fail232
    eq $I19, 0, rx87_fail232
    nqp_islist $I20, rx87_cstack
    unless $I20, rx87_jump233
    elements $I18, rx87_bstack
    le $I18, 0, rx87_cut234
    dec $I18
    set $I18, rx87_bstack[$I18]
  rx87_cut234:
    assign rx87_cstack, $I18
  rx87_jump233:
    jump $I19
  rx87_done230:
    rx87_cur."!cursor_fail"()
    .return (rx87_cur) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_54_1372810518.65886") :anon :lex :outer("cuid_52_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 253
    .param pmc CALL_SIG :call_sig 
    .lex "$name", $P101 
    .lex "$value", $P102 
    .lex "$_", $P103 
    .lex "call_sig", $P104 
    .lex "$*DISPATCHER", $P105 
    perl6_take_dispatcher 
    set $P5002, CALL_SIG
    set $P104, $P5002
    bind_signature 
    $P5004 = "&infix:<,>"($P101, $P102)
.annotate 'line', 254
    find_lex $P5006, "$_"
    nqp_get_sc_object $P5007, "E395371008F12CAD160057529FCB23CF59FF3774", 323
    $P5008 = $P5006."split"($P5007)
    perl6ize_type $P5005, $P5008
    perl6_container_store $P5004, $P5005
.annotate 'line', 255
    find_lex $P5005, "%header"
    $P5006 = $P5005."postcircumfix:<{ }>"($P101)
    perl6ize_type $P5004, $P5006
    perl6_container_store $P5004, $P102
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "getprint" :subid("cuid_55_1372810518.65886") :anon :lex :outer("cuid_2_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 267
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5009 = 'cuid_56_1372810518.65886' 
    capture_lex $P5009 
    .const 'Sub' $P5009 = 'cuid_57_1372810518.65886' 
    capture_lex $P5009 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$url", $P103 
    .lex "$_", $P104 
    .lex "$/", $P105 
    .lex "$!", $P106 
    .lex "$out", $P107 
    .lex "call_sig", $P108 
    .lex "$*DISPATCHER", $P109 
    .lex "&?ROUTINE", $P110 
    perl6_take_dispatcher 
    set $P5005, CALL_SIG
    set $P108, $P5005
    bind_signature 
    root_new $P111, ['parrot';'Continuation']
    set_label $P111, lexotic_239
    .lex "RETURN", $P111
.annotate 'line', 268

    $P5008 = $P101."get"($P103)
    perl6ize_type $P5007, $P5008
    perl6_container_store $P107, $P5007
.annotate 'line', 269
    nqp_get_sc_object $P5008, "E395371008F12CAD160057529FCB23CF59FF3774", 341
    $P5009 = $P107."isa"($P5008)
    perl6ize_type $P5007, $P5009
    unless $P5007 goto if89_else241 
    .const 'Sub' $P5010 = 'cuid_56_1372810518.65886' 
    capture_lex $P5010
    $P5011 = $P5010()
    set $P5014, $P5011
    goto if89_end242
  if89_else241:
    .const 'Sub' $P5012 = 'cuid_57_1372810518.65886' 
    capture_lex $P5012
    $P5013 = $P5012()
    set $P5014, $P5013
  if89_end242:
    perl6_decontainerize_return_value $P5006, $P5014
    goto lexotic_240
  lexotic_239:
    .get_results ($P5006)
  lexotic_240:
    find_lex $P5007, "&EXHAUST"
    store_lex "RETURN", $P5007
    nqp_get_sc_object $P5008, "E395371008F12CAD160057529FCB23CF59FF3774", 337
    perl6_type_check_return_value $P5006, $P5008
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_56_1372810518.65886") :anon :lex :outer("cuid_55_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 269
    .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 $P5005, "E395371008F12CAD160057529FCB23CF59FF3774", 343
    $P5006 = "&DYNAMIC"($P5005)
    find_lex $P5007, "$out"
    $P5008 = $P5006."write"($P5007)
    perl6ize_type $P5004, $P5008
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_57_1372810518.65886") :anon :lex :outer("cuid_55_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 269
    .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 $P5004, "$out"
    $P5005 = "&say"($P5004)
    .return ($P5005) 
.end
.HLL "perl6"
.namespace []
.sub "getstore" :subid("cuid_58_1372810518.65886") :anon :lex :outer("cuid_2_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 272
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5009 = 'cuid_59_1372810518.65886' 
    capture_lex $P5009 
    .const 'Sub' $P5009 = 'cuid_60_1372810518.65886' 
    capture_lex $P5009 
    .const 'Sub' $P5009 = 'cuid_61_1372810518.65886' 
    capture_lex $P5009 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$url", $P103 
    .lex "$filename", $P104 
    .lex "$_", $P105 
    .lex "$/", $P106 
    .lex "$!", $P107 
    .lex "$content", $P108 
    .lex "$fh", $P109 
    .lex "call_sig", $P110 
    .lex "$*DISPATCHER", $P111 
    .lex "&?ROUTINE", $P112 
    .local pmc _inline_arg_2 
    perl6_take_dispatcher 
    set $P5005, CALL_SIG
    set $P110, $P5005
    bind_signature 
    root_new $P113, ['parrot';'Continuation']
    set_label $P113, lexotic_243
    .lex "RETURN", $P113
.annotate 'line', 273
    set _inline_arg_2, $P103
    $P5009 = _inline_arg_2."defined"()
    perl6ize_type $P5008, $P5009
    perl6_decontainerize_return_value $P5007, $P5008
    nqp_get_sc_object $P5008, "5C7C172868FA9510BA84BFF074E73D635E54D9D3", 1831
    perl6_type_check_return_value $P5007, $P5008
    if $P5007 goto unless90_else245 
    $P5009 = "&return"()
    goto unless90_end246
  unless90_else245:
    find_lex $P5010, "Nil"
  unless90_end246:
.annotate 'line', 275

    $P5008 = $P101."get"($P103)
    perl6ize_type $P5007, $P5008
    perl6_container_store $P108, $P5007
.annotate 'line', 276
    find_lex $P5008, "&prefix:<!>"
    perl6_multi_dispatch_thunk $P5007, $P5008
    $P5009 = $P5007($P108)
    unless $P5009 goto if91_else247 
    .const 'Sub' $P5010 = 'cuid_59_1372810518.65886' 
    capture_lex $P5010
    $P5011 = $P5010()
    goto if91_end248
  if91_else247:
    find_lex $P5012, "Nil"
  if91_end248:
.annotate 'line', 280

    perl6_booleanize $P5009, 1
    perl6_booleanize $P5010, 1
    find_lex $P5008, "&open"
    perl6_multi_dispatch_thunk $P5007, $P5008
    $P5011 = $P5007($P104, $P5009 :named("bin"), $P5010 :named("w"))
    perl6_container_store $P109, $P5011
.annotate 'line', 281
    nqp_get_sc_object $P5008, "E395371008F12CAD160057529FCB23CF59FF3774", 341
    $P5009 = $P108."isa"($P5008)
    perl6ize_type $P5007, $P5009
    unless $P5007 goto if92_else249 
    .const 'Sub' $P5010 = 'cuid_60_1372810518.65886' 
    capture_lex $P5010
    $P5011 = $P5010()
    goto if92_end250
  if92_else249:
    .const 'Sub' $P5012 = 'cuid_61_1372810518.65886' 
    capture_lex $P5012
    $P5013 = $P5012()
  if92_end250:
.annotate 'line', 288
    $P5008 = $P109."close"()
    perl6ize_type $P5007, $P5008
    perl6_decontainerize_return_value $P5006, $P5007
    goto lexotic_244
  lexotic_243:
    .get_results ($P5006)
  lexotic_244:
    find_lex $P5007, "&EXHAUST"
    store_lex "RETURN", $P5007
    nqp_get_sc_object $P5008, "E395371008F12CAD160057529FCB23CF59FF3774", 352
    perl6_type_check_return_value $P5006, $P5008
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_59_1372810518.65886") :anon :lex :outer("cuid_58_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 276
    .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', 277
    $P5004 = "&return"()
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_60_1372810518.65886") :anon :lex :outer("cuid_58_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 281
    .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', 282
    find_lex $P5005, "$fh"
    find_lex $P5006, "$content"
    $P5007 = $P5005."write"($P5006)
    perl6ize_type $P5004, $P5007
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_61_1372810518.65886") :anon :lex :outer("cuid_58_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 284
    .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', 285
    find_lex $P5005, "$fh"
    find_lex $P5006, "$content"
    $P5007 = $P5005."print"($P5006)
    perl6ize_type $P5004, $P5007
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "parse_url" :subid("cuid_62_1372810518.65886") :anon :lex :outer("cuid_2_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 291
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5012 = 'cuid_63_1372810518.65886' 
    capture_lex $P5012 
    .const 'Sub' $P5012 = 'cuid_64_1372810518.65886' 
    capture_lex $P5012 
    .const 'Sub' $P5012 = 'cuid_65_1372810518.65886' 
    capture_lex $P5012 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$url", $P103 
    .lex "$_", $P104 
    .lex "$/", $P105 
    .lex "$!", $P106 
    .lex "$u", $P107 
    .lex "$path", $P108 
    .lex "$user_info", $P109 
    .lex "call_sig", $P110 
    .lex "$*DISPATCHER", $P111 
    .lex "&?ROUTINE", $P112 
    perl6_take_dispatcher 
    .const 'Sub' $P5005 = 'cuid_63_1372810518.65886' 
    capture_lex $P5005
    .const 'Sub' $P5006 = 'cuid_64_1372810518.65886' 
    capture_lex $P5006
    .const 'Sub' $P5007 = 'cuid_65_1372810518.65886' 
    capture_lex $P5007
    set $P5008, CALL_SIG
    set $P110, $P5008
    bind_signature 
    root_new $P113, ['parrot';'Continuation']
    set_label $P113, lexotic_251
    .lex "RETURN", $P113
.annotate 'line', 292
    nqp_get_sc_object $P5010, "E395371008F12CAD160057529FCB23CF59FF3774", 52
    $P107."dispatch:<.=>"($P5010, $P103)
.annotate 'line', 293

    $P5011 = $P107."path_query"()
    perl6ize_type $P5010, $P5011
    perl6_container_store $P108, $P5010
.annotate 'line', 295

    $P5017 = $P107."grammar"()
    perl6ize_type $P5016, $P5017
    $P5018 = $P5016."parse_result"()
    perl6ize_type $P5015, $P5018
    nqp_get_sc_object $P5019, "E395371008F12CAD160057529FCB23CF59FF3774", 378
    $P5020 = $P5015."postcircumfix:<{ }>"($P5019)
    perl6ize_type $P5014, $P5020
    nqp_get_sc_object $P5021, "E395371008F12CAD160057529FCB23CF59FF3774", 379
    $P5022 = $P5014."postcircumfix:<{ }>"($P5021)
    perl6ize_type $P5013, $P5022
    nqp_get_sc_object $P5023, "E395371008F12CAD160057529FCB23CF59FF3774", 380
    $P5024 = $P5013."postcircumfix:<{ }>"($P5023)
    perl6ize_type $P5012, $P5024
    nqp_get_sc_object $P5025, "E395371008F12CAD160057529FCB23CF59FF3774", 381
    $P5026 = $P5012."postcircumfix:<{ }>"($P5025)
    perl6ize_type $P5011, $P5026
    nqp_get_sc_object $P5027, "E395371008F12CAD160057529FCB23CF59FF3774", 382
    $P5028 = $P5011."postcircumfix:<{ }>"($P5027)
    perl6ize_type $P5010, $P5028
    perl6_container_store $P109, $P5010
.annotate 'line', 297
.annotate 'line', 301
.annotate 'line', 298
    $P5011 = $P107."scheme"()
    perl6ize_type $P5010, $P5011
.annotate 'line', 299

    unless $P109 goto if93_else253 
    nqp_get_sc_object $P5016, "E395371008F12CAD160057529FCB23CF59FF3774", 383
    perl6_capture_lex $P5016
    $P5017 = $P5016()
    $P5018 = $P5017."Stringy"()
    $P5019 = $P5018."Stringy"()
    nqp_get_sc_object $P5020, "E395371008F12CAD160057529FCB23CF59FF3774", 388
    find_lex $P5015, "&infix:<~>"
    perl6_multi_dispatch_thunk $P5014, $P5015
    $P5021 = $P5014($P5019, $P5020)
    nqp_get_sc_object $P5022, "E395371008F12CAD160057529FCB23CF59FF3774", 386
    perl6_capture_lex $P5022
    $P5023 = $P5022()
    $P5024 = $P5023."Stringy"()
    $P5025 = $P5024."Stringy"()
    find_lex $P5013, "&infix:<~>"
    perl6_multi_dispatch_thunk $P5012, $P5013
    $P5026 = $P5012($P5021, $P5025)
    set $P5029, $P5026
    goto if93_end254
  if93_else253:
    $P5028 = $P107."host"()
    perl6ize_type $P5027, $P5028
    set $P5029, $P5027
  if93_end254:
.annotate 'line', 300
    $P5031 = $P107."port"()
    perl6ize_type $P5030, $P5031
.annotate 'line', 301
    nqp_get_sc_object $P5034, "E395371008F12CAD160057529FCB23CF59FF3774", 274
    find_lex $P5033, "&infix:<eq>"
    perl6_multi_dispatch_thunk $P5032, $P5033
    $P5035 = $P5032($P108, $P5034)
    unless $P5035 goto if94_else255 
    nqp_get_sc_object $P5036, "E395371008F12CAD160057529FCB23CF59FF3774", 389
    set $P5037, $P5036
    goto if94_end256
  if94_else255:
    set $P5037, $P108
  if94_end256:
.annotate 'line', 302

    unless $P109 goto if95_else257 
.annotate 'line', 304
    find_lex $P5038, "Pair"
    nqp_get_sc_object $P5039, "E395371008F12CAD160057529FCB23CF59FF3774", 117
.annotate 'line', 303
    $P5041 = $P107."host"()
    perl6ize_type $P5040, $P5041
    $P5042 = $P5038."new"($P5039 :named("key"), $P5040 :named("value"))
    find_lex $P5043, "Pair"
    nqp_get_sc_object $P5044, "E395371008F12CAD160057529FCB23CF59FF3774", 120
.annotate 'line', 304
    nqp_get_sc_object $P5050, "E395371008F12CAD160057529FCB23CF59FF3774", 187
    $P5051 = $P109."postcircumfix:<[ ]>"($P5050)
    perl6ize_type $P5049, $P5051
    nqp_get_sc_object $P5052, "E395371008F12CAD160057529FCB23CF59FF3774", 391
    $P5053 = $P5049."postcircumfix:<{ }>"($P5052)
    perl6ize_type $P5048, $P5053
    nqp_get_sc_object $P5054, "E395371008F12CAD160057529FCB23CF59FF3774", 187
    $P5055 = $P5048."postcircumfix:<[ ]>"($P5054)
    perl6ize_type $P5047, $P5055
    find_lex $P5046, "&prefix:<~>"
    perl6_multi_dispatch_thunk $P5045, $P5046
    $P5056 = $P5045($P5047)
    $P5057 = $P5043."new"($P5044 :named("key"), $P5056 :named("value"))
    find_lex $P5058, "Pair"
    nqp_get_sc_object $P5059, "E395371008F12CAD160057529FCB23CF59FF3774", 122
.annotate 'line', 305
    nqp_get_sc_object $P5065, "E395371008F12CAD160057529FCB23CF59FF3774", 187
    $P5066 = $P109."postcircumfix:<[ ]>"($P5065)
    perl6ize_type $P5064, $P5066
    nqp_get_sc_object $P5067, "E395371008F12CAD160057529FCB23CF59FF3774", 391
    $P5068 = $P5064."postcircumfix:<{ }>"($P5067)
    perl6ize_type $P5063, $P5068
    nqp_get_sc_object $P5069, "E395371008F12CAD160057529FCB23CF59FF3774", 32
    $P5070 = $P5063."postcircumfix:<[ ]>"($P5069)
    perl6ize_type $P5062, $P5070
    find_lex $P5061, "&prefix:<~>"
    perl6_multi_dispatch_thunk $P5060, $P5061
    $P5071 = $P5060($P5062)
    $P5072 = $P5058."new"($P5059 :named("key"), $P5071 :named("value"))
    $P5073 = "&infix:<,>"($P5042, $P5057, $P5072)
    $P5074 = "&circumfix:<{ }>"($P5073)
    set $P5076, $P5074
    goto if95_end258
  if95_else257:
    nqp_get_sc_object $P5075, "5C7C172868FA9510BA84BFF074E73D635E54D9D3", 869
    set $P5076, $P5075
  if95_end258:
    $P5077 = "&infix:<,>"($P5010, $P5029, $P5030, $P5037, $P5076)
    $P5078 = "&return"($P5077)
    perl6_decontainerize_return_value $P5009, $P5078
    goto lexotic_252
  lexotic_251:
    .get_results ($P5009)
  lexotic_252:
    find_lex $P5010, "&EXHAUST"
    store_lex "RETURN", $P5010
    nqp_get_sc_object $P5011, "E395371008F12CAD160057529FCB23CF59FF3774", 372
    perl6_type_check_return_value $P5009, $P5011
    .return ($P5009) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_63_1372810518.65886") :anon :lex :outer("cuid_62_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 299
    .lex "$_", $P101 
    find_lex $P5002, "$user_info"
    .return ($P5002) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_64_1372810518.65886") :anon :lex :outer("cuid_62_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 299
    .lex "$_", $P101 
    find_lex $P5003, "$u"
    $P5004 = $P5003."host"()
    perl6ize_type $P5002, $P5004
    .return ($P5002) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_65_1372810518.65886") :anon :lex :outer("cuid_62_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 302
    .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', 304
    find_lex $P5004, "Pair"
    nqp_get_sc_object $P5005, "E395371008F12CAD160057529FCB23CF59FF3774", 117
.annotate 'line', 303
    find_lex $P5007, "$u"
    $P5008 = $P5007."host"()
    perl6ize_type $P5006, $P5008
    $P5009 = $P5004."new"($P5005 :named("key"), $P5006 :named("value"))
    find_lex $P5010, "Pair"
    nqp_get_sc_object $P5011, "E395371008F12CAD160057529FCB23CF59FF3774", 120
.annotate 'line', 304
    find_lex $P5017, "$user_info"
    nqp_get_sc_object $P5018, "E395371008F12CAD160057529FCB23CF59FF3774", 187
    $P5019 = $P5017."postcircumfix:<[ ]>"($P5018)
    perl6ize_type $P5016, $P5019
    nqp_get_sc_object $P5020, "E395371008F12CAD160057529FCB23CF59FF3774", 391
    $P5021 = $P5016."postcircumfix:<{ }>"($P5020)
    perl6ize_type $P5015, $P5021
    nqp_get_sc_object $P5022, "E395371008F12CAD160057529FCB23CF59FF3774", 187
    $P5023 = $P5015."postcircumfix:<[ ]>"($P5022)
    perl6ize_type $P5014, $P5023
    find_lex $P5013, "&prefix:<~>"
    perl6_multi_dispatch_thunk $P5012, $P5013
    $P5024 = $P5012($P5014)
    $P5025 = $P5010."new"($P5011 :named("key"), $P5024 :named("value"))
    find_lex $P5026, "Pair"
    nqp_get_sc_object $P5027, "E395371008F12CAD160057529FCB23CF59FF3774", 122
.annotate 'line', 305
    find_lex $P5033, "$user_info"
    nqp_get_sc_object $P5034, "E395371008F12CAD160057529FCB23CF59FF3774", 187
    $P5035 = $P5033."postcircumfix:<[ ]>"($P5034)
    perl6ize_type $P5032, $P5035
    nqp_get_sc_object $P5036, "E395371008F12CAD160057529FCB23CF59FF3774", 391
    $P5037 = $P5032."postcircumfix:<{ }>"($P5036)
    perl6ize_type $P5031, $P5037
    nqp_get_sc_object $P5038, "E395371008F12CAD160057529FCB23CF59FF3774", 32
    $P5039 = $P5031."postcircumfix:<[ ]>"($P5038)
    perl6ize_type $P5030, $P5039
    find_lex $P5029, "&prefix:<~>"
    perl6_multi_dispatch_thunk $P5028, $P5029
    $P5040 = $P5028($P5030)
    $P5041 = $P5026."new"($P5027 :named("key"), $P5040 :named("value"))
    $P5042 = "&infix:<,>"($P5009, $P5025, $P5041)
    .return ($P5042) 
.end
.HLL "perl6"
.namespace []
.sub "stringify_headers" :subid("cuid_66_1372810518.65886") :anon :lex :outer("cuid_2_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 310
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5010 = 'cuid_67_1372810518.65886' 
    capture_lex $P5010 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "%headers", $P103 
    .lex "$_", $P104 
    .lex "$/", $P105 
    .lex "$!", $P106 
    .lex "$str", $P107 
    .lex "call_sig", $P108 
    .lex "$*DISPATCHER", $P109 
    .lex "&?ROUTINE", $P110 
    perl6_take_dispatcher 
    .const 'Sub' $P5005 = 'cuid_67_1372810518.65886' 
    capture_lex $P5005
    set $P5006, CALL_SIG
    set $P108, $P5006
    bind_signature 
    root_new $P111, ['parrot';'Continuation']
    set_label $P111, lexotic_259
    .lex "RETURN", $P111
.annotate 'line', 311

    nqp_get_sc_object $P5008, "E395371008F12CAD160057529FCB23CF59FF3774", 274
    perl6_container_store $P107, $P5008
.annotate 'line', 312
    $P5011 = $P103."keys"()
    perl6ize_type $P5010, $P5011
    find_lex $P5009, "&sort"
    perl6_multi_dispatch_thunk $P5008, $P5009
    $P5012 = $P5008($P5010)
    $P5013 = "&infix:<,>"($P5012)
    nqp_get_sc_object $P5014, "E395371008F12CAD160057529FCB23CF59FF3774", 404
    $P5015 = $P5014."clone"()
    perl6_capture_lex $P5015
    $P5016 = $P5013."map"($P5015)
    "&eager"($P5016)
.annotate 'line', 315
    $P5008 = "&return"($P107)
    perl6_decontainerize_return_value $P5007, $P5008
    goto lexotic_260
  lexotic_259:
    .get_results ($P5007)
  lexotic_260:
    find_lex $P5008, "&EXHAUST"
    store_lex "RETURN", $P5008
    nqp_get_sc_object $P5009, "E395371008F12CAD160057529FCB23CF59FF3774", 400
    perl6_type_check_return_value $P5007, $P5009
    .return ($P5007) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_67_1372810518.65886") :anon :lex :outer("cuid_66_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
.annotate 'line', 312
    .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', 313
    find_lex $P5006, "$str"
    find_lex $P5013, "$_"
    nqp_get_sc_object $P5014, "E395371008F12CAD160057529FCB23CF59FF3774", 323
    find_lex $P5012, "&infix:<~>"
    perl6_multi_dispatch_thunk $P5011, $P5012
    $P5015 = $P5011($P5013, $P5014)
    find_lex $P5017, "%headers"
    find_lex $P5018, "$_"
    $P5019 = $P5017."postcircumfix:<{ }>"($P5018)
    perl6ize_type $P5016, $P5019
    find_lex $P5010, "&infix:<~>"
    perl6_multi_dispatch_thunk $P5009, $P5010
    $P5020 = $P5009($P5015, $P5016)
    nqp_get_sc_object $P5021, "E395371008F12CAD160057529FCB23CF59FF3774", 226
    find_lex $P5008, "&infix:<~>"
    perl6_multi_dispatch_thunk $P5007, $P5008
    $P5022 = $P5007($P5020, $P5021)
    find_lex $P5004, "&infix:<~>"
    $P5005 = "&METAOP_ASSIGN"($P5004)
    $P5023 = $P5005($P5006, $P5022)
    .return ($P5023) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_70_1372810518.65886") :load :init
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
    .const 'Sub' $P5001 = 'cuid_69_1372810518.65886' 
    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_68_1372810518.65886" 
    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"("MIME::Base64", 5 :named("line"))
    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"("URI", 6 :named("line"))
    nqp_create_sc $P5001, "E395371008F12CAD160057529FCB23CF59FF3774"
    set cur_sc, $P5001
    cur_sc."set_description"("/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm")
    new $P5002, 'ResizablePMCArray'
    set conflicts, $P5002
    new $P5003, 'ResizableStringArray'
    null $S5001
    push $P5003, $S5001
    push $P5003, "Uninstantiable"
    push $P5003, "P6opaque"
    push $P5003, "ACCEPTS"
    push $P5003, "5C7C172868FA9510BA84BFF074E73D635E54D9D3"
    push $P5003, "src/gen/CORE.setting"
    push $P5003, "WHERE"
    push $P5003, "WHICH"
    push $P5003, "take"
    push $P5003, "WHY"
    push $P5003, "Bool"
    push $P5003, "so"
    push $P5003, "not"
    push $P5003, "defined"
    push $P5003, "new"
    push $P5003, "CREATE"
    push $P5003, "bless"
    push $P5003, "BUILDALL"
    push $P5003, "BUILD_LEAST_DERIVED"
    push $P5003, "Numeric"
    push $P5003, "Real"
    push $P5003, "Str"
    push $P5003, "Stringy"
    push $P5003, "item"
    push $P5003, "say"
    push $P5003, "print"
    push $P5003, "gist"
    push $P5003, "perl"
    push $P5003, "DUMP"
    push $P5003, "DUMP-ID"
    push $P5003, "isa"
    push $P5003, "does"
    push $P5003, "can"
    push $P5003, "clone"
    push $P5003, "Capture"
    push $P5003, "dispatch:<var>"
    push $P5003, "dispatch:<::>"
    push $P5003, "dispatch:<!>"
    push $P5003, "dispatch:<.^>"
    push $P5003, "dispatch:<.=>"
    push $P5003, "dispatch:<.?>"
    push $P5003, "dispatch:<.+>"
    push $P5003, "dispatch:<.*>"
    push $P5003, "dispatch:<hyper>"
    push $P5003, "WALK"
    push $P5003, "eager"
    push $P5003, "elems"
    push $P5003, "end"
    push $P5003, "classify"
    push $P5003, "uniq"
    push $P5003, "infinite"
    push $P5003, "flat"
    push $P5003, "hash"
    push $P5003, "list"
    push $P5003, "lol"
    push $P5003, "pick"
    push $P5003, "roll"
    push $P5003, "reverse"
    push $P5003, "sort"
    push $P5003, "values"
    push $P5003, "keys"
    push $P5003, "kv"
    push $P5003, "pairs"
    push $P5003, "Array"
    push $P5003, "grep"
    push $P5003, "first"
    push $P5003, "join"
    push $P5003, "map"
    push $P5003, "min"
    push $P5003, "max"
    push $P5003, "minmax"
    push $P5003, "push"
    push $P5003, "tree"
    push $P5003, "unshift"
    push $P5003, "postcircumfix:<[ ]>"
    push $P5003, "at_pos"
    push $P5003, "all"
    push $P5003, "any"
    push $P5003, "one"
    push $P5003, "none"
    push $P5003, "postcircumfix:<{ }>"
    push $P5003, "at_key"
    push $P5003, "reduce"
    push $P5003, "FLATTENABLE_LIST"
    push $P5003, "FLATTENABLE_HASH"
    push $P5003, "class_default_encoding"
    push $P5003, "base64encode"
    push $P5003, "get"
    push $P5003, "post"
    push $P5003, "request_shell"
    push $P5003, "parse_chunks"
    push $P5003, "make_request"
    push $P5003, "parse_response"
    push $P5003, "getprint"
    push $P5003, "getstore"
    push $P5003, "parse_url"
    push $P5003, "stringify_headers"
    push $P5003, "default_encoding"
    push $P5003, "27420382D80CEF05775E7415279171A93892A1F1-1372810242.10453"
    push $P5003, "src/gen/BOOTSTRAP.pm"
    push $P5003, "$!default_encoding"
    push $P5003, "abs"
    push $P5003, "conj"
    push $P5003, "sqrt"
    push $P5003, "sign"
    push $P5003, "rand"
    push $P5003, "sin"
    push $P5003, "asin"
    push $P5003, "cos"
    push $P5003, "acos"
    push $P5003, "tan"
    push $P5003, "atan"
    push $P5003, "atan2"
    push $P5003, "sec"
    push $P5003, "asec"
    push $P5003, "cosec"
    push $P5003, "acosec"
    push $P5003, "cotan"
    push $P5003, "acotan"
    push $P5003, "sinh"
    push $P5003, "asinh"
    push $P5003, "cosh"
    push $P5003, "acosh"
    push $P5003, "tanh"
    push $P5003, "atanh"
    push $P5003, "sech"
    push $P5003, "asech"
    push $P5003, "cosech"
    push $P5003, "acosech"
    push $P5003, "cotanh"
    push $P5003, "acotanh"
    push $P5003, "cis"
    push $P5003, "log"
    push $P5003, "exp"
    push $P5003, "roots"
    push $P5003, "log10"
    push $P5003, "unpolar"
    push $P5003, "round"
    push $P5003, "floor"
    push $P5003, "ceiling"
    push $P5003, "truncate"
    push $P5003, "chars"
    push $P5003, "codes"
    push $P5003, "fmt"
    push $P5003, "substr"
    push $P5003, "uc"
    push $P5003, "lc"
    push $P5003, "tclc"
    push $P5003, "ucfirst"
    push $P5003, "capitalize"
    push $P5003, "wordcase"
    push $P5003, "chomp"
    push $P5003, "chop"
    push $P5003, "ord"
    push $P5003, "chr"
    push $P5003, "flip"
    push $P5003, "trans"
    push $P5003, "index"
    push $P5003, "rindex"
    push $P5003, "ords"
    push $P5003, "split"
    push $P5003, "match"
    push $P5003, "comb"
    push $P5003, "subst"
    push $P5003, "sprintf"
    push $P5003, "printf"
    push $P5003, "samecase"
    push $P5003, "IO"
    push $P5003, "trim"
    push $P5003, "trim-leading"
    push $P5003, "trim-trailing"
    push $P5003, "eval"
    push $P5003, "Int"
    push $P5003, "Num"
    push $P5003, "Rat"
    push $P5003, "FatRat"
    push $P5003, "Bridge"
    push $P5003, "base"
    push $P5003, "expmod"
    push $P5003, "is-prime"
    push $P5003, "Complex"
    push $P5003, "isNaN"
    push $P5003, "succ"
    push $P5003, "pred"
    push $P5003, "enums"
    push $P5003, "pair"
    push $P5003, "postcircumfix:<( )>"
    push $P5003, "key"
    push $P5003, "value"
    push $P5003, "$!value"
    push $P5003, "$!key"
    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, "LWP"
    push $P5003, "$=pod"
    push $P5003, "!UNIT_MARKER"
    push $P5003, "Increase"
    push $P5003, "Same"
    push $P5003, "Decrease"
    push $P5003, "-1"
    push $P5003, "0"
    push $P5003, "1"
    push $P5003, "Order"
    push $P5003, "28FAC381EB59BA79DA1D75F70404C20E0548F4F5-1372810034.5696"
    push $P5003, "src/stage2/NQPCORE.setting"
    push $P5003, "&scheme_port"
    push $P5003, "814E49C6FF95329961FEDD30EBE95C9B2CA296A9"
    push $P5003, "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI.pm"
    push $P5003, "Escape"
    push $P5003, "4CA99B345B89B827D835C4F294FC7ED2618304BD"
    push $P5003, "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/Escape.pm"
    push $P5003, "DefaultPort"
    push $P5003, "AFE91FA64572E60D278FD73932831A0778D7C6CA"
    push $P5003, "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/URI/DefaultPort.pm"
    push $P5003, "&split_query"
    push $P5003, "cosimo"
    push $P5003, "auth"
    push $P5003, "0.085"
    push $P5003, "ver"
    push $P5003, "$?CLASS"
    push $P5003, "::?CLASS"
    push $P5003, "GET"
    push $P5003, "POST"
    push $P5003, "RequestType"
    push $P5003, "&class_default_encoding"
    push $P5003, "$crlf"
    push $P5003, "$http_header_end_marker"
    push $P5003, "$default_stream_read_len"
    push $P5003, "$VERSION"
    push $P5003, "GET POST"
    push $P5003, "1B774EC04D50F35E99199D1B74077FC90B5E8768-1372810138.56917"
    push $P5003, "src/Perl6/World.pm"
    push $P5003, "utf-8"
    push $P5003, "$_"
    push $P5003, "%_"
    push $P5003, "$*DISPATCHER"
    push $P5003, "$class_default_encoding"
    push $P5003, "13"
    push $P5003, "10"
    push $P5003, "2"
    push $P5003, "1024"
    push $P5003, "2048"
    push $P5003, "F16136C2CC443E1B7FC9252DBBDEEDAE7E71ED01"
    push $P5003, "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/MIME/Base64.pm6"
    push $P5003, "$mime"
    push $P5003, "$encoded"
    push $P5003, "&?ROUTINE"
    push $P5003, ":"
    push $P5003, "$user"
    push $P5003, "$pass"
    push $P5003, "$url"
    push $P5003, "%headers"
    push $P5003, "$content"
    push $P5003, "$rt"
    push $P5003, "$scheme"
    push $P5003, "$hostname"
    push $P5003, "$port"
    push $P5003, "$path"
    push $P5003, "$auth"
    push $P5003, "$status"
    push $P5003, "$resp_headers"
    push $P5003, "$resp_content"
    push $P5003, "Connection"
    push $P5003, "close"
    push $P5003, "User-Agent"
    push $P5003, "$*PERL"
    push $P5003, "compiler"
    push $P5003, "name"
    push $P5003, "LWP::Simple/"
    push $P5003, " Perl6/"
    push $P5003, "host"
    push $P5003, "$base64enc"
    push $P5003, "user"
    push $P5003, "password"
    push $P5003, "Authorization"
    push $P5003, "Basic "
    push $P5003, "Host"
    push $P5003, "Content-Length"
    push $P5003, ""
    push $P5003, "12"
    push $P5003, "%resp_headers"
    push $P5003, "$new_url"
    push $P5003, "Location"
    push $P5003, "Redirect "
    push $P5003, " without a new URL?"
    push $P5003, "Content-Type"
    push $P5003, "media-type"
    push $P5003, "media-subtype"
    push $P5003, "/;"
    push $P5003, "/"
    push $P5003, ";"
    push $P5003, "text"
    push $P5003, "application"
    push $P5003, "alt_nfa__1_1372810520.43133"
    push $P5003, "alt_nfa__2_1372810520.43196"
    push $P5003, "$charset"
    push $P5003, "$b"
    push $P5003, "$sock"
    push $P5003, "3"
    push $P5003, "$line_end_pos"
    push $P5003, "$chunk_len"
    push $P5003, "$chunk_start"
    push $P5003, "5"
    push $P5003, "4"
    push $P5003, "ascii"
    push $P5003, "xdigit"
    push $P5003, "\r\n"
    push $P5003, "alt_nfa__3_1372810520.69803"
    push $P5003, "16"
    push $P5003, "$last_chunk_end_len"
    push $P5003, "20"
    push $P5003, "Could not parse chunk header"
    push $P5003, "$headers"
    push $P5003, "$req_str"
    push $P5003, "$resp"
    push $P5003, "port"
    push $P5003, " "
    push $P5003, " HTTP/1.1\r\n"
    push $P5003, "Transfer-Encoding"
    push $P5003, "chunked"
    push $P5003, "$is_last_chunk"
    push $P5003, "$resp_content_chunk"
    push $P5003, "$next_chunk_start"
    push $P5003, "$host"
    push $P5003, "%header"
    push $P5003, "$header_end_pos"
    push $P5003, "@header_lines"
    push $P5003, "$status_line"
    push $P5003, "\r"
    push $P5003, ": "
    push $P5003, "$name"
    push $P5003, "$value"
    push $P5003, "could not parse headers"
    push $P5003, "$out"
    push $P5003, "Buf"
    push $P5003, "$*OUT"
    push $P5003, "$filename"
    push $P5003, "$fh"
    push $P5003, "bin"
    push $P5003, "w"
    push $P5003, "$u"
    push $P5003, "$user_info"
    push $P5003, "URI_reference"
    push $P5003, "URI"
    push $P5003, "hier_part"
    push $P5003, "authority"
    push $P5003, "userinfo"
    push $P5003, "B27170BB1F9774DD835DEDBDD20EF3A48AB4CAFF-1372810027.93126"
    push $P5003, "src/stage2/gen/nqp-mo.pm"
    push $P5003, "NQPCursor"
    push $P5003, "$!orig"
    push $P5003, "1FB97F6DD4E06C6153462FDEDB630A5B9721C650-1372810040.67136"
    push $P5003, "src/stage2/QRegex.nqp"
    push $P5003, "$!target"
    push $P5003, "$!from"
    push $P5003, "$!pos"
    push $P5003, "$!match"
    push $P5003, "$!name"
    push $P5003, "$!bstack"
    push $P5003, "$!cstack"
    push $P5003, "$!regexsub"
    push $P5003, "$!restart"
    push $P5003, "MATCH"
    push $P5003, "parse"
    push $P5003, "!INTERPOLATE"
    push $P5003, "!INTERPOLATE_REGEX"
    push $P5003, "orig"
    push $P5003, "target"
    push $P5003, "from"
    push $P5003, "pos"
    push $P5003, "CAPHASH"
    push $P5003, "!cursor_init"
    push $P5003, "!cursor_start"
    push $P5003, "!cursor_start_subcapture"
    push $P5003, "!cursor_capture"
    push $P5003, "!cursor_push_cstack"
    push $P5003, "!cursor_pass"
    push $P5003, "!cursor_fail"
    push $P5003, "!cursor_pos"
    push $P5003, "!cursor_next"
    push $P5003, "!cursor_more"
    push $P5003, "!reduce"
    push $P5003, "!reduce_with_match"
    push $P5003, "!protoregex"
    push $P5003, "!protoregex_nfa"
    push $P5003, "!protoregex_table"
    push $P5003, "!alt"
    push $P5003, "!alt_nfa"
    push $P5003, "!precompute_nfas"
    push $P5003, "!BACKREF"
    push $P5003, "!LITERAL"
    push $P5003, "at"
    push $P5003, "before"
    push $P5003, "after"
    push $P5003, "ws"
    push $P5003, "ww"
    push $P5003, "wb"
    push $P5003, "ident"
    push $P5003, "alpha"
    push $P5003, "alnum"
    push $P5003, "upper"
    push $P5003, "lower"
    push $P5003, "digit"
    push $P5003, "space"
    push $P5003, "blank"
    push $P5003, "cntrl"
    push $P5003, "punct"
    push $P5003, "FAILGOAL"
    push $P5003, "alt_nfa__1_1372810165.17883"
    push $P5003, "alt_nfa__63_1372810197.52939"
    push $P5003, "bstack"
    push $P5003, "cstack"
    push $P5003, "regexsub"
    push $P5003, "restart"
    push $P5003, "@"
    push $P5003, "likely_userinfo_component"
    push $P5003, "$str"
    push $P5003, "GLOBAL"
    push $P5003, "MIME"
    push $P5003, "IETF"
    push $P5003, "9E2C07BAF5CD0D3B97FF1D1A065814DD33A335C2"
    push $P5003, "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/IETF/RFC_Grammar.pm"
    push $P5003, "LWP::Simple"
    push $P5003, "Simple"
    push $P5003, "call_sig"
    push $P5003, "$?ROLE"
    push $P5003, "::?ROLE"
    push $P5003, "&uri_escape"
    push $P5003, "&uri_unescape"
    push $P5003, "$dcpkg"
    push $P5003, "$meth"
    push $P5003, "$attr_type"
    push $P5003, "$/"
    push $P5003, "$!"
    push $P5003, "$meth_name"
    push $P5003, "6"
    push $P5003, "RETURN"
    push $P5003, "self"
    push $P5003, "$package"
    .const 'Sub' $P5004 = 'cuid_69_1372810518.65886' 
    capture_lex $P5004
    $P5005 = $P5004()
    nqp_deserialize_sc "[encoded data, 58116 characters]", cur_sc, $P5003, $P5005, conflicts
    unless conflicts goto if96_end262 
    get_hll_global $P5006, "ModuleLoader"
    $P5007 = $P5006."resolve_repossession_conflicts"(conflicts)
  if96_end262:
    .const "LexInfo" $P5001 = "cuid_1_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 2
    $P5001."set_static_lexpad"($P5002)
    .const "LexInfo" $P5001 = "cuid_2_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 14
    $P5001."set_static_lexpad"($P5002)
    .const "LexInfo" $P5001 = "cuid_3_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 31
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_3_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 30
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_4_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 38
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_4_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 33
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_5_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 47
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_7_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 51
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_7_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 49
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_8_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 70
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_8_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 63
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_9_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 74
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_10_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 79
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_11_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 88
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_11_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 71
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_12_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 93
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_13_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 98
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_14_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 101
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_15_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 115
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_16_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 119
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_16_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 116
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_17_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 128
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_18_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 140
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_18_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 135
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_19_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 143
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_20_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 146
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_19_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 141
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_21_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 156
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_21_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 151
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_22_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 164
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_22_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 159
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_23_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 174
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_23_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 169
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_24_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 177
    $P5001."set_static_lexpad"($P5002)
    .const "LexInfo" $P5001 = "cuid_25_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 180
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_25_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 179
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_26_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 186
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_26_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 181
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_24_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 175
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_27_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 189
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_28_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 157
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_29_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 192
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_30_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 134
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_14_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 89
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_31_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 210
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_32_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 212
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_33_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 219
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_34_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 224
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_34_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 223
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_35_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 232
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_35_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 227
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_36_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 235
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_37_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 237
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_38_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 241
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_39_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 242
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_38_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 239
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_40_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 233
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_41_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 246
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_42_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 217
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_32_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 205
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_43_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 261
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_44_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 265
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_45_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 278
    $P5001."set_static_lexpad"($P5002)
    .const "LexInfo" $P5001 = "cuid_46_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 282
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_46_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 280
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_45_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 276
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_47_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 285
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_48_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 288
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_49_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 287
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_43_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 257
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_50_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 308
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_51_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 310
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_52_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 314
    $P5001."set_static_lexpad"($P5002)
    .const "LexInfo" $P5001 = "cuid_53_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 320
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_53_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 315
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_54_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 325
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_54_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 322
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_52_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 312
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_50_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 305
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_55_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 340
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_56_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 342
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_57_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 345
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_55_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 337
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_58_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 356
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_59_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 357
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_60_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 362
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_61_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 364
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_58_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 352
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_62_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 375
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_63_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 383
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_64_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 386
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_65_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 390
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_62_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 372
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_66_1372810518.65886"
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 403
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_67_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 404
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_66_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 400
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_2_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 414
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_1_1372810518.65886" 
    nqp_get_sc_object $P5002, "E395371008F12CAD160057529FCB23CF59FF3774", 3
    perl6_associate_sub_code_object $P5001, $P5002
    nqp_get_sc_object $P5001, "E395371008F12CAD160057529FCB23CF59FF3774", 0
    set_hll_global "GLOBAL", $P5001
    .return () 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_69_1372810518.65886") :anon :lex :outer("cuid_70_1372810518.65886")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
    new $P5001, 'ResizablePMCArray'
    .const 'Sub' $P5002 = "cuid_3_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_4_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_5_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_7_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_8_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_9_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_10_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_11_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_12_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_13_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_15_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_16_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_17_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_18_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_20_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_19_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_21_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_22_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_23_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_25_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_26_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_24_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_27_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_28_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_29_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_30_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_14_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_31_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_33_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_34_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_35_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_36_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_37_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_39_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_38_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_40_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_41_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_42_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_32_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_44_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_46_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_45_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_47_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_48_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_49_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_43_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_51_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_53_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_54_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_52_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_50_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_56_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_57_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_55_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_59_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_60_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_61_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_58_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_63_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_64_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_65_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_62_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_67_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_66_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_2_1372810518.65886" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_1_1372810518.65886" 
    push $P5001, $P5002
    .return ($P5001) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_71_1372810518.65886") :load
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/LWP/Simple.pm"
    .const 'Sub' $P5001 = "cuid_68_1372810518.65886" 
    $P5002 = $P5001()
    .return ($P5002) 
.end