.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_51_1372810584.23453") :anon :lex
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 1
    .const 'Sub' $P5003 = 'cuid_1_1372810584.23453' 
    capture_lex $P5003 
    .const 'Sub' $P5001 = 'cuid_1_1372810584.23453' 
    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_1372810584.23453") :anon :lex :outer("cuid_51_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 1
    .const 'Sub' $P5005 = 'cuid_2_1372810584.23453' 
    capture_lex $P5005 
    .lex "GLOBALish", $P101 
    .lex "EXPORT", $P102 
    .lex "$?PACKAGE", $P103 
    .lex "::?PACKAGE", $P104 
    .lex "$_", $P105 
    .lex "$/", $P106 
    .lex "$!", $P107 
    .lex "&to-json", $P108 
    .lex "&from-json", $P109 
    .lex "$=pod", $P110 
    .lex "!UNIT_MARKER", $P111 
    .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, "EE0B7E03D68411FB217F84FB283971485D58A815", 262
    .const 'Sub' $P5005 = 'cuid_2_1372810584.23453' 
    capture_lex $P5005
    $P5006 = $P5005()
    nqp_get_sc_object $P5007, "EE0B7E03D68411FB217F84FB283971485D58A815", 6
    .return ($P5007) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_2_1372810584.23453") :anon :lex :outer("cuid_1_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 5
    .const 'Sub' $P5018 = 'cuid_3_1372810584.23453' 
    capture_lex $P5018 
    .const 'Sub' $P5018 = 'cuid_5_1372810584.23453' 
    capture_lex $P5018 
    .const 'Sub' $P5018 = 'cuid_11_1372810584.23453' 
    capture_lex $P5018 
    .const 'Sub' $P5018 = 'cuid_25_1372810584.23453' 
    capture_lex $P5018 
    .const 'Sub' $P5018 = 'cuid_27_1372810584.23453' 
    capture_lex $P5018 
    .const 'Sub' $P5018 = 'cuid_43_1372810584.23453' 
    capture_lex $P5018 
    .const 'Sub' $P5018 = 'cuid_45_1372810584.23453' 
    capture_lex $P5018 
    .const 'Sub' $P5018 = 'cuid_46_1372810584.23453' 
    capture_lex $P5018 
    .lex "$?PACKAGE", $P101 
    .lex "::?PACKAGE", $P102 
    .lex "$?CLASS", $P103 
    .lex "::?CLASS", $P104 
    .lex "$_", $P105 
    .const 'Sub' $P5002 = 'cuid_3_1372810584.23453' 
    capture_lex $P5002
    .const 'Sub' $P5003 = 'cuid_5_1372810584.23453' 
    capture_lex $P5003
    .const 'Sub' $P5004 = 'cuid_11_1372810584.23453' 
    capture_lex $P5004
    .const 'Sub' $P5005 = 'cuid_25_1372810584.23453' 
    capture_lex $P5005
    .const 'Sub' $P5006 = 'cuid_27_1372810584.23453' 
    capture_lex $P5006
    .const 'Sub' $P5007 = 'cuid_43_1372810584.23453' 
    capture_lex $P5007
    .const 'Sub' $P5008 = 'cuid_45_1372810584.23453' 
    capture_lex $P5008
    .const 'Sub' $P5009 = 'cuid_46_1372810584.23453' 
    capture_lex $P5009
.annotate 'line', 8
    null $P5010
    null $P5011
    null $P5012
    null $P5013
    null $P5014
    null $P5015
    nqp_get_sc_object $P5016, "EE0B7E03D68411FB217F84FB283971485D58A815", 241
    $P5017 = $P5016."clone"()
    perl6_capture_lex $P5017
    .return ($P5017) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_3_1372810584.23453") :anon :lex :outer("cuid_2_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 8
    .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 $P5003, "27420382D80CEF05775E7415279171A93892A1F1-1372810242.10453", 15
    $P5004 = $P5003."new"()
    perl6ize_type $P5002, $P5004
    .return ($P5002) 
.end
.HLL "perl6"
.namespace []
.sub "run" :subid("cuid_5_1372810584.23453") :anon :lex :outer("cuid_2_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 10
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5010 = 'cuid_4_1372810584.23453' 
    capture_lex $P5010 
    .const 'Sub' $P5010 = 'cuid_6_1372810584.23453' 
    capture_lex $P5010 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$host", $P103 
    .lex "$port", $P104 
    .lex "$debug", $P105 
    .lex "$_", $P106 
    .lex "$/", $P107 
    .lex "$!", $P108 
    .lex "$app", $P109 
    .lex "$psgi", $P110 
    .lex "call_sig", $P111 
    .lex "$*DISPATCHER", $P112 
    .lex "&?ROUTINE", $P113 
    perl6_take_dispatcher 
    .const 'Sub' $P5002 = 'cuid_4_1372810584.23453' 
    capture_lex $P5002
    .const 'Sub' $P5006 = 'cuid_6_1372810584.23453' 
    capture_lex $P5006
    set $P5006, CALL_SIG
    set $P111, $P5006
    bind_signature 
    root_new $P114, ['parrot';'Continuation']
    set_label $P114, lexotic_36
    .lex "RETURN", $P114
.annotate 'line', 12

    nqp_get_sc_object $P5008, "EE0B7E03D68411FB217F84FB283971485D58A815", 27
    $P5009 = $P5008."clone"()
    perl6_capture_lex $P5009
    perl6_container_store $P109, $P5009
.annotate 'line', 38

    nqp_get_sc_object $P5009, "279448D1A3300DA554C726B61DADFDA488AD8238", 9
    $P5010 = $P5009."new"($P103 :named("host"), $P104 :named("port"), $P105 :named("debug"))
    perl6ize_type $P5008, $P5010
    perl6_container_store $P110, $P5008
.annotate 'line', 39
    $P5009 = $P110."app"($P109)
    perl6ize_type $P5008, $P5009
.annotate 'line', 40
    $P5009 = $P110."run"()
    perl6ize_type $P5008, $P5009
    perl6_decontainerize_return_value $P5007, $P5008
    goto lexotic_37
  lexotic_36:
    .get_results ($P5007)
  lexotic_37:
    find_lex $P5008, "&EXHAUST"
    store_lex "RETURN", $P5008
    nqp_get_sc_object $P5009, "EE0B7E03D68411FB217F84FB283971485D58A815", 17
    perl6_type_check_return_value $P5007, $P5009
    .return ($P5007) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_4_1372810584.23453") :anon :lex :outer("cuid_5_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 10

    perl6_booleanize $P5001, 0
    .return ($P5001) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_6_1372810584.23453") :anon :lex :outer("cuid_5_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 12
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5010 = 'cuid_10_1372810584.23453' 
    capture_lex $P5010 
    .lex "%env", $P101 
    .lex "$_", $P102 
    .lex "$/", $P103 
    .lex "$!", $P104 
    .lex "$request", $P105 
    .lex "$response", $P106 
    .lex "call_sig", $P107 
    .lex "$*DISPATCHER", $P108 
    .lex "&?ROUTINE", $P109 
    .local pmc _inline_arg_1 
    .local pmc _inline_arg_2 
    perl6_take_dispatcher 
    .const 'Sub' $P5004 = 'cuid_10_1372810584.23453' 
    capture_lex $P5004
    set $P5005, CALL_SIG
    set $P107, $P5005
    bind_signature 
    root_new $P110, ['parrot';'Continuation']
    set_label $P110, lexotic_32
    .lex "RETURN", $P110
.annotate 'line', 17
    nqp_get_sc_object $P5010, "EE0B7E03D68411FB217F84FB283971485D58A815", 31
    $P5011 = $P101."postcircumfix:<{ }>"($P5010)
    perl6ize_type $P5009, $P5011
    nqp_get_sc_object $P5008, "EE0B7E03D68411FB217F84FB283971485D58A815", 32
    $P5008($P5009)
.annotate 'line', 24

    find_lex $P5009, "self"
    $P5010 = $P5009."handler"($P105 :named("json"))
    perl6ize_type $P5008, $P5010
    perl6_container_store $P106, $P5008
.annotate 'line', 28

    if $P106 goto unless27_else34 
    nqp_get_sc_object $P5008, "EE0B7E03D68411FB217F84FB283971485D58A815", 44
    $P5009 = "&infix:<,>"()
    $P5010 = "&circumfix:<[ ]>"($P5009)
    $P5011 = "&infix:<,>"()
    $P5012 = "&circumfix:<[ ]>"($P5011)
    $P5013 = "&infix:<,>"($P5008, $P5010, $P5012)
    $P5014 = "&circumfix:<[ ]>"($P5013)
    $P5015 = "&return"($P5014)
    goto unless27_end35
  unless27_else34:
    find_lex $P5016, "Nil"
  unless27_end35:
.annotate 'line', 30
.annotate 'line', 34
    nqp_get_sc_object $P5008, "EE0B7E03D68411FB217F84FB283971485D58A815", 45
.annotate 'line', 31
.annotate 'line', 32
    nqp_get_sc_object $P5009, "EE0B7E03D68411FB217F84FB283971485D58A815", 46
    set _inline_arg_1, $P5009
    nqp_get_sc_object $P5010, "EE0B7E03D68411FB217F84FB283971485D58A815", 47
    set _inline_arg_2, $P5010
    nqp_get_sc_object $P5013, "5C7C172868FA9510BA84BFF074E73D635E54D9D3", 4
    $P5014 = $P5013."new"(_inline_arg_1 :named("key"), _inline_arg_2 :named("value"))
    perl6ize_type $P5012, $P5014
    perl6_decontainerize_return_value $P5011, $P5012
    nqp_get_sc_object $P5012, "5C7C172868FA9510BA84BFF074E73D635E54D9D3", 12592
    perl6_type_check_return_value $P5011, $P5012
.annotate 'line', 33
    nqp_get_sc_object $P5013, "EE0B7E03D68411FB217F84FB283971485D58A815", 48
    nqp_get_sc_object $P5016, "EE0B7E03D68411FB217F84FB283971485D58A815", 49
    $P5017 = $P106."encode"($P5016)
    perl6ize_type $P5015, $P5017
    $P5018 = $P5015."bytes"()
    perl6ize_type $P5014, $P5018
    $P5019 = "&infix:<=>>"($P5013, $P5014)
    $P5020 = "&infix:<,>"($P5011, $P5019)
    $P5021 = "&circumfix:<[ ]>"($P5020)
.annotate 'line', 34
    $P5022 = "&circumfix:<[ ]>"($P106)
    $P5023 = "&infix:<,>"($P5008, $P5021, $P5022)
    $P5024 = "&circumfix:<[ ]>"($P5023)
    $P5025 = "&return"($P5024)
    perl6_decontainerize_return_value $P5007, $P5025
    goto lexotic_33
  lexotic_32:
    .get_results ($P5007)
  lexotic_33:
    find_lex $P5008, "&EXHAUST"
    store_lex "RETURN", $P5008
    nqp_get_sc_object $P5009, "EE0B7E03D68411FB217F84FB283971485D58A815", 27
    perl6_type_check_return_value $P5007, $P5009
    .return ($P5007) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_10_1372810584.23453") :anon :lex :outer("cuid_6_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 17
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5006 = 'cuid_7_1372810584.23453' 
    capture_lex $P5006 
    .const 'Sub' $P5006 = 'cuid_8_1372810584.23453' 
    capture_lex $P5006 
    .const 'Sub' $P5006 = 'cuid_9_1372810584.23453' 
    capture_lex $P5006 
    .lex "$_", $P101 
    .lex "call_sig", $P102 
    .lex "$*DISPATCHER", $P103 
    perl6_take_dispatcher 
    set $P5002, CALL_SIG
    set $P102, $P5002
    bind_signature 
    new $P5004, 'ExceptionHandler', [.CONTROL_BREAK]
    set_label $P5004, catch_handler_2530
    push_eh $P5004
    nqp_get_sc_object $P5004, "27420382D80CEF05775E7415279171A93892A1F1-1372810242.10453", 29
    find_lex $P5005, "$_"
    $P5006 = $P5004."ACCEPTS"($P5005)
    unless $P5006 goto if12_end15 
    new $P5010, 'ExceptionHandler', [.CONTROL_CONTINUE]
    set_label $P5010, catch_handler_1417
    push_eh $P5010
    .const 'Sub' $P5007 = 'cuid_7_1372810584.23453' 
    capture_lex $P5007
    $P5008 = $P5007()
    $P5009 = "&succeed"($P5008)
    set $P5011, $P5009
    pop_eh 
    goto skip_handler_1316
  catch_handler_1417:
    .get_results ($P5010) 
    set $I10001, $P5010["type"]
    eq $I10001, .CONTROL_CONTINUE, handle_type_1518
  handle_type_1518:
    getattribute $P10001, $P5010, "payload"
    finalize $P5010
    pop_upto_eh $P5010
    pop_eh 
    set $P5011, $P10001
    goto skip_handler_1316
  skip_handler_1316:
  if12_end15:
    nqp_get_sc_object $P5004, "5C7C172868FA9510BA84BFF074E73D635E54D9D3", 8957
    find_lex $P5005, "$_"
    $P5006 = $P5004."ACCEPTS"($P5005)
    unless $P5006 goto if16_end20 
    new $P5010, 'ExceptionHandler', [.CONTROL_CONTINUE]
    set_label $P5010, catch_handler_1822
    push_eh $P5010
    .const 'Sub' $P5007 = 'cuid_8_1372810584.23453' 
    capture_lex $P5007
    $P5008 = $P5007()
    $P5009 = "&succeed"($P5008)
    set $P5011, $P5009
    pop_eh 
    goto skip_handler_1721
  catch_handler_1822:
    .get_results ($P5010) 
    set $I10001, $P5010["type"]
    eq $I10001, .CONTROL_CONTINUE, handle_type_1923
  handle_type_1923:
    getattribute $P10001, $P5010, "payload"
    finalize $P5010
    pop_upto_eh $P5010
    pop_eh 
    set $P5011, $P10001
    goto skip_handler_1721
  skip_handler_1721:
  if16_end20:
    nqp_get_sc_object $P5004, "5C7C172868FA9510BA84BFF074E73D635E54D9D3", 4460
    find_lex $P5005, "$_"
    $P5006 = $P5004."ACCEPTS"($P5005)
    set $P5012, $P5006
    unless $P5006 goto if20_end25 
    new $P5010, 'ExceptionHandler', [.CONTROL_CONTINUE]
    set_label $P5010, catch_handler_2227
    push_eh $P5010
    .const 'Sub' $P5007 = 'cuid_9_1372810584.23453' 
    capture_lex $P5007
    $P5008 = $P5007()
    $P5009 = "&succeed"($P5008)
    set $P5011, $P5009
    pop_eh 
    goto skip_handler_2126
  catch_handler_2227:
    .get_results ($P5010) 
    set $I10001, $P5010["type"]
    eq $I10001, .CONTROL_CONTINUE, handle_type_2328
  handle_type_2328:
    getattribute $P10001, $P5010, "payload"
    finalize $P5010
    pop_upto_eh $P5010
    pop_eh 
    set $P5011, $P10001
    goto skip_handler_2126
  skip_handler_2126:
    set $P5012, $P5011
  if20_end25:
    set $P5005, $P5012
    pop_eh 
    goto skip_handler_2429
  catch_handler_2530:
    .get_results ($P5004) 
    set $I10001, $P5004["type"]
    eq $I10001, .CONTROL_BREAK, handle_type_2631
  handle_type_2631:
    getattribute $P10001, $P5004, "payload"
    nqp_get_sc_object $P10002, "EE0B7E03D68411FB217F84FB283971485D58A815", 32
    perl6_type_check_return_value $P10001, $P10002
    perl6_returncc $P10001
    finalize $P5004
    pop_upto_eh $P5004
    pop_eh 
    set $P5005, $P10001
    goto skip_handler_2429
  skip_handler_2429:
    .return ($P5005) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_7_1372810584.23453") :anon :lex :outer("cuid_10_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 18
    .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, "$request"
    find_lex $P5005, "$_"
    perl6_container_store $P5004, $P5005
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_8_1372810584.23453") :anon :lex :outer("cuid_10_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 19
    .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, "$request"
    find_lex $P5006, "$_"
    $P5007 = $P5006."decode"()
    perl6ize_type $P5005, $P5007
    perl6_container_store $P5004, $P5005
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_9_1372810584.23453") :anon :lex :outer("cuid_10_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 20
    .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, "$request"
    find_lex $P5006, "$_"
    $P5007 = $P5006."slurp"()
    perl6ize_type $P5005, $P5007
    perl6_container_store $P5004, $P5005
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "handler" :subid("cuid_11_1372810584.23453") :anon :lex :outer("cuid_2_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 43
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5010 = 'cuid_12_1372810584.23453' 
    capture_lex $P5010 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$json", $P103 
    .lex "$_", $P104 
    .lex "$/", $P105 
    .lex "$!", $P106 
    .lex "$out", $P107 
    .lex "%template", $P108 
    .lex "call_sig", $P109 
    .lex "$*DISPATCHER", $P110 
    .lex "&?ROUTINE", $P111 
    .local pmc _inline_arg_3 
    .local pmc _inline_arg_4 
    perl6_take_dispatcher 
    .const 'Sub' $P5005 = 'cuid_12_1372810584.23453' 
    capture_lex $P5005
    set $P5006, CALL_SIG
    set $P109, $P5006
    bind_signature 
    root_new $P112, ['parrot';'Continuation']
    set_label $P112, lexotic_81
    .lex "RETURN", $P112
.annotate 'line', 47

.annotate 'line', 50
    nqp_get_sc_object $P5008, "EE0B7E03D68411FB217F84FB283971485D58A815", 68
    set _inline_arg_3, $P5008
    nqp_get_sc_object $P5009, "EE0B7E03D68411FB217F84FB283971485D58A815", 69
    set _inline_arg_4, $P5009
    nqp_get_sc_object $P5012, "5C7C172868FA9510BA84BFF074E73D635E54D9D3", 4
    $P5013 = $P5012."new"(_inline_arg_3 :named("key"), _inline_arg_4 :named("value"))
    perl6ize_type $P5011, $P5013
    perl6_decontainerize_return_value $P5010, $P5011
    nqp_get_sc_object $P5011, "5C7C172868FA9510BA84BFF074E73D635E54D9D3", 12592
    perl6_type_check_return_value $P5010, $P5011
    $P5012 = "&infix:<,>"($P5010)
    $P108."STORE"($P5012)
    nqp_get_sc_object $P5008, "EE0B7E03D68411FB217F84FB283971485D58A815", 70
    $P5008()
.annotate 'line', 149
    find_lex $P5009, "&to-json"
    perl6_multi_dispatch_thunk $P5008, $P5009
    $P5010 = $P5008($P107)
    $P5011 = "&return"($P5010)
    perl6_decontainerize_return_value $P5007, $P5011
    goto lexotic_82
  lexotic_81:
    .get_results ($P5007)
  lexotic_82:
    find_lex $P5008, "&EXHAUST"
    store_lex "RETURN", $P5008
    nqp_get_sc_object $P5009, "EE0B7E03D68411FB217F84FB283971485D58A815", 63
    perl6_type_check_return_value $P5007, $P5009
    .return ($P5007) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_12_1372810584.23453") :anon :lex :outer("cuid_11_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 53
    .const 'Sub' $P5007 = 'cuid_15_1372810584.23453' 
    capture_lex $P5007 
    .const 'Sub' $P5007 = 'cuid_22_1372810584.23453' 
    capture_lex $P5007 
    .const 'Sub' $P5007 = 'cuid_24_1372810584.23453' 
    capture_lex $P5007 
    .const 'Sub' $P5007 = 'cuid_13_1372810584.23453' 
    capture_lex $P5007 
    .const 'Sub' $P5007 = 'cuid_14_1372810584.23453' 
    capture_lex $P5007 
    .lex "$_", $P101 
    .lex "$parsed", $P102 
    .lex "@requests", $P103 
    .lex "@responses", $P104 
    .local pmc old_topic_1 
    .local pmc sm_result_1 
    .local pmc old_topic_5 
    .local pmc sm_result_5 
    .const 'Sub' $P5002 = 'cuid_15_1372810584.23453' 
    capture_lex $P5002
    .const 'Sub' $P5003 = 'cuid_22_1372810584.23453' 
    capture_lex $P5003
    .const 'Sub' $P5004 = 'cuid_24_1372810584.23453' 
    capture_lex $P5004
    new $P5005, 'ExceptionHandler'
    set_label $P5005, catch_handler_6080
    $P5005.'handle_types_except'(.CONTROL_ALL)
    push_eh $P5005
.annotate 'line', 54

    find_lex $P5006, "self"
    nqp_get_sc_object $P5007, "EE0B7E03D68411FB217F84FB283971485D58A815", 73
    nqp_get_sc_object $P5008, "EE0B7E03D68411FB217F84FB283971485D58A815", 6
    find_lex $P5009, "$json"
    $P5010 = $P5006."dispatch:<!>"($P5007, $P5008, $P5009)
    perl6ize_type $P5005, $P5010
    perl6_container_store $P102, $P5005
    find_lex $P5005, "$_"
    set old_topic_1, $P5005
.annotate 'line', 57

    store_lex "$_", $P102
    nqp_get_sc_object $P5006, "27420382D80CEF05775E7415279171A93892A1F1-1372810242.10453", 38
    find_lex $P5007, "$_"
    $P5008 = $P5006."ACCEPTS"($P5007)
    set sm_result_1, $P5008
    store_lex "$_", old_topic_1
    unless sm_result_1 goto if55_else71 
    .const 'Sub' $P5005 = 'cuid_13_1372810584.23453' 
    capture_lex $P5005
    $P5006 = $P5005()
    goto if55_end72
  if55_else71:
    .const 'Sub' $P5007 = 'cuid_14_1372810584.23453' 
    capture_lex $P5007
    $P5008 = $P5007()
  if55_end72:
.annotate 'line', 68

    nqp_get_sc_object $P5005, "EE0B7E03D68411FB217F84FB283971485D58A815", 116
    $P5006 = $P5005."clone"()
    perl6_capture_lex $P5006
    $P5007 = "&GATHER"($P5006)
    $P104."STORE"($P5007)
.annotate 'line', 125
    find_lex $P5006, "&prefix:<?>"
    perl6_multi_dispatch_thunk $P5005, $P5006
    $P5007 = $P5005($P104)
    if $P5007 goto unless57_else75 
    $P5008 = "&return"()
    goto unless57_end76
  unless57_else75:
    find_lex $P5009, "Nil"
  unless57_end76:
.annotate 'line', 127
    find_lex $P5005, "$out"
    find_lex $P5006, "$_"
    set old_topic_5, $P5006
    store_lex "$_", $P102
    nqp_get_sc_object $P5007, "27420382D80CEF05775E7415279171A93892A1F1-1372810242.10453", 38
    find_lex $P5008, "$_"
    $P5009 = $P5007."ACCEPTS"($P5008)
    set sm_result_5, $P5009
    store_lex "$_", old_topic_5
    unless sm_result_5 goto if58_else77 
    set $P5008, $P104
    goto if58_end78
  if58_else77:
    $P5007 = $P104."pop"()
    perl6ize_type $P5006, $P5007
    set $P5008, $P5006
  if58_end78:
    perl6_container_store $P5005, $P5008
    find_lex $P5005, "Nil"
    set $P5006, $P5005
    pop_eh 
    goto skip_handler_5979
  catch_handler_6080:
    .get_results ($P5005) 
.annotate 'line', 129
    nqp_get_sc_object $P10001, "EE0B7E03D68411FB217F84FB283971485D58A815", 117
    perl6_invoke_catchhandler $P10001, $P5005
    find_lex $P10002, "$!"
    finalize $P5005
    pop_upto_eh $P5005
    pop_eh 
    set $P5006, $P10002
    goto skip_handler_5979
  skip_handler_5979:
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_15_1372810584.23453") :anon :lex :outer("cuid_12_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 68
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5005 = 'cuid_16_1372810584.23453' 
    capture_lex $P5005 
    .const 'Sub' $P5005 = 'cuid_21_1372810584.23453' 
    capture_lex $P5005 
    .lex "$request", $P101 
    .lex "%response", $P102 
    .lex "call_sig", $P103 
    .lex "$*DISPATCHER", $P104 
    perl6_take_dispatcher 
    .const 'Sub' $P5001 = 'cuid_16_1372810584.23453' 
    capture_lex $P5001
    .const 'Sub' $P5002 = 'cuid_21_1372810584.23453' 
    capture_lex $P5002
    set $P5003, CALL_SIG
    set $P103, $P5003
    bind_signature 
    nqp_get_sc_object $P5005, "EE0B7E03D68411FB217F84FB283971485D58A815", 83
    $P5005()
.annotate 'line', 122
    $P5005 = "&circumfix:<{ }>"($P102)
    $P5006 = "&take"($P5005)
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_16_1372810584.23453") :anon :lex :outer("cuid_15_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 73
    .const 'Sub' $P5005 = 'cuid_20_1372810584.23453' 
    capture_lex $P5005 
    .const 'Sub' $P5005 = 'cuid_17_1372810584.23453' 
    capture_lex $P5005 
    .lex "$_", $P101 
    .lex "$mode", $P102 
    .lex "$method", $P103 
    .lex "$candidate", $P104 
    .lex "$result", $P105 
    .local pmc old_topic_2 
    .local pmc sm_result_2 
    .local pmc old_topic_3 
    .local pmc sm_result_3 
    .const 'Sub' $P5002 = 'cuid_20_1372810584.23453' 
    capture_lex $P5002
    new $P5003, 'ExceptionHandler'
    set_label $P5003, catch_handler_4560
    $P5003.'handle_types_except'(.CONTROL_ALL)
    push_eh $P5003
.annotate 'line', 74

    find_lex $P5004, "self"
    nqp_get_sc_object $P5005, "EE0B7E03D68411FB217F84FB283971485D58A815", 86
    nqp_get_sc_object $P5006, "EE0B7E03D68411FB217F84FB283971485D58A815", 6
    find_lex $P5007, "$request"
    $P5008 = $P5004."dispatch:<!>"($P5005, $P5006, $P5007)
    perl6ize_type $P5003, $P5008
    perl6_container_store $P102, $P5003
    find_lex $P5003, "$_"
    set old_topic_2, $P5003
.annotate 'line', 78

    store_lex "$_", $P102
    nqp_get_sc_object $P5004, "EE0B7E03D68411FB217F84FB283971485D58A815", 87
    find_lex $P5005, "$_"
    $P5006 = $P5004."ACCEPTS"($P5005)
    set sm_result_2, $P5006
    store_lex "$_", old_topic_2
    if sm_result_2 goto unless42_end56 
    .const 'Sub' $P5003 = 'cuid_17_1372810584.23453' 
    capture_lex $P5003
    $P5004 = $P5003()
  unless42_end56:
.annotate 'line', 86

    find_lex $P5004, "self"
    nqp_get_sc_object $P5005, "EE0B7E03D68411FB217F84FB283971485D58A815", 93
    nqp_get_sc_object $P5006, "EE0B7E03D68411FB217F84FB283971485D58A815", 6
    find_lex $P5008, "$request"
    nqp_get_sc_object $P5009, "EE0B7E03D68411FB217F84FB283971485D58A815", 92
    $P5010 = $P5008."postcircumfix:<{ }>"($P5009)
    perl6ize_type $P5007, $P5010
    $P5011 = $P5004."dispatch:<!>"($P5005, $P5006, $P5007)
    perl6ize_type $P5003, $P5011
    perl6_container_store $P103, $P5003
.annotate 'line', 87

    find_lex $P5004, "self"
    nqp_get_sc_object $P5005, "EE0B7E03D68411FB217F84FB283971485D58A815", 96
    nqp_get_sc_object $P5006, "EE0B7E03D68411FB217F84FB283971485D58A815", 6
    find_lex $P5008, "$request"
    nqp_get_sc_object $P5009, "EE0B7E03D68411FB217F84FB283971485D58A815", 95
    $P5010 = $P5008."postcircumfix:<{ }>"($P5009)
    perl6ize_type $P5007, $P5010
    $P5011 = $P5004."dispatch:<!>"($P5005, $P5006, $P103, $P5007)
    perl6ize_type $P5003, $P5011
    perl6_container_store $P104, $P5003
.annotate 'line', 88

    find_lex $P5004, "self"
    nqp_get_sc_object $P5005, "EE0B7E03D68411FB217F84FB283971485D58A815", 98
    nqp_get_sc_object $P5006, "EE0B7E03D68411FB217F84FB283971485D58A815", 6
    find_lex $P5008, "$request"
    nqp_get_sc_object $P5009, "EE0B7E03D68411FB217F84FB283971485D58A815", 95
    $P5010 = $P5008."postcircumfix:<{ }>"($P5009)
    perl6ize_type $P5007, $P5010
    $P5011 = $P5004."dispatch:<!>"($P5005, $P5006, $P104, $P5007)
    perl6ize_type $P5003, $P5011
    perl6_container_store $P105, $P5003
    find_lex $P5003, "$_"
    set old_topic_3, $P5003
.annotate 'line', 92

    store_lex "$_", $P102
    nqp_get_sc_object $P5004, "EE0B7E03D68411FB217F84FB283971485D58A815", 87
    find_lex $P5005, "$_"
    $P5006 = $P5004."ACCEPTS"($P5005)
    set sm_result_3, $P5006
    store_lex "$_", old_topic_3
    unless sm_result_3 goto if43_else57 
    $P5003 = "&next"()
    goto if43_end58
  if43_else57:
    find_lex $P5004, "Nil"
  if43_end58:
.annotate 'line', 95
    find_lex $P5004, "%response"
    nqp_get_sc_object $P5005, "EE0B7E03D68411FB217F84FB283971485D58A815", 99
    $P5006 = $P5004."postcircumfix:<{ }>"($P5005)
    perl6ize_type $P5003, $P5006
    perl6_container_store $P5003, $P105
    find_lex $P5003, "Nil"
    set $P5004, $P5003
    pop_eh 
    goto skip_handler_4459
  catch_handler_4560:
    .get_results ($P5003) 
.annotate 'line', 97
    nqp_get_sc_object $P10001, "EE0B7E03D68411FB217F84FB283971485D58A815", 100
    perl6_invoke_catchhandler $P10001, $P5003
    find_lex $P10002, "$!"
    finalize $P5003
    pop_upto_eh $P5003
    pop_eh 
    set $P5004, $P10002
    goto skip_handler_4459
  skip_handler_4459:
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_20_1372810584.23453") :anon :lex :outer("cuid_16_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 97
    .param pmc exception__1 
    .const 'Sub' $P5007 = 'cuid_18_1372810584.23453' 
    capture_lex $P5007 
    .const 'Sub' $P5007 = 'cuid_19_1372810584.23453' 
    capture_lex $P5007 
    .lex "$_", $P101 
    .lex "$!", $P102 
    .lex "$/", $P103 
    new $P5005, 'ExceptionHandler'
    set_label $P5005, catch_handler_4154
    $P5005.'handle_types_except'(.CONTROL_ALL)
    push_eh $P5005
    $P5001 = "&EXCEPTION"(exception__1)
    set $P101, $P5001
    find_lex_skip_current $P5002, "$!"
    perl6_container_store $P5002, $P101
    new $P5003, 'ExceptionHandler', [.CONTROL_BREAK]
    set_label $P5003, catch_handler_3851
    push_eh $P5003
    nqp_get_sc_object $P5003, "41487C40046F2646B00FF94DC1B274AB904A484B", 63
    $P5004 = $P5003."ACCEPTS"($P101)
    unless $P5004 goto if28_end39 
    new $P5008, 'ExceptionHandler', [.CONTROL_CONTINUE]
    set_label $P5008, catch_handler_3041
    push_eh $P5008
    .const 'Sub' $P5005 = 'cuid_18_1372810584.23453' 
    capture_lex $P5005
    $P5006 = $P5005()
    $P5007 = "&succeed"($P5006)
    set $P5009, $P5007
    pop_eh 
    goto skip_handler_2940
  catch_handler_3041:
    .get_results ($P5008) 
    set $I10001, $P5008["type"]
    eq $I10001, .CONTROL_CONTINUE, handle_type_3142
  handle_type_3142:
    getattribute $P10001, $P5008, "payload"
    finalize $P5008
    pop_upto_eh $P5008
    pop_eh 
    set $P5009, $P10001
    goto skip_handler_2940
  skip_handler_2940:
  if28_end39:
    nqp_get_sc_object $P5003, "41487C40046F2646B00FF94DC1B274AB904A484B", 4
    $P5004 = $P5003."ACCEPTS"($P101)
    set $P5010, $P5004
    unless $P5004 goto if32_end44 
    new $P5008, 'ExceptionHandler', [.CONTROL_CONTINUE]
    set_label $P5008, catch_handler_3548
    push_eh $P5008
    .const 'Sub' $P5005 = 'cuid_19_1372810584.23453' 
    capture_lex $P5005
    $P5006 = $P5005()
    $P5007 = "&succeed"($P5006)
    set $P5009, $P5007
    pop_eh 
    goto skip_handler_3447
  catch_handler_3548:
    .get_results ($P5008) 
    set $I10001, $P5008["type"]
    eq $I10001, .CONTROL_CONTINUE, handle_type_3649
  handle_type_3649:
    getattribute $P10001, $P5008, "payload"
    finalize $P5008
    pop_upto_eh $P5008
    pop_eh 
    set $P5009, $P10001
    goto skip_handler_3447
  skip_handler_3447:
    set $P5010, $P5009
  if32_end44:
    set $P5004, $P5010
    pop_eh 
    goto skip_handler_3750
  catch_handler_3851:
    .get_results ($P5003) 
    set $I10001, $P5003["type"]
    eq $I10001, .CONTROL_BREAK, handle_type_3952
  handle_type_3952:
    getattribute $P10001, $P5003, "payload"
    nqp_get_sc_object $P10002, "EE0B7E03D68411FB217F84FB283971485D58A815", 100
    perl6_type_check_return_value $P10001, $P10002
    perl6_returncc $P10001
    finalize $P5003
    pop_upto_eh $P5003
    pop_eh 
    set $P5004, $P10001
    goto skip_handler_3750
  skip_handler_3750:
    set $P5006, $P5004
    pop_eh 
    goto skip_handler_4053
  catch_handler_4154:
    .get_results ($P5005) 
    perl6_based_rethrow $P5005, exception__1
    finalize $P5005
    pop_upto_eh $P5005
    pop_eh 
    set $P5006, exception__1
    goto skip_handler_4053
  skip_handler_4053:
    rethrow exception__1
    .return (exception__1) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_18_1372810584.23453") :anon :lex :outer("cuid_20_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 98
    .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', 100
    find_lex $P5004, "%response"
    find_lex $P5005, "%template"
    $P5004."STORE"($P5005)
.annotate 'line', 103
    find_lex $P5005, "%response"
    nqp_get_sc_object $P5006, "EE0B7E03D68411FB217F84FB283971485D58A815", 102
    $P5007 = $P5005."postcircumfix:<{ }>"($P5006)
    perl6ize_type $P5004, $P5007
    find_lex $P5009, "$_"
    $P5010 = $P5009."Hash"()
    perl6ize_type $P5008, $P5010
    perl6_container_store $P5004, $P5008
.annotate 'line', 107
    find_lex $P5005, "%response"
    nqp_get_sc_object $P5006, "EE0B7E03D68411FB217F84FB283971485D58A815", 89
    $P5007 = $P5005."postcircumfix:<{ }>"($P5006)
    perl6ize_type $P5004, $P5007
    nqp_get_sc_object $P5008, "27420382D80CEF05775E7415279171A93892A1F1-1372810242.10453", 15
    perl6_container_store $P5004, $P5008
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_19_1372810584.23453") :anon :lex :outer("cuid_20_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 109
    .param pmc CALL_SIG :call_sig 
    .lex "$_", $P101 
    .lex "call_sig", $P102 
    .lex "$*DISPATCHER", $P103 
    .local pmc old_topic_4 
    .local pmc sm_result_4 
    perl6_take_dispatcher 
    set $P5002, CALL_SIG
    set $P102, $P5002
    bind_signature 
    find_lex $P5004, "$_"
    set old_topic_4, $P5004
.annotate 'line', 114
    find_lex $P5005, "$mode"
    store_lex "$_", $P5005
    nqp_get_sc_object $P5006, "EE0B7E03D68411FB217F84FB283971485D58A815", 87
    find_lex $P5007, "$_"
    $P5008 = $P5006."ACCEPTS"($P5007)
    set sm_result_4, $P5008
    store_lex "$_", old_topic_4
    unless sm_result_4 goto if33_else45 
    $P5004 = "&next"()
    goto if33_end46
  if33_else45:
    find_lex $P5005, "Nil"
  if33_end46:
.annotate 'line', 117
    find_lex $P5005, "%response"
    nqp_get_sc_object $P5006, "EE0B7E03D68411FB217F84FB283971485D58A815", 102
    $P5007 = $P5005."postcircumfix:<{ }>"($P5006)
    perl6ize_type $P5004, $P5007
    find_lex $P5009, "$_"
    $P5010 = $P5009."Hash"()
    perl6ize_type $P5008, $P5010
    perl6_container_store $P5004, $P5008
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_17_1372810584.23453") :anon :lex :outer("cuid_16_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 78
    .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', 79
    find_lex $P5004, "%response"
    find_lex $P5005, "%template"
    $P5004."STORE"($P5005)
.annotate 'line', 83
    find_lex $P5005, "%response"
    nqp_get_sc_object $P5006, "EE0B7E03D68411FB217F84FB283971485D58A815", 89
    $P5007 = $P5005."postcircumfix:<{ }>"($P5006)
    perl6ize_type $P5004, $P5007
    find_lex $P5009, "$request"
    nqp_get_sc_object $P5010, "EE0B7E03D68411FB217F84FB283971485D58A815", 89
    $P5011 = $P5009."postcircumfix:<{ }>"($P5010)
    perl6ize_type $P5008, $P5011
    perl6_container_store $P5004, $P5008
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_21_1372810584.23453") :anon :lex :outer("cuid_15_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 122
    .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, "%response"
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_22_1372810584.23453") :anon :lex :outer("cuid_12_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 68

    find_lex $P5001, "@requests"
    $P5002 = "&infix:<,>"($P5001)
    nqp_get_sc_object $P5003, "EE0B7E03D68411FB217F84FB283971485D58A815", 80
    $P5004 = $P5003."clone"()
    perl6_capture_lex $P5004
    $P5005 = $P5002."map"($P5004)
    $P5006 = "&eager"($P5005)
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_24_1372810584.23453") :anon :lex :outer("cuid_12_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 129
    .param pmc exception__2 
    .const 'Sub' $P5007 = 'cuid_23_1372810584.23453' 
    capture_lex $P5007 
    .lex "$_", $P101 
    .lex "$!", $P102 
    .lex "$/", $P103 
    new $P5005, 'ExceptionHandler'
    set_label $P5005, catch_handler_5470
    $P5005.'handle_types_except'(.CONTROL_ALL)
    push_eh $P5005
    $P5001 = "&EXCEPTION"(exception__2)
    set $P101, $P5001
    find_lex_skip_current $P5002, "$!"
    perl6_container_store $P5002, $P101
    new $P5003, 'ExceptionHandler', [.CONTROL_BREAK]
    set_label $P5003, catch_handler_5167
    push_eh $P5003
.annotate 'line', 134
    nqp_get_sc_object $P5003, "41487C40046F2646B00FF94DC1B274AB904A484B", 49
    nqp_get_sc_object $P5004, "41487C40046F2646B00FF94DC1B274AB904A484B", 63
    $P5005 = "&infix:<|>"($P5003, $P5004)
    $P5006 = $P5005."ACCEPTS"($P101)
    set $P5012, $P5006
    unless $P5006 goto if46_end62 
    new $P5010, 'ExceptionHandler', [.CONTROL_CONTINUE]
    set_label $P5010, catch_handler_4864
    push_eh $P5010
    .const 'Sub' $P5007 = 'cuid_23_1372810584.23453' 
    capture_lex $P5007
    $P5008 = $P5007()
    $P5009 = "&succeed"($P5008)
    set $P5011, $P5009
    pop_eh 
    goto skip_handler_4763
  catch_handler_4864:
    .get_results ($P5010) 
    set $I10001, $P5010["type"]
    eq $I10001, .CONTROL_CONTINUE, handle_type_4965
  handle_type_4965:
    getattribute $P10001, $P5010, "payload"
    finalize $P5010
    pop_upto_eh $P5010
    pop_eh 
    set $P5011, $P10001
    goto skip_handler_4763
  skip_handler_4763:
    set $P5012, $P5011
  if46_end62:
    set $P5004, $P5012
    pop_eh 
    goto skip_handler_5066
  catch_handler_5167:
    .get_results ($P5003) 
    set $I10001, $P5003["type"]
    eq $I10001, .CONTROL_BREAK, handle_type_5268
  handle_type_5268:
    getattribute $P10001, $P5003, "payload"
    nqp_get_sc_object $P10002, "EE0B7E03D68411FB217F84FB283971485D58A815", 117
    perl6_type_check_return_value $P10001, $P10002
    perl6_returncc $P10001
    finalize $P5003
    pop_upto_eh $P5003
    pop_eh 
    set $P5004, $P10001
    goto skip_handler_5066
  skip_handler_5066:
    set $P5006, $P5004
    pop_eh 
    goto skip_handler_5369
  catch_handler_5470:
    .get_results ($P5005) 
    perl6_based_rethrow $P5005, exception__2
    finalize $P5005
    pop_upto_eh $P5005
    pop_eh 
    set $P5006, exception__2
    goto skip_handler_5369
  skip_handler_5369:
    rethrow exception__2
    .return (exception__2) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_23_1372810584.23453") :anon :lex :outer("cuid_24_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 134
    .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', 137
    find_lex $P5004, "$out"
    find_lex $P5005, "%template"
    perl6_container_store $P5004, $P5005
.annotate 'line', 140
    find_lex $P5005, "$out"
    nqp_get_sc_object $P5006, "EE0B7E03D68411FB217F84FB283971485D58A815", 102
    $P5007 = $P5005."postcircumfix:<{ }>"($P5006)
    perl6ize_type $P5004, $P5007
    find_lex $P5009, "$_"
    $P5010 = $P5009."Hash"()
    perl6ize_type $P5008, $P5010
    perl6_container_store $P5004, $P5008
.annotate 'line', 144
    find_lex $P5005, "$out"
    nqp_get_sc_object $P5006, "EE0B7E03D68411FB217F84FB283971485D58A815", 89
    $P5007 = $P5005."postcircumfix:<{ }>"($P5006)
    perl6ize_type $P5004, $P5007
    nqp_get_sc_object $P5008, "27420382D80CEF05775E7415279171A93892A1F1-1372810242.10453", 15
    perl6_container_store $P5004, $P5008
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_13_1372810584.23453") :anon :lex :outer("cuid_12_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 57
    .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', 61
    find_lex $P5005, "$parsed"
    $P5006 = $P5005."elems"()
    perl6ize_type $P5004, $P5006
    if $P5004 goto unless56_else73 
    nqp_get_sc_object $P5009, "41487C40046F2646B00FF94DC1B274AB904A484B", 63
    $P5010 = $P5009."new"()
    perl6ize_type $P5008, $P5010
    $P5011 = $P5008."throw"()
    perl6ize_type $P5007, $P5011
    goto unless56_end74
  unless56_else73:
    find_lex $P5012, "Nil"
  unless56_end74:
.annotate 'line', 62
    find_lex $P5004, "@requests"
    find_lex $P5006, "$parsed"
    $P5007 = $P5006."list"()
    perl6ize_type $P5005, $P5007
    $P5008 = $P5004."STORE"($P5005)
    .return ($P5008) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_14_1372810584.23453") :anon :lex :outer("cuid_12_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 64
    .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', 65
    find_lex $P5005, "@requests"
    find_lex $P5006, "$parsed"
    $P5007 = $P5005."push"($P5006)
    perl6ize_type $P5004, $P5007
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "parse_json" :subid("cuid_25_1372810584.23453") :anon :lex :outer("cuid_2_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 152
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5010 = 'cuid_26_1372810584.23453' 
    capture_lex $P5010 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$body", $P103 
    .lex "$_", $P104 
    .lex "$/", $P105 
    .lex "$!", $P106 
    .lex "$parsed", $P107 
    .lex "call_sig", $P108 
    .lex "$*DISPATCHER", $P109 
    .lex "&?ROUTINE", $P110 
    .local pmc old_topic_6 
    .local pmc sm_result_6 
    perl6_take_dispatcher 
    .const 'Sub' $P5005 = 'cuid_26_1372810584.23453' 
    capture_lex $P5005
    set $P5006, CALL_SIG
    set $P108, $P5006
    bind_signature 
    root_new $P111, ['parrot';'Continuation']
    set_label $P111, lexotic_83
    .lex "RETURN", $P111
    new $P5008, 'ExceptionHandler'
    set_label $P5008, catch_handler_6286
    $P5008.'handle_types_except'(.CONTROL_ALL)
    push_eh $P5008
    nqp_get_sc_object $P5008, "EE0B7E03D68411FB217F84FB283971485D58A815", 131
    $P5009 = $P5008()
    find_lex $P5010, "$!"
    find_lex $P5011, "Any"
    perl6_container_store $P5010, $P5011
    set $P5009, $P5009
    pop_eh 
    goto skip_handler_6185
  catch_handler_6286:
    .get_results ($P5008) 
    find_lex $P10001, "$!"
    $P10002 = "&EXCEPTION"($P5008)
    perl6_container_store $P10001, $P10002
    null $P10003
    perl6_invoke_catchhandler $P10003, $P5008
    finalize $P5008
    pop_upto_eh $P5008
    pop_eh 
    set $P5009, $P10001
    goto skip_handler_6185
  skip_handler_6185:
.annotate 'line', 158
    find_lex $P5010, "$!"
    find_lex $P5009, "&defined"
    perl6_multi_dispatch_thunk $P5008, $P5009
    $P5011 = $P5008($P5010)
    unless $P5011 goto if63_else87 
    nqp_get_sc_object $P5014, "41487C40046F2646B00FF94DC1B274AB904A484B", 49
    find_lex $P5017, "$!"
    find_lex $P5016, "&prefix:<~>"
    perl6_multi_dispatch_thunk $P5015, $P5016
    $P5018 = $P5015($P5017)
    $P5019 = $P5014."new"($P5018 :named("data"))
    perl6ize_type $P5013, $P5019
    $P5020 = $P5013."throw"()
    perl6ize_type $P5012, $P5020
    goto if63_end88
  if63_else87:
    find_lex $P5021, "Nil"
  if63_end88:
    find_lex $P5008, "$_"
    set old_topic_6, $P5008
.annotate 'line', 159

    store_lex "$_", $P107
    nqp_get_sc_object $P5009, "27420382D80CEF05775E7415279171A93892A1F1-1372810242.10453", 38
    nqp_get_sc_object $P5010, "27420382D80CEF05775E7415279171A93892A1F1-1372810242.10453", 41
    $P5011 = "&infix:<|>"($P5009, $P5010)
    find_lex $P5012, "$_"
    $P5013 = $P5011."ACCEPTS"($P5012)
    set sm_result_6, $P5013
    store_lex "$_", old_topic_6
    if sm_result_6 goto unless64_else89 
    nqp_get_sc_object $P5010, "41487C40046F2646B00FF94DC1B274AB904A484B", 49
    $P5011 = $P5010."new"()
    perl6ize_type $P5009, $P5011
    $P5012 = $P5009."throw"()
    perl6ize_type $P5008, $P5012
    goto unless64_end90
  unless64_else89:
    find_lex $P5013, "Nil"
  unless64_end90:
.annotate 'line', 161
    $P5008 = "&return"($P107)
    perl6_decontainerize_return_value $P5007, $P5008
    goto lexotic_84
  lexotic_83:
    .get_results ($P5007)
  lexotic_84:
    find_lex $P5008, "&EXHAUST"
    store_lex "RETURN", $P5008
    nqp_get_sc_object $P5009, "EE0B7E03D68411FB217F84FB283971485D58A815", 127
    perl6_type_check_return_value $P5007, $P5009
    .return ($P5007) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_26_1372810584.23453") :anon :lex :outer("cuid_25_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 156
    .lex "$_", $P101 
    find_lex $P5002, "$parsed"
    find_lex $P5003, "$body"
    $P5004 = "&from-json"($P5003)
    perl6_container_store $P5002, $P5004
    .return ($P5002) 
.end
.HLL "perl6"
.namespace []
.sub "validate_request" :subid("cuid_27_1372810584.23453") :anon :lex :outer("cuid_2_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 164
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5014 = 'cuid_28_1372810584.23453' 
    capture_lex $P5014 
    .const 'Sub' $P5014 = 'cuid_30_1372810584.23453' 
    capture_lex $P5014 
    .const 'Sub' $P5014 = 'cuid_31_1372810584.23453' 
    capture_lex $P5014 
    .const 'Sub' $P5014 = 'cuid_32_1372810584.23453' 
    capture_lex $P5014 
    .const 'Sub' $P5014 = 'cuid_42_1372810584.23453' 
    capture_lex $P5014 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$request", $P103 
    .lex "$_", $P104 
    .lex "$/", $P105 
    .lex "$!", $P106 
    .lex "$mode", $P107 
    .lex "MemberJSONRPC", $P108 
    .lex "MemberMethod", $P109 
    .lex "MemberParams", $P110 
    .lex "MemberID", $P111 
    .lex "call_sig", $P112 
    .lex "$*DISPATCHER", $P113 
    .lex "&?ROUTINE", $P114 
    perl6_take_dispatcher 
    .const 'Sub' $P5005 = 'cuid_28_1372810584.23453' 
    capture_lex $P5005
    .const 'Sub' $P5006 = 'cuid_30_1372810584.23453' 
    capture_lex $P5006
    .const 'Sub' $P5007 = 'cuid_31_1372810584.23453' 
    capture_lex $P5007
    .const 'Sub' $P5008 = 'cuid_32_1372810584.23453' 
    capture_lex $P5008
    .const 'Sub' $P5009 = 'cuid_42_1372810584.23453' 
    capture_lex $P5009
    set $P5010, CALL_SIG
    set $P112, $P5010
    bind_signature 
    root_new $P115, ['parrot';'Continuation']
    set_label $P115, lexotic_138
    .lex "RETURN", $P115
    nqp_get_sc_object $P5012, "EE0B7E03D68411FB217F84FB283971485D58A815", 145
    nqp_get_sc_object $P5012, "EE0B7E03D68411FB217F84FB283971485D58A815", 155
    nqp_get_sc_object $P5012, "EE0B7E03D68411FB217F84FB283971485D58A815", 159
    nqp_get_sc_object $P5012, "EE0B7E03D68411FB217F84FB283971485D58A815", 164
.annotate 'line', 186
    nqp_get_sc_object $P5012, "EE0B7E03D68411FB217F84FB283971485D58A815", 165
    $P5012($P103)
.annotate 'line', 194
    $P5012 = "&return"($P107)
    perl6_decontainerize_return_value $P5011, $P5012
    goto lexotic_139
  lexotic_138:
    .get_results ($P5011)
  lexotic_139:
    find_lex $P5012, "&EXHAUST"
    store_lex "RETURN", $P5012
    nqp_get_sc_object $P5013, "EE0B7E03D68411FB217F84FB283971485D58A815", 139
    perl6_type_check_return_value $P5011, $P5013
    .return ($P5011) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_28_1372810584.23453") :anon :lex :outer("cuid_27_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
    .param pmc CALL_SIG :call_sig 
    .lex "$_", $P101 
    .lex "call_sig", $P102 
    set $P5001, CALL_SIG
    set $P102, $P5001
    bind_signature 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 69
    $P5003 = $P5002."ACCEPTS"($P101)
    .return ($P5003) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_30_1372810584.23453") :anon :lex :outer("cuid_27_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 175
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5006 = 'cuid_29_1372810584.23453' 
    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 rx65_tgt
    .local int rx65_pos
    .local int rx65_off
    .local int rx65_eos
    .local int rx65_rep
    .local pmc rx65_cur
    .local pmc rx65_curclass
    .local pmc rx65_bstack
    .local pmc rx65_cstack
    (rx65_cur, rx65_tgt, rx65_pos, rx65_curclass, rx65_bstack, $I19) = self."!cursor_start"()
    store_lex unicode:"$\x{a2}", rx65_cur
    length rx65_eos, rx65_tgt
    eq $I19, 1, rx65_restart93
    gt rx65_pos, rx65_eos, rx65_fail94
    repr_get_attr_int $I11, self, rx65_curclass, "$!from"
    ne $I11, -1, rxscan66_done100
    goto rxscan66_scan99
  rxscan66_loop98:
    inc rx65_pos
    gt rx65_pos, rx65_eos, rx65_fail94
    repr_bind_attr_int rx65_cur, rx65_curclass, "$!from", rx65_pos
  rxscan66_scan99:
    nqp_rxmark rx65_bstack, rxscan66_loop98, rx65_pos, 0
  rxscan66_done100:
    ne rx65_pos, 0, rx65_fail94
    .const 'Sub' $P5005 = 'cuid_29_1372810584.23453' 
    capture_lex $P5005
    repr_bind_attr_int rx65_cur, rx65_curclass, "$!pos", rx65_pos
    $P11 = rx65_cur."before"($P5005)
    repr_get_attr_int $I11, $P11, rx65_curclass, "$!pos"
    ge $I11, 0, rx65_fail94
    rx65_cur."!cursor_pass"(rx65_pos, 'backtrack'=>1)
    .return (rx65_cur)
  rx65_restart93:
    repr_get_attr_obj rx65_cstack, rx65_cur, rx65_curclass, "$!cstack"
  rx65_fail94:
    unless rx65_bstack, rx65_done92
    pop $I19, rx65_bstack
    if_null rx65_cstack, rx65_cstack_done97
    unless rx65_cstack, rx65_cstack_done97
    dec $I19
    set $P11, rx65_cstack[$I19]
  rx65_cstack_done97:
    pop rx65_rep, rx65_bstack
    pop rx65_pos, rx65_bstack
    pop $I19, rx65_bstack
    lt rx65_pos, -1, rx65_done92
    lt rx65_pos, 0, rx65_fail94
    eq $I19, 0, rx65_fail94
    nqp_islist $I20, rx65_cstack
    unless $I20, rx65_jump95
    elements $I18, rx65_bstack
    le $I18, 0, rx65_cut96
    dec $I18
    set $I18, rx65_bstack[$I18]
  rx65_cut96:
    assign rx65_cstack, $I18
  rx65_jump95:
    jump $I19
  rx65_done92:
    rx65_cur."!cursor_fail"()
    .return (rx65_cur) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_29_1372810584.23453") :anon :lex :outer("cuid_30_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
    .param pmc self 
    .lex utf8:"$\x{a2}", $P101 
    .local string rx68_tgt
    .local int rx68_pos
    .local int rx68_off
    .local int rx68_eos
    .local int rx68_rep
    .local pmc rx68_cur
    .local pmc rx68_curclass
    .local pmc rx68_bstack
    .local pmc rx68_cstack
    (rx68_cur, rx68_tgt, rx68_pos, rx68_curclass, rx68_bstack, $I19) = self."!cursor_start"()
    store_lex unicode:"$\x{a2}", rx68_cur
    length rx68_eos, rx68_tgt
    eq $I19, 1, rx68_restart104
    gt rx68_pos, rx68_eos, rx68_fail105
    repr_get_attr_int $I11, self, rx68_curclass, "$!from"
    ne $I11, -1, rxscan69_done111
    goto rxscan69_scan110
  rxscan69_loop109:
    inc rx68_pos
    gt rx68_pos, rx68_eos, rx68_fail105
    repr_bind_attr_int rx68_cur, rx68_curclass, "$!from", rx68_pos
  rxscan69_scan110:
    nqp_rxmark rx68_bstack, rxscan69_loop109, rx68_pos, 0
  rxscan69_done111:
    add $I11, rx68_pos, 4
    gt $I11, rx68_eos, rx68_fail105
    substr $S10, rx68_tgt, rx68_pos, 4
    ne $S10, ucs4:"rpc.", rx68_fail105
    add rx68_pos, 4
    rx68_cur."!cursor_pass"(rx68_pos, 'backtrack'=>1)
    .return (rx68_cur)
  rx68_restart104:
    repr_get_attr_obj rx68_cstack, rx68_cur, rx68_curclass, "$!cstack"
  rx68_fail105:
    unless rx68_bstack, rx68_done103
    pop $I19, rx68_bstack
    if_null rx68_cstack, rx68_cstack_done108
    unless rx68_cstack, rx68_cstack_done108
    dec $I19
    set $P11, rx68_cstack[$I19]
  rx68_cstack_done108:
    pop rx68_rep, rx68_bstack
    pop rx68_pos, rx68_bstack
    pop $I19, rx68_bstack
    lt rx68_pos, -1, rx68_done103
    lt rx68_pos, 0, rx68_fail105
    eq $I19, 0, rx68_fail105
    nqp_islist $I20, rx68_cstack
    unless $I20, rx68_jump106
    elements $I18, rx68_bstack
    le $I18, 0, rx68_cut107
    dec $I18
    set $I18, rx68_bstack[$I18]
  rx68_cut107:
    assign rx68_cstack, $I18
  rx68_jump106:
    jump $I19
  rx68_done103:
    rx68_cur."!cursor_fail"()
    .return (rx68_cur) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_31_1372810584.23453") :anon :lex :outer("cuid_27_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
    .param pmc CALL_SIG :call_sig 
    .lex "$_", $P101 
    .lex "call_sig", $P102 
    set $P5001, CALL_SIG
    set $P102, $P5001
    bind_signature 
.annotate 'line', 180
    nqp_get_sc_object $P5002, "27420382D80CEF05775E7415279171A93892A1F1-1372810242.10453", 38
    nqp_get_sc_object $P5003, "27420382D80CEF05775E7415279171A93892A1F1-1372810242.10453", 41
    $P5004 = "&infix:<|>"($P5002, $P5003)
    $P5005 = $P5004."ACCEPTS"($P101)
    .return ($P5005) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_32_1372810584.23453") :anon :lex :outer("cuid_27_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
    .param pmc CALL_SIG :call_sig 
    .lex "$_", $P101 
    .lex "call_sig", $P102 
    set $P5001, CALL_SIG
    set $P102, $P5001
    bind_signature 
.annotate 'line', 184
    nqp_get_sc_object $P5002, "27420382D80CEF05775E7415279171A93892A1F1-1372810242.10453", 29
    nqp_get_sc_object $P5003, "27420382D80CEF05775E7415279171A93892A1F1-1372810242.10453", 31
    nqp_get_sc_object $P5004, "5C7C172868FA9510BA84BFF074E73D635E54D9D3", 7503
    nqp_get_sc_object $P5005, "27420382D80CEF05775E7415279171A93892A1F1-1372810242.10453", 32
    nqp_get_sc_object $P5006, "27420382D80CEF05775E7415279171A93892A1F1-1372810242.10453", 15
    $P5007 = "&infix:<|>"($P5002, $P5003, $P5004, $P5005, $P5006)
    $P5008 = $P5007."ACCEPTS"($P101)
    .return ($P5008) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_42_1372810584.23453") :anon :lex :outer("cuid_27_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 186
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5011 = 'cuid_33_1372810584.23453' 
    capture_lex $P5011 
    .const 'Sub' $P5011 = 'cuid_35_1372810584.23453' 
    capture_lex $P5011 
    .const 'Sub' $P5011 = 'cuid_37_1372810584.23453' 
    capture_lex $P5011 
    .const 'Sub' $P5011 = 'cuid_39_1372810584.23453' 
    capture_lex $P5011 
    .const 'Sub' $P5011 = 'cuid_41_1372810584.23453' 
    capture_lex $P5011 
    .const 'Sub' $P5011 = 'cuid_34_1372810584.23453' 
    capture_lex $P5011 
    .const 'Sub' $P5011 = 'cuid_36_1372810584.23453' 
    capture_lex $P5011 
    .const 'Sub' $P5011 = 'cuid_38_1372810584.23453' 
    capture_lex $P5011 
    .const 'Sub' $P5011 = 'cuid_40_1372810584.23453' 
    capture_lex $P5011 
    .lex "$_", $P101 
    .lex "call_sig", $P102 
    .lex "$*DISPATCHER", $P103 
    perl6_take_dispatcher 
    .const 'Sub' $P5001 = 'cuid_33_1372810584.23453' 
    capture_lex $P5001
    .const 'Sub' $P5002 = 'cuid_35_1372810584.23453' 
    capture_lex $P5002
    .const 'Sub' $P5003 = 'cuid_37_1372810584.23453' 
    capture_lex $P5003
    .const 'Sub' $P5004 = 'cuid_39_1372810584.23453' 
    capture_lex $P5004
    .const 'Sub' $P5005 = 'cuid_41_1372810584.23453' 
    capture_lex $P5005
    set $P5007, CALL_SIG
    set $P102, $P5007
    bind_signature 
    new $P5009, 'ExceptionHandler', [.CONTROL_BREAK]
    set_label $P5009, catch_handler_90136
    push_eh $P5009
    nqp_get_sc_object $P5009, "EE0B7E03D68411FB217F84FB283971485D58A815", 172
    find_lex $P5010, "$_"
    $P5011 = $P5009."ACCEPTS"($P5010)
    unless $P5011 goto if70_end113 
    new $P5015, 'ExceptionHandler', [.CONTROL_CONTINUE]
    set_label $P5015, catch_handler_72115
    push_eh $P5015
    .const 'Sub' $P5012 = 'cuid_34_1372810584.23453' 
    capture_lex $P5012
    $P5013 = $P5012()
    $P5014 = "&succeed"($P5013)
    set $P5016, $P5014
    pop_eh 
    goto skip_handler_71114
  catch_handler_72115:
    .get_results ($P5015) 
    set $I10001, $P5015["type"]
    eq $I10001, .CONTROL_CONTINUE, handle_type_73116
  handle_type_73116:
    getattribute $P10001, $P5015, "payload"
    finalize $P5015
    pop_upto_eh $P5015
    pop_eh 
    set $P5016, $P10001
    goto skip_handler_71114
  skip_handler_71114:
  if70_end113:
    nqp_get_sc_object $P5009, "EE0B7E03D68411FB217F84FB283971485D58A815", 185
    find_lex $P5010, "$_"
    $P5011 = $P5009."ACCEPTS"($P5010)
    unless $P5011 goto if74_end118 
    new $P5015, 'ExceptionHandler', [.CONTROL_CONTINUE]
    set_label $P5015, catch_handler_76120
    push_eh $P5015
    .const 'Sub' $P5012 = 'cuid_36_1372810584.23453' 
    capture_lex $P5012
    $P5013 = $P5012()
    $P5014 = "&succeed"($P5013)
    set $P5016, $P5014
    pop_eh 
    goto skip_handler_75119
  catch_handler_76120:
    .get_results ($P5015) 
    set $I10001, $P5015["type"]
    eq $I10001, .CONTROL_CONTINUE, handle_type_77121
  handle_type_77121:
    getattribute $P10001, $P5015, "payload"
    finalize $P5015
    pop_upto_eh $P5015
    pop_eh 
    set $P5016, $P10001
    goto skip_handler_75119
  skip_handler_75119:
  if74_end118:
    nqp_get_sc_object $P5009, "EE0B7E03D68411FB217F84FB283971485D58A815", 193
    find_lex $P5010, "$_"
    $P5011 = $P5009."ACCEPTS"($P5010)
    unless $P5011 goto if78_end123 
    new $P5015, 'ExceptionHandler', [.CONTROL_CONTINUE]
    set_label $P5015, catch_handler_80125
    push_eh $P5015
    .const 'Sub' $P5012 = 'cuid_38_1372810584.23453' 
    capture_lex $P5012
    $P5013 = $P5012()
    $P5014 = "&succeed"($P5013)
    set $P5016, $P5014
    pop_eh 
    goto skip_handler_79124
  catch_handler_80125:
    .get_results ($P5015) 
    set $I10001, $P5015["type"]
    eq $I10001, .CONTROL_CONTINUE, handle_type_81126
  handle_type_81126:
    getattribute $P10001, $P5015, "payload"
    finalize $P5015
    pop_upto_eh $P5015
    pop_eh 
    set $P5016, $P10001
    goto skip_handler_79124
  skip_handler_79124:
  if78_end123:
    nqp_get_sc_object $P5009, "EE0B7E03D68411FB217F84FB283971485D58A815", 203
    find_lex $P5010, "$_"
    $P5011 = $P5009."ACCEPTS"($P5010)
    unless $P5011 goto if82_end128 
    new $P5015, 'ExceptionHandler', [.CONTROL_CONTINUE]
    set_label $P5015, catch_handler_84130
    push_eh $P5015
    .const 'Sub' $P5012 = 'cuid_40_1372810584.23453' 
    capture_lex $P5012
    $P5013 = $P5012()
    $P5014 = "&succeed"($P5013)
    set $P5016, $P5014
    pop_eh 
    goto skip_handler_83129
  catch_handler_84130:
    .get_results ($P5015) 
    set $I10001, $P5015["type"]
    eq $I10001, .CONTROL_CONTINUE, handle_type_85131
  handle_type_85131:
    getattribute $P10001, $P5015, "payload"
    finalize $P5015
    pop_upto_eh $P5015
    pop_eh 
    set $P5016, $P10001
    goto skip_handler_83129
  skip_handler_83129:
  if82_end128:
    new $P5012, 'ExceptionHandler', [.CONTROL_CONTINUE]
    set_label $P5012, catch_handler_87133
    push_eh $P5012
    nqp_get_sc_object $P5009, "EE0B7E03D68411FB217F84FB283971485D58A815", 207
    $P5010 = $P5009()
    $P5011 = "&succeed"($P5010)
    set $P5013, $P5011
    pop_eh 
    goto skip_handler_86132
  catch_handler_87133:
    .get_results ($P5012) 
    set $I10001, $P5012["type"]
    eq $I10001, .CONTROL_CONTINUE, handle_type_88134
  handle_type_88134:
    getattribute $P10001, $P5012, "payload"
    finalize $P5012
    pop_upto_eh $P5012
    pop_eh 
    set $P5013, $P10001
    goto skip_handler_86132
  skip_handler_86132:
    set $P5010, $P5013
    pop_eh 
    goto skip_handler_89135
  catch_handler_90136:
    .get_results ($P5009) 
    set $I10001, $P5009["type"]
    eq $I10001, .CONTROL_BREAK, handle_type_91137
  handle_type_91137:
    getattribute $P10001, $P5009, "payload"
    nqp_get_sc_object $P10002, "EE0B7E03D68411FB217F84FB283971485D58A815", 165
    perl6_type_check_return_value $P10001, $P10002
    perl6_returncc $P10001
    finalize $P5009
    pop_upto_eh $P5009
    pop_eh 
    set $P5010, $P10001
    goto skip_handler_89135
  skip_handler_89135:
    .return ($P5010) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_33_1372810584.23453") :anon :lex :outer("cuid_42_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 187
    .lex "$jsonrpc", $P101 
    .lex "$method", $P102 
    .lex "$id", $P103 
    .return ($P103) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_35_1372810584.23453") :anon :lex :outer("cuid_42_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 188
    .lex "$jsonrpc", $P101 
    .lex "$method", $P102 
    .lex "$params", $P103 
    .lex "$id", $P104 
    .return ($P104) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_37_1372810584.23453") :anon :lex :outer("cuid_42_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 189
    .lex "$jsonrpc", $P101 
    .lex "$method", $P102 
    .return ($P102) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_39_1372810584.23453") :anon :lex :outer("cuid_42_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 190
    .lex "$jsonrpc", $P101 
    .lex "$method", $P102 
    .lex "$params", $P103 
    .return ($P103) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_41_1372810584.23453") :anon :lex :outer("cuid_42_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 191
    .lex "$_", $P101 
    nqp_get_sc_object $P5004, "41487C40046F2646B00FF94DC1B274AB904A484B", 63
    $P5005 = $P5004."new"()
    perl6ize_type $P5003, $P5005
    $P5006 = $P5003."throw"()
    perl6ize_type $P5002, $P5006
    .return ($P5002) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_34_1372810584.23453") :anon :lex :outer("cuid_42_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 187
    .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, "$mode"
    nqp_get_sc_object $P5005, "EE0B7E03D68411FB217F84FB283971485D58A815", 175
    perl6_container_store $P5004, $P5005
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_36_1372810584.23453") :anon :lex :outer("cuid_42_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 188
    .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, "$mode"
    nqp_get_sc_object $P5005, "EE0B7E03D68411FB217F84FB283971485D58A815", 175
    perl6_container_store $P5004, $P5005
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_38_1372810584.23453") :anon :lex :outer("cuid_42_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 189
    .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, "$mode"
    nqp_get_sc_object $P5005, "EE0B7E03D68411FB217F84FB283971485D58A815", 87
    perl6_container_store $P5004, $P5005
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_40_1372810584.23453") :anon :lex :outer("cuid_42_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 190
    .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, "$mode"
    nqp_get_sc_object $P5005, "EE0B7E03D68411FB217F84FB283971485D58A815", 87
    perl6_container_store $P5004, $P5005
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "search_method" :subid("cuid_43_1372810584.23453") :anon :lex :outer("cuid_2_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 197
    .param pmc CALL_SIG :call_sig 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$name", $P103 
    .lex "$_", $P104 
    .lex "$/", $P105 
    .lex "$!", $P106 
    .lex "$method", $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_140
    .lex "RETURN", $P111
.annotate 'line', 200

    $P5008 = $P101."application"()
    $P5009 = $P5008."item"()
    nqp_get_sc_object $P5010, "EE0B7E03D68411FB217F84FB283971485D58A815", 222
    $P5011 = $P5009."dispatch:<.^>"($P5010, $P103)
    perl6ize_type $P5007, $P5011
    perl6_container_store $P107, $P5007
.annotate 'line', 202

    if $P107 goto unless92_else142 
    nqp_get_sc_object $P5009, "41487C40046F2646B00FF94DC1B274AB904A484B", 77
    $P5010 = $P5009."new"()
    perl6ize_type $P5008, $P5010
    $P5011 = $P5008."throw"()
    perl6ize_type $P5007, $P5011
    goto unless92_end143
  unless92_else142:
    find_lex $P5012, "Nil"
  unless92_end143:
.annotate 'line', 204
    $P5007 = "&return"($P107)
    perl6_decontainerize_return_value $P5006, $P5007
    goto lexotic_141
  lexotic_140:
    .get_results ($P5006)
  lexotic_141:
    find_lex $P5007, "&EXHAUST"
    store_lex "RETURN", $P5007
    nqp_get_sc_object $P5008, "EE0B7E03D68411FB217F84FB283971485D58A815", 218
    perl6_type_check_return_value $P5006, $P5008
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "validate_params" :subid("cuid_45_1372810584.23453") :anon :lex :outer("cuid_2_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 207
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5010 = 'cuid_44_1372810584.23453' 
    capture_lex $P5010 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$method", $P103 
    .lex "$params", $P104 
    .lex "$_", $P105 
    .lex "$/", $P106 
    .lex "$!", $P107 
    .lex "@candidates", $P108 
    .lex "call_sig", $P109 
    .lex "$*DISPATCHER", $P110 
    .lex "&?ROUTINE", $P111 
    .local pmc flattening__1 
    perl6_take_dispatcher 
    .const 'Sub' $P5005 = 'cuid_44_1372810584.23453' 
    capture_lex $P5005
    set $P5006, CALL_SIG
    set $P109, $P5006
    bind_signature 
    root_new $P112, ['parrot';'Continuation']
    set_label $P112, lexotic_144
    .lex "RETURN", $P112
.annotate 'line', 211

    nqp_get_sc_object $P5008, "EE0B7E03D68411FB217F84FB283971485D58A815", 231
    "&METAOP_TEST_ASSIGN:<//>"($P104, $P5008)
.annotate 'line', 214

    $P5010 = $P101."application"()
    perl6ize_type $P5009, $P5010
    set flattening__1, $P104
    $P5011 = flattening__1."FLATTENABLE_LIST"()
    $P5012 = flattening__1."FLATTENABLE_HASH"()
    $P5013 = $P103."candidates_matching"($P5009, $P5011 :flat, $P5012 :flat :named)
    perl6ize_type $P5008, $P5013
    $P108."STORE"($P5008)
.annotate 'line', 216

    if $P108 goto unless93_else146 
    nqp_get_sc_object $P5010, "41487C40046F2646B00FF94DC1B274AB904A484B", 91
    $P5011 = $P5010."new"()
    perl6ize_type $P5009, $P5011
    $P5012 = $P5009."throw"()
    perl6ize_type $P5008, $P5012
    goto unless93_end147
  unless93_else146:
    find_lex $P5013, "Nil"
  unless93_end147:
.annotate 'line', 220
    $P5009 = $P108."shift"()
    perl6ize_type $P5008, $P5009
    $P5010 = "&return"($P5008)
    perl6_decontainerize_return_value $P5007, $P5010
    goto lexotic_145
  lexotic_144:
    .get_results ($P5007)
  lexotic_145:
    find_lex $P5008, "&EXHAUST"
    store_lex "RETURN", $P5008
    nqp_get_sc_object $P5009, "EE0B7E03D68411FB217F84FB283971485D58A815", 228
    perl6_type_check_return_value $P5007, $P5009
    .return ($P5007) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_44_1372810584.23453") :anon :lex :outer("cuid_45_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 211

    $P5001 = "&infix:<,>"()
    $P5002 = "&circumfix:<[ ]>"($P5001)
    .return ($P5002) 
.end
.HLL "perl6"
.namespace []
.sub "call" :subid("cuid_46_1372810584.23453") :anon :lex :outer("cuid_2_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 223
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5011 = 'cuid_47_1372810584.23453' 
    capture_lex $P5011 
    .const 'Sub' $P5011 = 'cuid_50_1372810584.23453' 
    capture_lex $P5011 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$candidate", $P103 
    .lex "$params", $P104 
    .lex "$_", $P105 
    .lex "$/", $P106 
    .lex "$!", $P107 
    .lex "$result", $P108 
    .lex "call_sig", $P109 
    .lex "$*DISPATCHER", $P110 
    .lex "&?ROUTINE", $P111 
    perl6_take_dispatcher 
    .const 'Sub' $P5005 = 'cuid_47_1372810584.23453' 
    capture_lex $P5005
    .const 'Sub' $P5006 = 'cuid_50_1372810584.23453' 
    capture_lex $P5006
    set $P5007, CALL_SIG
    set $P109, $P5007
    bind_signature 
    root_new $P112, ['parrot';'Continuation']
    set_label $P112, lexotic_160
    .lex "RETURN", $P112
.annotate 'line', 229

    nqp_get_sc_object $P5009, "EE0B7E03D68411FB217F84FB283971485D58A815", 246
    "&METAOP_TEST_ASSIGN:<//>"($P104, $P5009)
    nqp_get_sc_object $P5009, "EE0B7E03D68411FB217F84FB283971485D58A815", 247
    $P5009()
.annotate 'line', 242
    $P5009 = "&return"($P108)
    perl6_decontainerize_return_value $P5008, $P5009
    goto lexotic_161
  lexotic_160:
    .get_results ($P5008)
  lexotic_161:
    find_lex $P5009, "&EXHAUST"
    store_lex "RETURN", $P5009
    nqp_get_sc_object $P5010, "EE0B7E03D68411FB217F84FB283971485D58A815", 241
    perl6_type_check_return_value $P5008, $P5010
    .return ($P5008) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_47_1372810584.23453") :anon :lex :outer("cuid_46_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 229

    $P5001 = "&infix:<,>"()
    $P5002 = "&circumfix:<[ ]>"($P5001)
    .return ($P5002) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_50_1372810584.23453") :anon :lex :outer("cuid_46_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 231
    .const 'Sub' $P5005 = 'cuid_49_1372810584.23453' 
    capture_lex $P5005 
    .lex "$_", $P101 
    .local pmc flattening__2 
    .const 'Sub' $P5002 = 'cuid_49_1372810584.23453' 
    capture_lex $P5002
    new $P5003, 'ExceptionHandler'
    set_label $P5003, catch_handler_104159
    $P5003.'handle_types_except'(.CONTROL_ALL)
    push_eh $P5003
.annotate 'line', 232
    find_lex $P5003, "$result"
    find_lex $P5006, "self"
    $P5007 = $P5006."application"()
    perl6ize_type $P5005, $P5007
    find_lex $P5008, "$params"
    set flattening__2, $P5008
    $P5009 = flattening__2."FLATTENABLE_LIST"()
    $P5010 = flattening__2."FLATTENABLE_HASH"()
    find_lex $P5004, "$candidate"
    $P5011 = $P5004($P5005, $P5009 :flat, $P5010 :flat :named)
    perl6_container_store $P5003, $P5011
    find_lex $P5003, "Nil"
    set $P5004, $P5003
    pop_eh 
    goto skip_handler_103158
  catch_handler_104159:
    .get_results ($P5003) 
.annotate 'line', 234
    nqp_get_sc_object $P10001, "EE0B7E03D68411FB217F84FB283971485D58A815", 248
    perl6_invoke_catchhandler $P10001, $P5003
    find_lex $P10002, "$!"
    finalize $P5003
    pop_upto_eh $P5003
    pop_eh 
    set $P5004, $P10002
    goto skip_handler_103158
  skip_handler_103158:
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_49_1372810584.23453") :anon :lex :outer("cuid_50_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 234
    .param pmc exception__3 
    .const 'Sub' $P5007 = 'cuid_48_1372810584.23453' 
    capture_lex $P5007 
    .lex "$_", $P101 
    .lex "$!", $P102 
    .lex "$/", $P103 
    .local pmc old_topic_7 
    .local pmc sm_result_7 
    new $P5005, 'ExceptionHandler'
    set_label $P5005, catch_handler_102157
    $P5005.'handle_types_except'(.CONTROL_ALL)
    push_eh $P5005
    $P5001 = "&EXCEPTION"(exception__3)
    set $P101, $P5001
    find_lex_skip_current $P5002, "$!"
    perl6_container_store $P5002, $P101
    new $P5003, 'ExceptionHandler', [.CONTROL_BREAK]
    set_label $P5003, catch_handler_99154
    push_eh $P5003
.annotate 'line', 236
    set old_topic_7, $P101
    set $P101, $P101
    nqp_get_sc_object $P5005, "41487C40046F2646B00FF94DC1B274AB904A484B", 4
    $P5006 = $P5005."ACCEPTS"($P101)
    set sm_result_7, $P5006
    set $P101, old_topic_7
    find_lex $P5004, "&prefix:<not>"
    perl6_multi_dispatch_thunk $P5003, $P5004
    $P5005 = $P5003(sm_result_7)
    $P5006 = $P5005."ACCEPTS"($P101)
    set $P5012, $P5006
    unless $P5006 goto if94_end149 
    new $P5010, 'ExceptionHandler', [.CONTROL_CONTINUE]
    set_label $P5010, catch_handler_96151
    push_eh $P5010
    .const 'Sub' $P5007 = 'cuid_48_1372810584.23453' 
    capture_lex $P5007
    $P5008 = $P5007()
    $P5009 = "&succeed"($P5008)
    set $P5011, $P5009
    pop_eh 
    goto skip_handler_95150
  catch_handler_96151:
    .get_results ($P5010) 
    set $I10001, $P5010["type"]
    eq $I10001, .CONTROL_CONTINUE, handle_type_97152
  handle_type_97152:
    getattribute $P10001, $P5010, "payload"
    finalize $P5010
    pop_upto_eh $P5010
    pop_eh 
    set $P5011, $P10001
    goto skip_handler_95150
  skip_handler_95150:
    set $P5012, $P5011
  if94_end149:
    set $P5004, $P5012
    pop_eh 
    goto skip_handler_98153
  catch_handler_99154:
    .get_results ($P5003) 
    set $I10001, $P5003["type"]
    eq $I10001, .CONTROL_BREAK, handle_type_100155
  handle_type_100155:
    getattribute $P10001, $P5003, "payload"
    nqp_get_sc_object $P10002, "EE0B7E03D68411FB217F84FB283971485D58A815", 248
    perl6_type_check_return_value $P10001, $P10002
    perl6_returncc $P10001
    finalize $P5003
    pop_upto_eh $P5003
    pop_eh 
    set $P5004, $P10001
    goto skip_handler_98153
  skip_handler_98153:
    set $P5006, $P5004
    pop_eh 
    goto skip_handler_101156
  catch_handler_102157:
    .get_results ($P5005) 
    perl6_based_rethrow $P5005, exception__3
    finalize $P5005
    pop_upto_eh $P5005
    pop_eh 
    set $P5006, exception__3
    goto skip_handler_101156
  skip_handler_101156:
    rethrow exception__3
    .return (exception__3) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_48_1372810584.23453") :anon :lex :outer("cuid_49_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
.annotate 'line', 236
    .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', 237
    nqp_get_sc_object $P5006, "41487C40046F2646B00FF94DC1B274AB904A484B", 105
    find_lex $P5008, "$_"
    $P5009 = $P5008."Str"()
    perl6ize_type $P5007, $P5009
    $P5010 = $P5006."new"($P5007 :named("data"))
    perl6ize_type $P5005, $P5010
    $P5011 = $P5005."throw"()
    perl6ize_type $P5004, $P5011
    .return ($P5004) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_53_1372810584.23453") :load :init
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
    .const 'Sub' $P5001 = 'cuid_52_1372810584.23453' 
    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_51_1372810584.23453" 
    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"("JSON::Tiny", 1 :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"("JSON::RPC::Error", 2 :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"("HTTP::Easy::PSGI", 3 :named("line"))
    nqp_create_sc $P5001, "EE0B7E03D68411FB217F84FB283971485D58A815"
    set cur_sc, $P5001
    cur_sc."set_description"("/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.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, "run"
    push $P5003, "handler"
    push $P5003, "application"
    push $P5003, "27420382D80CEF05775E7415279171A93892A1F1-1372810242.10453"
    push $P5003, "src/gen/BOOTSTRAP.pm"
    push $P5003, "$!application"
    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, "&to-json"
    push $P5003, "84832BC5C01865631B389A081E7937E8778CF4FC"
    push $P5003, "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/Tiny.pm"
    push $P5003, "&from-json"
    push $P5003, "$=pod"
    push $P5003, "!UNIT_MARKER"
    push $P5003, "Tiny"
    push $P5003, "RPC"
    push $P5003, "41487C40046F2646B00FF94DC1B274AB904A484B"
    push $P5003, "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Error.pm"
    push $P5003, "&get_http_status_msg"
    push $P5003, "29FC8A324BF03629512C51583644F4813B19AD14"
    push $P5003, "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/HTTP/Easy.pm6"
    push $P5003, "91348AEFDA49A28755D5DC7B18223105E2326C2F"
    push $P5003, "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/HTTP/Status.pm6"
    push $P5003, "Error"
    push $P5003, "ParseError"
    push $P5003, "InvalidRequest"
    push $P5003, "MethodNotFound"
    push $P5003, "InvalidParams"
    push $P5003, "InternalError"
    push $P5003, "TransportError"
    push $P5003, "Server"
    push $P5003, "$?CLASS"
    push $P5003, "::?CLASS"
    push $P5003, "$_"
    push $P5003, "1"
    push $P5003, "$host"
    push $P5003, ""
    push $P5003, "$port"
    push $P5003, "8080"
    push $P5003, "$debug"
    push $P5003, "$app"
    push $P5003, "$psgi"
    push $P5003, "$*DISPATCHER"
    push $P5003, "&?ROUTINE"
    push $P5003, "%env"
    push $P5003, "$request"
    push $P5003, "$response"
    push $P5003, "psgi.input"
    push $P5003, "json"
    push $P5003, "204"
    push $P5003, "200"
    push $P5003, "Content-Type"
    push $P5003, "application/json"
    push $P5003, "Content-Length"
    push $P5003, "UTF-8"
    push $P5003, "host"
    push $P5003, "port"
    push $P5003, "debug"
    push $P5003, "%_"
    push $P5003, "$json"
    push $P5003, "$out"
    push $P5003, "%template"
    push $P5003, "jsonrpc"
    push $P5003, "2.0"
    push $P5003, "$parsed"
    push $P5003, "@requests"
    push $P5003, "@responses"
    push $P5003, "parse_json"
    push $P5003, "%response"
    push $P5003, "$mode"
    push $P5003, "$method"
    push $P5003, "$candidate"
    push $P5003, "$result"
    push $P5003, "validate_request"
    push $P5003, "Notification"
    push $P5003, "id"
    push $P5003, "method"
    push $P5003, "search_method"
    push $P5003, "params"
    push $P5003, "validate_params"
    push $P5003, "call"
    push $P5003, "result"
    push $P5003, "error"
    push $P5003, "$body"
    push $P5003, "data"
    push $P5003, "MemberJSONRPC"
    push $P5003, "MemberMethod"
    push $P5003, "MemberParams"
    push $P5003, "MemberID"
    push $P5003, "U"
    push $P5003, "$jsonrpc"
    push $P5003, "$id"
    push $P5003, "Request"
    push $P5003, "$params"
    push $P5003, "$name"
    push $P5003, "find_method"
    push $P5003, "@candidates"
    push $P5003, "GLOBAL"
    push $P5003, "JSON"
    push $P5003, "HTTP"
    push $P5003, "JSON::RPC::Server"
    push $P5003, "28FAC381EB59BA79DA1D75F70404C20E0548F4F5-1372810034.5696"
    push $P5003, "src/stage2/NQPCORE.setting"
    push $P5003, "call_sig"
    push $P5003, "$dcpkg"
    push $P5003, "$meth"
    push $P5003, "$attr_type"
    push $P5003, "$meth_name"
    push $P5003, "RETURN"
    push $P5003, "self"
    push $P5003, "$package"
    push $P5003, "$/"
    push $P5003, "$!"
    .const 'Sub' $P5004 = 'cuid_52_1372810584.23453' 
    capture_lex $P5004
    $P5005 = $P5004()
    nqp_deserialize_sc "[encoded data, 25328 characters]", cur_sc, $P5003, $P5005, conflicts
    unless conflicts goto if105_end163 
    get_hll_global $P5006, "ModuleLoader"
    $P5007 = $P5006."resolve_repossession_conflicts"(conflicts)
  if105_end163:
    .const "LexInfo" $P5001 = "cuid_1_1372810584.23453"
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 2
    $P5001."set_static_lexpad"($P5002)
    .const "LexInfo" $P5001 = "cuid_2_1372810584.23453"
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 8
    $P5001."set_static_lexpad"($P5002)
    .const "LexInfo" $P5001 = "cuid_3_1372810584.23453"
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 15
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_3_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 14
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_4_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 24
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_5_1372810584.23453"
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 26
    $P5001."set_static_lexpad"($P5002)
    .const "LexInfo" $P5001 = "cuid_6_1372810584.23453"
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 30
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_7_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 33
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_8_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 35
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_9_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 37
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_10_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 32
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_6_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 27
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_5_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 17
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_11_1372810584.23453"
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 66
    $P5001."set_static_lexpad"($P5002)
    .const "LexInfo" $P5001 = "cuid_12_1372810584.23453"
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 72
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_13_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 75
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_14_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 77
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_15_1372810584.23453"
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 82
    $P5001."set_static_lexpad"($P5002)
    .const "LexInfo" $P5001 = "cuid_16_1372810584.23453"
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 85
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_17_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 88
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_18_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 101
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_19_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 104
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_20_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 100
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_16_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 83
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_21_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 108
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_15_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 80
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_22_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 116
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_23_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 118
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_24_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 117
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_12_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 70
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_11_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 63
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_25_1372810584.23453"
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 130
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_26_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 131
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_25_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 127
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_27_1372810584.23453"
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 141
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_28_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 144
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_29_1372810584.23453"
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 148
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_29_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 147
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_30_1372810584.23453"
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 154
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_30_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 149
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_31_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 158
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_32_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 163
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_33_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 173
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_34_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 174
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_35_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 186
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_36_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 187
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_37_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 194
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_38_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 195
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_39_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 204
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_40_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 205
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_41_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 207
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_42_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 165
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_27_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 139
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_43_1372810584.23453"
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 221
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_43_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 218
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_44_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 231
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_45_1372810584.23453"
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 233
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_45_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 228
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_46_1372810584.23453"
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 244
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_47_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 246
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_48_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 249
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_49_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 248
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_50_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 247
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_46_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 241
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_2_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 261
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_1_1372810584.23453" 
    nqp_get_sc_object $P5002, "EE0B7E03D68411FB217F84FB283971485D58A815", 3
    perl6_associate_sub_code_object $P5001, $P5002
    nqp_get_sc_object $P5001, "EE0B7E03D68411FB217F84FB283971485D58A815", 0
    set_hll_global "GLOBAL", $P5001
    .return () 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_52_1372810584.23453") :anon :lex :outer("cuid_53_1372810584.23453")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
    new $P5001, 'ResizablePMCArray'
    .const 'Sub' $P5002 = "cuid_3_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_4_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_7_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_8_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_9_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_10_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_6_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_5_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_13_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_14_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_17_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_18_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_19_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_20_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_16_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_21_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_15_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_22_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_23_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_24_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_12_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_11_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_26_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_25_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_28_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_29_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_30_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_31_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_32_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_33_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_34_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_35_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_36_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_37_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_38_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_39_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_40_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_41_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_42_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_27_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_43_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_44_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_45_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_47_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_48_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_49_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_50_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_46_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_2_1372810584.23453" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_1_1372810584.23453" 
    push $P5001, $P5002
    .return ($P5001) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_54_1372810584.23453") :load
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/JSON/RPC/Server.pm"
    .const 'Sub' $P5001 = "cuid_51_1372810584.23453" 
    $P5002 = $P5001()
    .return ($P5002) 
.end