.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_37_1372810560.93209") :anon :lex
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 1
    .const 'Sub' $P5003 = 'cuid_1_1372810560.93209' 
    capture_lex $P5003 
    .const 'Sub' $P5001 = 'cuid_1_1372810560.93209' 
    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_1372810560.93209") :anon :lex :outer("cuid_37_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 1
    .const 'Sub' $P5014 = 'cuid_2_1372810560.93209' 
    capture_lex $P5014 
    .const 'Sub' $P5014 = 'cuid_9_1372810560.93209' 
    capture_lex $P5014 
    .const 'Sub' $P5014 = 'cuid_31_1372810560.93209' 
    capture_lex $P5014 
    .lex "GLOBALish", $P101 
    .lex "EXPORT", $P102 
    .lex "$?PACKAGE", $P103 
    .lex "::?PACKAGE", $P104 
    .lex "$_", $P105 
    .lex "$/", $P106 
    .lex "$!", $P107 
    .lex "DBDish", $P108 
    .lex "$=pod", $P109 
    .lex "!UNIT_MARKER", $P110 
    .local pmc ctxsave 
    nqp_get_sc_object $P5004, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 171
    nqp_get_sc_object $P5005, "1B774EC04D50F35E99199D1B74077FC90B5E8768-1372810138.56917", 70
    repr_get_attr_obj $P5006, $P5004, $P5005, "$!list"
    capture_all_outers $P5006
    nqp_get_sc_object $P5007, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 294
    nqp_get_sc_object $P5008, "1B774EC04D50F35E99199D1B74077FC90B5E8768-1372810138.56917", 70
    repr_get_attr_obj $P5009, $P5007, $P5008, "$!list"
    capture_all_outers $P5009
    nqp_get_sc_object $P5010, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 386
    nqp_get_sc_object $P5011, "1B774EC04D50F35E99199D1B74077FC90B5E8768-1372810138.56917", 70
    repr_get_attr_obj $P5012, $P5010, $P5011, "$!list"
    capture_all_outers $P5012
    find_dynamic_lex $P5013, "$*CTXSAVE"
    set ctxsave, $P5013
    isnull $I5001, ctxsave
    if $I5001 goto unless15_end51 
    can $I5002, ctxsave, "ctxsave"
    perl6_box_int $P5016, $I5002
    set $P5015, $P5016
    unless $I5002 goto if16_end53 
    $P5014 = ctxsave."ctxsave"()
    set $P5015, $P5014
  if16_end53:
  unless15_end51:
    nqp_get_sc_object $P5013, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 388
    .const 'Sub' $P5014 = 'cuid_2_1372810560.93209' 
    capture_lex $P5014
    nqp_get_sc_object $P5015, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 106
    .const 'Sub' $P5014 = 'cuid_9_1372810560.93209' 
    capture_lex $P5014
    nqp_get_sc_object $P5015, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 174
    .const 'Sub' $P5014 = 'cuid_31_1372810560.93209' 
    capture_lex $P5014
    nqp_get_sc_object $P5015, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 297
    .return ($P5015) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_2_1372810560.93209") :anon :lex :outer("cuid_1_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 34
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5018 = 'cuid_3_1372810560.93209' 
    capture_lex $P5018 
    .const 'Sub' $P5018 = 'cuid_4_1372810560.93209' 
    capture_lex $P5018 
    .const 'Sub' $P5018 = 'cuid_5_1372810560.93209' 
    capture_lex $P5018 
    .const 'Sub' $P5018 = 'cuid_6_1372810560.93209' 
    capture_lex $P5018 
    .const 'Sub' $P5018 = 'cuid_7_1372810560.93209' 
    capture_lex $P5018 
    .lex "$?PACKAGE", $P101 
    .lex "::?PACKAGE", $P102 
    .lex "$?ROLE", $P103 
    .lex "::?ROLE", $P104 
    .lex "$?CLASS", $P105 
    .lex "::?CLASS", $P106 
    .lex "$_", $P107 
    .lex "call_sig", $P108 
    .const 'Sub' $P5002 = 'cuid_3_1372810560.93209' 
    capture_lex $P5002
    .const 'Sub' $P5003 = 'cuid_4_1372810560.93209' 
    capture_lex $P5003
    .const 'Sub' $P5004 = 'cuid_5_1372810560.93209' 
    capture_lex $P5004
    .const 'Sub' $P5005 = 'cuid_6_1372810560.93209' 
    capture_lex $P5005
    set $P5006, CALL_SIG
    set $P108, $P5006
    bind_signature 
    .const 'Sub' $P5007 = 'cuid_7_1372810560.93209' 
    capture_lex $P5007
    null $P5008
    null $P5009
    nqp_get_sc_object $P5010, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 171
    nqp_get_sc_object $P5011, "1B774EC04D50F35E99199D1B74077FC90B5E8768-1372810138.56917", 70
    repr_get_attr_obj $P5012, $P5010, $P5011, "$!list"
    nqp_get_sc_object $P5013, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 170
    $P5014 = $P5013."clone"()
    push $P5012, $P5014
    new $P5015, 'ResizablePMCArray'
    nqp_get_sc_object $P5016, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 106
    push $P5015, $P5016
    getinterp $P5017
    set $P5017, $P5017['lexpad']
    push $P5015, $P5017
    .return ($P5015) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_3_1372810560.93209") :anon :lex :outer("cuid_2_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 35
    .param pmc CALL_SIG :call_sig 
    .lex "self", $P101 
    .lex "$_", $P102 
    .lex "call_sig", $P103 
    set $P5001, CALL_SIG
    set $P103, $P5001
    bind_signature 
    perl6_booleanize $P5002, 0
    .return ($P5002) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_4_1372810560.93209") :anon :lex :outer("cuid_2_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 36
    .param pmc CALL_SIG :call_sig 
    .lex "self", $P101 
    .lex "$_", $P102 
    .lex "call_sig", $P103 
    set $P5001, CALL_SIG
    set $P103, $P5001
    bind_signature 
    perl6_booleanize $P5002, 1
    .return ($P5002) 
.end
.HLL "perl6"
.namespace []
.sub "set_errstr" :subid("cuid_5_1372810560.93209") :anon :lex :outer("cuid_2_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 38
    .param pmc CALL_SIG :call_sig 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$err", $P103 
    .lex "$_", $P104 
    .lex "$/", $P105 
    .lex "$!", $P106 
    .lex "call_sig", $P107 
    .lex "$*DISPATCHER", $P108 
    .lex "&?ROUTINE", $P109 
    perl6_take_dispatcher 
    set $P5005, CALL_SIG
    set $P107, $P5005
    bind_signature 
    root_new $P110, ['parrot';'Continuation']
    set_label $P110, lexotic_54
    .lex "RETURN", $P110
.annotate 'line', 39
    find_lex $P5007, "$?CLASS"
    repr_get_attr_obj $P5008, $P101, $P5007, "$!errstr"
    perl6_container_store $P5008, $P103
.annotate 'line', 40
    $P5008 = $P101."PrintError"()
    perl6ize_type $P5007, $P5008
    unless $P5007 goto if17_else56 
    find_lex $P5009, "$?CLASS"
    repr_get_attr_obj $P5010, $P101, $P5009, "$!errstr"
    $P5011 = "&note"($P5010)
    goto if17_end57
  if17_else56:
    find_lex $P5012, "Nil"
  if17_end57:
.annotate 'line', 41
    $P5008 = $P101."RaiseError"()
    perl6ize_type $P5007, $P5008
    unless $P5007 goto if18_else58 
    find_lex $P5011, "$?CLASS"
    repr_get_attr_obj $P5012, $P101, $P5011, "$!errstr"
    find_lex $P5010, "&die"
    perl6_multi_dispatch_thunk $P5009, $P5010
    $P5013 = $P5009($P5012)
    set $P5015, $P5013
    goto if18_end59
  if18_else58:
    find_lex $P5014, "Nil"
    set $P5015, $P5014
  if18_end59:
    perl6_decontainerize_return_value $P5006, $P5015
    goto lexotic_55
  lexotic_54:
    .get_results ($P5006)
  lexotic_55:
    find_lex $P5007, "&EXHAUST"
    store_lex "RETURN", $P5007
    nqp_get_sc_object $P5008, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 126
    perl6_type_check_return_value $P5006, $P5008
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "reset_errstr" :subid("cuid_6_1372810560.93209") :anon :lex :outer("cuid_2_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 43
    .param pmc CALL_SIG :call_sig 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$_", $P103 
    .lex "$/", $P104 
    .lex "$!", $P105 
    .lex "call_sig", $P106 
    .lex "$*DISPATCHER", $P107 
    .lex "&?ROUTINE", $P108 
    perl6_take_dispatcher 
    set $P5005, CALL_SIG
    set $P106, $P5005
    bind_signature 
    find_lex $P5007, "$?CLASS"
    repr_get_attr_obj $P5008, $P101, $P5007, "$!errstr"
    nqp_get_sc_object $P5009, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 48
    perl6_container_store $P5008, $P5009
    perl6_decontainerize_return_value $P5006, $P5008
    nqp_get_sc_object $P5007, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 135
    perl6_type_check_return_value $P5006, $P5007
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_7_1372810560.93209") :anon :lex :outer("cuid_2_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
    .lex "$_", $P101 
    .return ($P101) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_9_1372810560.93209") :anon :lex :outer("cuid_1_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 52
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5036 = 'cuid_10_1372810560.93209' 
    capture_lex $P5036 
    .const 'Sub' $P5036 = 'cuid_11_1372810560.93209' 
    capture_lex $P5036 
    .const 'Sub' $P5036 = 'cuid_12_1372810560.93209' 
    capture_lex $P5036 
    .const 'Sub' $P5036 = 'cuid_13_1372810560.93209' 
    capture_lex $P5036 
    .const 'Sub' $P5036 = 'cuid_14_1372810560.93209' 
    capture_lex $P5036 
    .const 'Sub' $P5036 = 'cuid_15_1372810560.93209' 
    capture_lex $P5036 
    .const 'Sub' $P5036 = 'cuid_21_1372810560.93209' 
    capture_lex $P5036 
    .const 'Sub' $P5036 = 'cuid_24_1372810560.93209' 
    capture_lex $P5036 
    .const 'Sub' $P5036 = 'cuid_25_1372810560.93209' 
    capture_lex $P5036 
    .const 'Sub' $P5036 = 'cuid_26_1372810560.93209' 
    capture_lex $P5036 
    .const 'Sub' $P5036 = 'cuid_27_1372810560.93209' 
    capture_lex $P5036 
    .const 'Sub' $P5036 = 'cuid_28_1372810560.93209' 
    capture_lex $P5036 
    .const 'Sub' $P5036 = 'cuid_29_1372810560.93209' 
    capture_lex $P5036 
    .lex "$?PACKAGE", $P101 
    .lex "::?PACKAGE", $P102 
    .lex "$?ROLE", $P103 
    .lex "::?ROLE", $P104 
    .lex "$?CLASS", $P105 
    .lex "::?CLASS", $P106 
    .lex "$_", $P107 
    .lex "call_sig", $P108 
    .const 'Sub' $P5002 = 'cuid_10_1372810560.93209' 
    capture_lex $P5002
    .const 'Sub' $P5003 = 'cuid_11_1372810560.93209' 
    capture_lex $P5003
    .const 'Sub' $P5004 = 'cuid_12_1372810560.93209' 
    capture_lex $P5004
    .const 'Sub' $P5005 = 'cuid_13_1372810560.93209' 
    capture_lex $P5005
    .const 'Sub' $P5006 = 'cuid_14_1372810560.93209' 
    capture_lex $P5006
    .const 'Sub' $P5007 = 'cuid_15_1372810560.93209' 
    capture_lex $P5007
    .const 'Sub' $P5008 = 'cuid_21_1372810560.93209' 
    capture_lex $P5008
    .const 'Sub' $P5009 = 'cuid_24_1372810560.93209' 
    capture_lex $P5009
    .const 'Sub' $P5010 = 'cuid_25_1372810560.93209' 
    capture_lex $P5010
    .const 'Sub' $P5011 = 'cuid_26_1372810560.93209' 
    capture_lex $P5011
    .const 'Sub' $P5012 = 'cuid_27_1372810560.93209' 
    capture_lex $P5012
    .const 'Sub' $P5013 = 'cuid_28_1372810560.93209' 
    capture_lex $P5013
    set $P5014, CALL_SIG
    set $P108, $P5014
    bind_signature 
    .const 'Sub' $P5015 = 'cuid_29_1372810560.93209' 
    capture_lex $P5015
    null $P5016
    null $P5017
    null $P5018
    null $P5019
    null $P5020
    null $P5021
    null $P5022
    null $P5023
    null $P5024
    null $P5025
    null $P5026
    null $P5027
    nqp_get_sc_object $P5028, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 294
    nqp_get_sc_object $P5029, "1B774EC04D50F35E99199D1B74077FC90B5E8768-1372810138.56917", 70
    repr_get_attr_obj $P5030, $P5028, $P5029, "$!list"
    nqp_get_sc_object $P5031, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 293
    $P5032 = $P5031."clone"()
    push $P5030, $P5032
    new $P5033, 'ResizablePMCArray'
    nqp_get_sc_object $P5034, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 174
    push $P5033, $P5034
    getinterp $P5035
    set $P5035, $P5035['lexpad']
    push $P5033, $P5035
    .return ($P5033) 
.end
.HLL "perl6"
.namespace []
.sub "finish" :subid("cuid_10_1372810560.93209") :anon :lex :outer("cuid_9_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 53
    .param pmc CALL_SIG :call_sig 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$_", $P103 
    .lex "$/", $P104 
    .lex "$!", $P105 
    .lex "call_sig", $P106 
    .lex "$*DISPATCHER", $P107 
    .lex "&?ROUTINE", $P108 
    perl6_take_dispatcher 
    set $P5005, CALL_SIG
    set $P106, $P5005
    bind_signature 
    root_new $P109, ['parrot';'Continuation']
    set_label $P109, lexotic_60
    .lex "RETURN", $P109
    nqp_get_sc_object $P5007, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 179
    $P5008 = "&fail"($P5007)
    perl6_decontainerize_return_value $P5006, $P5008
    goto lexotic_61
  lexotic_60:
    .get_results ($P5006)
  lexotic_61:
    find_lex $P5007, "&EXHAUST"
    store_lex "RETURN", $P5007
    nqp_get_sc_object $P5008, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 178
    perl6_type_check_return_value $P5006, $P5008
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "fetchrow" :subid("cuid_11_1372810560.93209") :anon :lex :outer("cuid_9_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 54
    .param pmc CALL_SIG :call_sig 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$_", $P103 
    .lex "$/", $P104 
    .lex "$!", $P105 
    .lex "call_sig", $P106 
    .lex "$*DISPATCHER", $P107 
    .lex "&?ROUTINE", $P108 
    perl6_take_dispatcher 
    set $P5005, CALL_SIG
    set $P106, $P5005
    bind_signature 
    root_new $P109, ['parrot';'Continuation']
    set_label $P109, lexotic_62
    .lex "RETURN", $P109
    nqp_get_sc_object $P5007, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 179
    $P5008 = "&fail"($P5007)
    perl6_decontainerize_return_value $P5006, $P5008
    goto lexotic_63
  lexotic_62:
    .get_results ($P5006)
  lexotic_63:
    find_lex $P5007, "&EXHAUST"
    store_lex "RETURN", $P5007
    nqp_get_sc_object $P5008, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 185
    perl6_type_check_return_value $P5006, $P5008
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "execute" :subid("cuid_12_1372810560.93209") :anon :lex :outer("cuid_9_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 55
    .param pmc CALL_SIG :call_sig 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$_", $P103 
    .lex "$/", $P104 
    .lex "$!", $P105 
    .lex "call_sig", $P106 
    .lex "$*DISPATCHER", $P107 
    .lex "&?ROUTINE", $P108 
    perl6_take_dispatcher 
    set $P5005, CALL_SIG
    set $P106, $P5005
    bind_signature 
    root_new $P109, ['parrot';'Continuation']
    set_label $P109, lexotic_64
    .lex "RETURN", $P109
    nqp_get_sc_object $P5007, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 179
    $P5008 = "&fail"($P5007)
    perl6_decontainerize_return_value $P5006, $P5008
    goto lexotic_65
  lexotic_64:
    .get_results ($P5006)
  lexotic_65:
    find_lex $P5007, "&EXHAUST"
    store_lex "RETURN", $P5007
    nqp_get_sc_object $P5008, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 191
    perl6_type_check_return_value $P5006, $P5008
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "fetchrow-hash" :subid("cuid_13_1372810560.93209") :anon :lex :outer("cuid_9_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 57
    .param pmc CALL_SIG :call_sig 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$_", $P103 
    .lex "$/", $P104 
    .lex "$!", $P105 
    .lex "call_sig", $P106 
    .lex "$*DISPATCHER", $P107 
    .lex "&?ROUTINE", $P108 
    perl6_take_dispatcher 
    set $P5005, CALL_SIG
    set $P106, $P5005
    bind_signature 
    root_new $P109, ['parrot';'Continuation']
    set_label $P109, lexotic_66
    .lex "RETURN", $P109
.annotate 'line', 58
    $P5011 = $P101."column_names"()
    perl6ize_type $P5010, $P5011
    $P5013 = $P101."fetchrow"()
    perl6ize_type $P5012, $P5013
    find_lex $P5007, "&infix:<=>>"
    find_lex $P5008, "&METAOP_REDUCE_RIGHT"
    $P5009 = "&METAOP_ZIP"($P5007, $P5008)
    $P5014 = $P5009($P5010, $P5012)
    $P5015 = "&hash"($P5014)
    perl6_decontainerize_return_value $P5006, $P5015
    goto lexotic_67
  lexotic_66:
    .get_results ($P5006)
  lexotic_67:
    find_lex $P5007, "&EXHAUST"
    store_lex "RETURN", $P5007
    nqp_get_sc_object $P5008, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 198
    perl6_type_check_return_value $P5006, $P5008
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "fetchrow_hashref" :subid("cuid_14_1372810560.93209") :anon :lex :outer("cuid_9_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 61
    .param pmc CALL_SIG :call_sig 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$_", $P103 
    .lex "$/", $P104 
    .lex "$!", $P105 
    .lex "call_sig", $P106 
    .lex "$*DISPATCHER", $P107 
    .lex "&?ROUTINE", $P108 
    perl6_take_dispatcher 
    set $P5005, CALL_SIG
    set $P106, $P5005
    bind_signature 
    $P5007 = $P101."fetchrow-hash"()
    $P5008 = $P5007."item"()
    perl6_decontainerize_return_value $P5006, $P5008
    nqp_get_sc_object $P5007, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 204
    perl6_type_check_return_value $P5006, $P5007
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "fetchall-hash" :subid("cuid_15_1372810560.93209") :anon :lex :outer("cuid_9_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 63
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5011 = 'cuid_16_1372810560.93209' 
    capture_lex $P5011 
    .const 'Sub' $P5011 = 'cuid_18_1372810560.93209' 
    capture_lex $P5011 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$_", $P103 
    .lex "$/", $P104 
    .lex "$!", $P105 
    .lex "@names", $P106 
    .lex "%res", $P107 
    .lex "call_sig", $P108 
    .lex "$*DISPATCHER", $P109 
    .lex "&?ROUTINE", $P110 
    perl6_take_dispatcher 
    .const 'Sub' $P5005 = 'cuid_16_1372810560.93209' 
    capture_lex $P5005
    .const 'Sub' $P5006 = 'cuid_18_1372810560.93209' 
    capture_lex $P5006
    set $P5007, CALL_SIG
    set $P108, $P5007
    bind_signature 
    root_new $P111, ['parrot';'Continuation']
    set_label $P111, lexotic_68
    .lex "RETURN", $P111
.annotate 'line', 64
    $P5011 = $P101."column_names"()
    perl6ize_type $P5010, $P5011
    perl6_decontainerize $P5009, $P5010
    nqp_get_sc_object $P5012, "5C7C172868FA9510BA84BFF074E73D635E54D9D3", 11
    perl6_assert_bind_ok $P5009, $P5012
    set $P106, $P5009
.annotate 'line', 65

    nqp_get_sc_object $P5014, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 215
    $P5015 = $P5014."clone"()
    perl6_capture_lex $P5015
    find_lex $P5016, "Whatever"
    $P5017 = $P5016."new"()
    perl6_booleanize $P5018, 1
    find_lex $P5013, "&infix:<xx>"
    perl6_multi_dispatch_thunk $P5012, $P5013
    $P5019 = $P5012($P5015, $P5017, $P5018 :named("thunked"))
    find_lex $P5009, "&infix:<=>>"
    find_lex $P5010, "&METAOP_REDUCE_RIGHT"
    $P5011 = "&METAOP_ZIP"($P5009, $P5010)
    $P5020 = $P5011($P106, $P5019)
    $P107."STORE"($P5020)
.annotate 'line', 66
    $P5010 = $P101."fetchall-array"()
    perl6ize_type $P5009, $P5010
    $P5011 = "&infix:<,>"($P5009)
    nqp_get_sc_object $P5012, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 216
    $P5013 = $P5012."clone"()
    perl6_capture_lex $P5013
    $P5014 = $P5011."map"($P5013)
    "&eager"($P5014)
.annotate 'line', 71
    $P5009 = "&return"($P107)
    perl6_decontainerize_return_value $P5008, $P5009
    goto lexotic_69
  lexotic_68:
    .get_results ($P5008)
  lexotic_69:
    find_lex $P5009, "&EXHAUST"
    store_lex "RETURN", $P5009
    nqp_get_sc_object $P5010, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 210
    perl6_type_check_return_value $P5008, $P5010
    .return ($P5008) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_16_1372810560.93209") :anon :lex :outer("cuid_15_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 65

    $P5001 = "&infix:<,>"()
    $P5002 = "&circumfix:<[ ]>"($P5001)
    .return ($P5002) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_18_1372810560.93209") :anon :lex :outer("cuid_15_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 66
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5004 = 'cuid_17_1372810560.93209' 
    capture_lex $P5004 
    .lex "@a", $P101 
    .lex "call_sig", $P102 
    .lex "$*DISPATCHER", $P103 
    perl6_take_dispatcher 
    .const 'Sub' $P5001 = 'cuid_17_1372810560.93209' 
    capture_lex $P5001
    set $P5002, CALL_SIG
    set $P102, $P5002
    bind_signature 
.annotate 'line', 67
    find_lex $P5004, "@names"
    $P5005 = "&infix:<Z>"($P101, $P5004)
    $P5006 = "&infix:<,>"($P5005)
    nqp_get_sc_object $P5007, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 218
    $P5008 = $P5007."clone"()
    perl6_capture_lex $P5008
    $P5009 = $P5006."map"($P5008)
    $P5010 = "&eager"($P5009)
    .return ($P5010) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_17_1372810560.93209") :anon :lex :outer("cuid_18_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 67
    .param pmc CALL_SIG :call_sig 
    .lex "$v", $P101 
    .lex "$n", $P102 
    .lex "call_sig", $P103 
    .lex "$*DISPATCHER", $P104 
    perl6_take_dispatcher 
    set $P5001, CALL_SIG
    set $P103, $P5001
    bind_signature 
.annotate 'line', 68
    find_lex $P5005, "%res"
    $P5006 = $P5005."postcircumfix:<{ }>"($P102)
    perl6ize_type $P5004, $P5006
    $P5007 = $P5004."push"($P101)
    perl6ize_type $P5003, $P5007
    .return ($P5003) 
.end
.HLL "perl6"
.namespace []
.sub "fetchall-AoH" :subid("cuid_21_1372810560.93209") :anon :lex :outer("cuid_9_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 74
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5010 = 'cuid_20_1372810560.93209' 
    capture_lex $P5010 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$_", $P103 
    .lex "$/", $P104 
    .lex "$!", $P105 
    .lex "call_sig", $P106 
    .lex "$*DISPATCHER", $P107 
    .lex "&?ROUTINE", $P108 
    perl6_take_dispatcher 
    .const 'Sub' $P5005 = 'cuid_20_1372810560.93209' 
    capture_lex $P5005
    set $P5006, CALL_SIG
    set $P106, $P5006
    bind_signature 
    root_new $P109, ['parrot';'Continuation']
    set_label $P109, lexotic_75
    .lex "RETURN", $P109
    nqp_get_sc_object $P5008, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 236
    $P5009 = $P5008."clone"()
    perl6_capture_lex $P5009
    $P5010 = "&GATHER"($P5009)
    perl6_decontainerize_return_value $P5007, $P5010
    goto lexotic_76
  lexotic_75:
    .get_results ($P5007)
  lexotic_76:
    find_lex $P5008, "&EXHAUST"
    store_lex "RETURN", $P5008
    nqp_get_sc_object $P5009, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 230
    perl6_type_check_return_value $P5007, $P5009
    .return ($P5007) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_20_1372810560.93209") :anon :lex :outer("cuid_21_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 75
    .const 'Sub' $P5008 = 'cuid_19_1372810560.93209' 
    capture_lex $P5008 
    new $P5007, 'ExceptionHandler', [.CONTROL_LOOP_NEXT;.CONTROL_LOOP_REDO;.CONTROL_LOOP_LAST]
    set_label $P5007, while19_handlers73
    push_eh $P5007
  while19_test70:
    find_lex $P5002, "self"
    $P5003 = $P5002."fetchrow-hash"()
    perl6ize_type $P5001, $P5003
    set $P5006, $P5001
    unless $P5001 goto while19_done74 
  while19_redo72:
    .const 'Sub' $P5004 = 'cuid_19_1372810560.93209' 
    capture_lex $P5004
    $P5005 = $P5004($P5001)
    set $P5006, $P5005
    goto while19_test70 
  while19_handlers73:
    .get_results ($P5007)
    pop_upto_eh $P5007
    getattribute $P5007, $P5007, 'type'
    eq $P5007, .CONTROL_LOOP_NEXT, while19_test70
    eq $P5007, .CONTROL_LOOP_REDO, while19_redo72
  while19_done74:
    pop_eh 
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_19_1372810560.93209") :anon :lex :outer("cuid_20_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 75
    .param pmc CALL_SIG :call_sig 
    .lex "%h", $P101 
    .lex "$_", $P102 
    .lex "call_sig", $P103 
    .lex "$*DISPATCHER", $P104 
    perl6_take_dispatcher 
    set $P5002, CALL_SIG
    set $P103, $P5002
    bind_signature 
.annotate 'line', 76
    $P5005 = $P101."item"()
    perl6ize_type $P5004, $P5005
    $P5006 = "&take"($P5004)
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "fetchall-array" :subid("cuid_24_1372810560.93209") :anon :lex :outer("cuid_9_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 80
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5010 = 'cuid_23_1372810560.93209' 
    capture_lex $P5010 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$_", $P103 
    .lex "$/", $P104 
    .lex "$!", $P105 
    .lex "call_sig", $P106 
    .lex "$*DISPATCHER", $P107 
    .lex "&?ROUTINE", $P108 
    perl6_take_dispatcher 
    .const 'Sub' $P5005 = 'cuid_23_1372810560.93209' 
    capture_lex $P5005
    set $P5006, CALL_SIG
    set $P106, $P5006
    bind_signature 
    root_new $P109, ['parrot';'Continuation']
    set_label $P109, lexotic_82
    .lex "RETURN", $P109
    nqp_get_sc_object $P5008, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 248
    $P5009 = $P5008."clone"()
    perl6_capture_lex $P5009
    $P5010 = "&GATHER"($P5009)
    perl6_decontainerize_return_value $P5007, $P5010
    goto lexotic_83
  lexotic_82:
    .get_results ($P5007)
  lexotic_83:
    find_lex $P5008, "&EXHAUST"
    store_lex "RETURN", $P5008
    nqp_get_sc_object $P5009, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 242
    perl6_type_check_return_value $P5007, $P5009
    .return ($P5007) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_23_1372810560.93209") :anon :lex :outer("cuid_24_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 81
    .const 'Sub' $P5008 = 'cuid_22_1372810560.93209' 
    capture_lex $P5008 
    new $P5007, 'ExceptionHandler', [.CONTROL_LOOP_NEXT;.CONTROL_LOOP_REDO;.CONTROL_LOOP_LAST]
    set_label $P5007, while20_handlers80
    push_eh $P5007
  while20_test77:
    find_lex $P5002, "self"
    $P5003 = $P5002."fetchrow"()
    perl6ize_type $P5001, $P5003
    set $P5006, $P5001
    unless $P5001 goto while20_done81 
  while20_redo79:
    .const 'Sub' $P5004 = 'cuid_22_1372810560.93209' 
    capture_lex $P5004
    $P5005 = $P5004($P5001)
    set $P5006, $P5005
    goto while20_test77 
  while20_handlers80:
    .get_results ($P5007)
    pop_upto_eh $P5007
    getattribute $P5007, $P5007, 'type'
    eq $P5007, .CONTROL_LOOP_NEXT, while20_test77
    eq $P5007, .CONTROL_LOOP_REDO, while20_redo79
  while20_done81:
    pop_eh 
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_22_1372810560.93209") :anon :lex :outer("cuid_23_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 81
    .param pmc CALL_SIG :call_sig 
    .lex "@row", $P101 
    .lex "$_", $P102 
    .lex "call_sig", $P103 
    .lex "$*DISPATCHER", $P104 
    perl6_take_dispatcher 
    set $P5002, CALL_SIG
    set $P103, $P5002
    bind_signature 
.annotate 'line', 82
    $P5005 = $P101."item"()
    perl6ize_type $P5004, $P5005
    $P5006 = "&take"($P5004)
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "fetchrow_array" :subid("cuid_25_1372810560.93209") :anon :lex :outer("cuid_9_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 85
    .param pmc CALL_SIG :call_sig 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$_", $P103 
    .lex "$/", $P104 
    .lex "$!", $P105 
    .lex "call_sig", $P106 
    .lex "$*DISPATCHER", $P107 
    .lex "&?ROUTINE", $P108 
    perl6_take_dispatcher 
    set $P5005, CALL_SIG
    set $P106, $P5005
    bind_signature 
    $P5008 = $P101."fetchrow"()
    perl6ize_type $P5007, $P5008
    perl6_decontainerize_return_value $P5006, $P5007
    nqp_get_sc_object $P5007, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 254
    perl6_type_check_return_value $P5006, $P5007
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "fetchrow_arrayref" :subid("cuid_26_1372810560.93209") :anon :lex :outer("cuid_9_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 86
    .param pmc CALL_SIG :call_sig 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$_", $P103 
    .lex "$/", $P104 
    .lex "$!", $P105 
    .lex "call_sig", $P106 
    .lex "$*DISPATCHER", $P107 
    .lex "&?ROUTINE", $P108 
    perl6_take_dispatcher 
    set $P5005, CALL_SIG
    set $P106, $P5005
    bind_signature 
    $P5007 = $P101."fetchrow"()
    $P5008 = $P5007."item"()
    perl6_decontainerize_return_value $P5006, $P5008
    nqp_get_sc_object $P5007, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 260
    perl6_type_check_return_value $P5006, $P5007
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "fetch" :subid("cuid_27_1372810560.93209") :anon :lex :outer("cuid_9_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 89
    .param pmc CALL_SIG :call_sig 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$_", $P103 
    .lex "$/", $P104 
    .lex "$!", $P105 
    .lex "call_sig", $P106 
    .lex "$*DISPATCHER", $P107 
    .lex "&?ROUTINE", $P108 
    perl6_take_dispatcher 
    set $P5005, CALL_SIG
    set $P106, $P5005
    bind_signature 
    $P5007 = $P101."fetchrow"()
    $P5008 = $P5007."item"()
    perl6_decontainerize_return_value $P5006, $P5008
    nqp_get_sc_object $P5007, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 266
    perl6_type_check_return_value $P5006, $P5007
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "fetchall_arrayref" :subid("cuid_28_1372810560.93209") :anon :lex :outer("cuid_9_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 92
    .param pmc CALL_SIG :call_sig 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$_", $P103 
    .lex "$/", $P104 
    .lex "$!", $P105 
    .lex "call_sig", $P106 
    .lex "$*DISPATCHER", $P107 
    .lex "&?ROUTINE", $P108 
    perl6_take_dispatcher 
    set $P5005, CALL_SIG
    set $P106, $P5005
    bind_signature 
    root_new $P109, ['parrot';'Continuation']
    set_label $P109, lexotic_84
    .lex "RETURN", $P109
    $P5009 = $P101."fetchall-array"()
    perl6ize_type $P5008, $P5009
    $P5010 = $P5008."eager"()
    perl6ize_type $P5007, $P5010
    $P5011 = "&circumfix:<[ ]>"($P5007)
    perl6_decontainerize_return_value $P5006, $P5011
    goto lexotic_85
  lexotic_84:
    .get_results ($P5006)
  lexotic_85:
    find_lex $P5007, "&EXHAUST"
    store_lex "RETURN", $P5007
    nqp_get_sc_object $P5008, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 272
    perl6_type_check_return_value $P5006, $P5008
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_29_1372810560.93209") :anon :lex :outer("cuid_9_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
    .lex "$_", $P101 
    .return ($P101) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_31_1372810560.93209") :anon :lex :outer("cuid_1_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 102
    .param pmc CALL_SIG :call_sig 
    .const 'Sub' $P5018 = 'cuid_32_1372810560.93209' 
    capture_lex $P5018 
    .const 'Sub' $P5018 = 'cuid_33_1372810560.93209' 
    capture_lex $P5018 
    .const 'Sub' $P5018 = 'cuid_34_1372810560.93209' 
    capture_lex $P5018 
    .const 'Sub' $P5018 = 'cuid_35_1372810560.93209' 
    capture_lex $P5018 
    .lex "$?PACKAGE", $P101 
    .lex "::?PACKAGE", $P102 
    .lex "$?ROLE", $P103 
    .lex "::?ROLE", $P104 
    .lex "$?CLASS", $P105 
    .lex "::?CLASS", $P106 
    .lex "$_", $P107 
    .lex "call_sig", $P108 
    .const 'Sub' $P5002 = 'cuid_32_1372810560.93209' 
    capture_lex $P5002
    .const 'Sub' $P5003 = 'cuid_33_1372810560.93209' 
    capture_lex $P5003
    .const 'Sub' $P5004 = 'cuid_34_1372810560.93209' 
    capture_lex $P5004
    set $P5005, CALL_SIG
    set $P108, $P5005
    bind_signature 
    .const 'Sub' $P5006 = 'cuid_35_1372810560.93209' 
    capture_lex $P5006
    null $P5007
    null $P5008
    null $P5009
    nqp_get_sc_object $P5010, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 386
    nqp_get_sc_object $P5011, "1B774EC04D50F35E99199D1B74077FC90B5E8768-1372810138.56917", 70
    repr_get_attr_obj $P5012, $P5010, $P5011, "$!list"
    nqp_get_sc_object $P5013, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 385
    $P5014 = $P5013."clone"()
    push $P5012, $P5014
    new $P5015, 'ResizablePMCArray'
    nqp_get_sc_object $P5016, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 297
    push $P5015, $P5016
    getinterp $P5017
    set $P5017, $P5017['lexpad']
    push $P5015, $P5017
    .return ($P5015) 
.end
.HLL "perl6"
.namespace []
.sub "do" :subid("cuid_32_1372810560.93209") :anon :lex :outer("cuid_31_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 110
    .param pmc CALL_SIG :call_sig 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$statement", $P103 
    .lex "@params", $P104 
    .lex "$_", $P105 
    .lex "$/", $P106 
    .lex "$!", $P107 
    .lex "$sth", $P108 
    .lex "call_sig", $P109 
    .lex "$*DISPATCHER", $P110 
    .lex "&?ROUTINE", $P111 
    perl6_take_dispatcher 
    set $P5005, CALL_SIG
    set $P109, $P5005
    bind_signature 
    root_new $P112, ['parrot';'Continuation']
    set_label $P112, lexotic_86
    .lex "RETURN", $P112
.annotate 'line', 111

    $P5008 = $P101."prepare"($P103)
    perl6ize_type $P5007, $P5008
    perl6_container_store $P108, $P5007
    if $P108 goto unless21_end89 
    $P5009 = "&fail"()
    $P5010 = "&return"($P5009)
  unless21_end89:
.annotate 'line', 112
    $P5008 = $P108."execute"($P104)
    perl6ize_type $P5007, $P5008
    perl6_decontainerize_return_value $P5006, $P5007
    goto lexotic_87
  lexotic_86:
    .get_results ($P5006)
  lexotic_87:
    find_lex $P5007, "&EXHAUST"
    store_lex "RETURN", $P5007
    nqp_get_sc_object $P5008, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 319
    perl6_type_check_return_value $P5006, $P5008
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "quote-identifier" :subid("cuid_33_1372810560.93209") :anon :lex :outer("cuid_31_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 122
    .param pmc CALL_SIG :call_sig 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$name", $P103 
    .lex "$_", $P104 
    .lex "$/", $P105 
    .lex "$!", $P106 
    .lex "call_sig", $P107 
    .lex "$*DISPATCHER", $P108 
    .lex "&?ROUTINE", $P109 
    perl6_take_dispatcher 
    set $P5005, CALL_SIG
    set $P107, $P5005
    bind_signature 
    root_new $P110, ['parrot';'Continuation']
    set_label $P110, lexotic_90
    .lex "RETURN", $P110
    nqp_get_sc_object $P5011, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 344
.annotate 'line', 124

    $P5012 = $P103."Stringy"()
    find_lex $P5010, "&infix:<~>"
    perl6_multi_dispatch_thunk $P5009, $P5010
    $P5013 = $P5009($P5011, $P5012)
    nqp_get_sc_object $P5014, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 344
    find_lex $P5008, "&infix:<~>"
    perl6_multi_dispatch_thunk $P5007, $P5008
    $P5015 = $P5007($P5013, $P5014)
    perl6_decontainerize_return_value $P5006, $P5015
    goto lexotic_91
  lexotic_90:
    .get_results ($P5006)
  lexotic_91:
    find_lex $P5007, "&EXHAUST"
    store_lex "RETURN", $P5007
    nqp_get_sc_object $P5008, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 341
    perl6_type_check_return_value $P5006, $P5008
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "disconnect" :subid("cuid_34_1372810560.93209") :anon :lex :outer("cuid_31_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
.annotate 'line', 132
    .param pmc CALL_SIG :call_sig 
    .lex "self", $P101 
    .lex "%_", $P102 
    .lex "$_", $P103 
    .lex "$/", $P104 
    .lex "$!", $P105 
    .lex "call_sig", $P106 
    .lex "$*DISPATCHER", $P107 
    .lex "&?ROUTINE", $P108 
    perl6_take_dispatcher 
    set $P5005, CALL_SIG
    set $P106, $P5005
    bind_signature 
    root_new $P109, ['parrot';'Continuation']
    set_label $P109, lexotic_92
    .lex "RETURN", $P109
.annotate 'line', 133
    nqp_get_sc_object $P5007, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 179
    $P5008 = "&fail"($P5007)
    perl6_decontainerize_return_value $P5006, $P5008
    goto lexotic_93
  lexotic_92:
    .get_results ($P5006)
  lexotic_93:
    find_lex $P5007, "&EXHAUST"
    store_lex "RETURN", $P5007
    nqp_get_sc_object $P5008, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 363
    perl6_type_check_return_value $P5006, $P5008
    .return ($P5006) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_35_1372810560.93209") :anon :lex :outer("cuid_31_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
    .lex "$_", $P101 
    .return ($P101) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_39_1372810560.93209") :load :init
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
    .const 'Sub' $P5001 = 'cuid_38_1372810560.93209' 
    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_37_1372810560.93209" 
    get_hll_global $P5002, "ModuleLoader"
    $P5003 = $P5002."load_setting"("CORE")
    $P5001."set_outer_ctx"($P5003)
    nqp_create_sc $P5001, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF"
    set cur_sc, $P5001
    cur_sc."set_description"("/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6")
    new $P5002, 'ResizablePMCArray'
    set conflicts, $P5002
    new $P5003, 'ResizableStringArray'
    null $S5001
    push $P5003, $S5001
    push $P5003, "Uninstantiable"
    push $P5003, "25B76D5348C2A22A9722D68A7288B5D268CF8F4E-1372810229.31343"
    push $P5003, "src/gen/Metamodel.pm"
    push $P5003, "GLOBALish"
    push $P5003, "EXPORT"
    push $P5003, "$?PACKAGE"
    push $P5003, "::?PACKAGE"
    push $P5003, "DBDish"
    push $P5003, "$=pod"
    push $P5003, "!UNIT_MARKER"
    push $P5003, "5C7C172868FA9510BA84BFF074E73D635E54D9D3"
    push $P5003, "src/gen/CORE.setting"
    push $P5003, "DESCRIPTION"
    push $P5003, "The DBDish module contains generic code that should be re-used by every"
    push $P5003, "database driver, and documentation guidelines for DBD implementation."
    push $P5003, "DESCRIPTION The DBDish module contains generic code that should be re-used by every"
    push $P5003, "DESCRIPTION The DBDish module contains generic code that should be re-used by every database driver, and documentation guidelines for DBD implementation."
    push $P5003, "27420382D80CEF05775E7415279171A93892A1F1-1372810242.10453"
    push $P5003, "src/gen/BOOTSTRAP.pm"
    push $P5003, "1"
    push $P5003, "It is also an experiment in distributing Pod fragments in and around the"
    push $P5003, "code. Without syntax highlighting, it is very awkward to work with. It"
    push $P5003, "shows that this style of file layout is unsuitable for general use."
    push $P5003, "It is also an experiment in distributing Pod fragments in and around the code. Without syntax highlighting, it is very awkward to work with. It"
    push $P5003, "It is also an experiment in distributing Pod fragments in and around the code. Without syntax highlighting, it is very awkward to work with. It shows that this style of file layout is unsuitable for general use."
    push $P5003, "ROLES"
    push $P5003, "role DBDish::ErrorHandling"
    push $P5003, "2"
    push $P5003, "A role that handles the errors from connection handles and statement handles"
    push $P5003, "Attributes"
    push $P5003, "3"
    push $P5003, "PrintError is rw"
    push $P5003, "C"
    push $P5003, ""
    push $P5003, "Errors are printed to the standard error handle if this is True"
    push $P5003, " Errors are printed to the standard error handle if this is True"
    push $P5003, "4"
    push $P5003, "RaisErrors is rw = True"
    push $P5003, "Errors raise exceptions if this is True"
    push $P5003, " Errors raise exceptions if this is True"
    push $P5003, "Methods"
    push $P5003, "errstr"
    push $P5003, "Returns the string representation of the last error"
    push $P5003, "errstr Returns the string representation of the last error"
    push $P5003, "!set_errstr"
    push $P5003, "Private method that sets the error string, and prints and/or raises an"
    push $P5003, "$.PrintError"
    push $P5003, "$.RaiseError"
    push $P5003, "exception, depending on the "
    push $P5003, " and "
    push $P5003, " flags."
    push $P5003, "!set_errstr Private method that sets the error string, and prints and/or raises an"
    push $P5003, "!set_errstr Private method that sets the error string, and prints and/or raises an exception, depending on the "
    push $P5003, "!reset_errstr"
    push $P5003, "Resets the error string to the empty string."
    push $P5003, "!reset_errstr Resets the error string to the empty string."
    push $P5003, "pod"
    push $P5003, "$?ROLE"
    push $P5003, "::?ROLE"
    push $P5003, "$?CLASS"
    push $P5003, "::?CLASS"
    push $P5003, "$!PrintError"
    push $P5003, "$_"
    push $P5003, "$!RaiseError"
    push $P5003, "$!errstr"
    push $P5003, "$err"
    push $P5003, "%_"
    push $P5003, "$*DISPATCHER"
    push $P5003, "&?ROUTINE"
    push $P5003, "1B774EC04D50F35E99199D1B74077FC90B5E8768-1372810138.56917"
    push $P5003, "src/Perl6/World.pm"
    push $P5003, "role DBDish::StatementHandle"
    push $P5003, "prepare"
    push $P5003, "The Connection "
    push $P5003, " method returns a StatementHandle object that"
    push $P5003, "execute"
    push $P5003, "finish"
    push $P5003, "DBDish::ErrorHandling"
    push $P5003, "mainly provides the "
    push $P5003, " methods. It also has all the methods from "
    push $P5003, "."
    push $P5003, "role DBDish::StatementHandle The Connection "
    push $P5003, " method returns a StatementHandle object that mainly provides the "
    push $P5003, "Stub code executed"
    push $P5003, "@names"
    push $P5003, "%res"
    push $P5003, "@a"
    push $P5003, "$v"
    push $P5003, "$n"
    push $P5003, "%h"
    push $P5003, "@row"
    push $P5003, "role DBDish::Connection"
    push $P5003, "Does the "
    push $P5003, " role."
    push $P5003, "instance variables"
    push $P5003, "methods"
    push $P5003, "do"
    push $P5003, "5"
    push $P5003, "$statement"
    push $P5003, "@params"
    push $P5003, "$sth"
    push $P5003, "quote-identifier"
    push $P5003, "Returns the string parameter as a quoted identifier"
    push $P5003, "D"
    push $P5003, "$name"
    push $P5003, "\""
    push $P5003, "disconnect"
    push $P5003, "The "
    push $P5003, " method "
    push $P5003, "disconnect The "
    push $P5003, "SEE ALSO"
    push $P5003, "DBI::DBD"
    push $P5003, "L"
    push $P5003, "The Perl 5 "
    push $P5003, "SEE ALSO The Perl 5 "
    push $P5003, "P6opaque"
    push $P5003, "ACCEPTS"
    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, "is_generic"
    push $P5003, "instantiate_generic"
    push $P5003, "name"
    push $P5003, "set_name"
    push $P5003, "id"
    push $P5003, "arity"
    push $P5003, "count"
    push $P5003, "signature"
    push $P5003, "outer"
    push $P5003, "static_id"
    push $P5003, "of"
    push $P5003, "returns"
    push $P5003, "add_phaser"
    push $P5003, "fire_phasers"
    push $P5003, "phasers"
    push $P5003, "is_dispatcher"
    push $P5003, "add_dispatchee"
    push $P5003, "derive_dispatcher"
    push $P5003, "dispatcher"
    push $P5003, "dispatchees"
    push $P5003, "set_rw"
    push $P5003, "set_inline_info"
    push $P5003, "inline_info"
    push $P5003, "set_onlystar"
    push $P5003, "rw"
    push $P5003, "onlystar"
    push $P5003, "assuming"
    push $P5003, "candidates"
    push $P5003, "cando"
    push $P5003, "multi"
    push $P5003, "soft"
    push $P5003, "wrap"
    push $P5003, "unwrap"
    push $P5003, "yada"
    push $P5003, "package"
    push $P5003, "is_hidden_from_backtrace"
    push $P5003, "28FAC381EB59BA79DA1D75F70404C20E0548F4F5-1372810034.5696"
    push $P5003, "src/stage2/NQPCORE.setting"
    push $P5003, "$!do"
    push $P5003, "$!signature"
    push $P5003, "$!state_vars"
    push $P5003, "$!phasers"
    push $P5003, "$!dispatchees"
    push $P5003, "$!dispatcher_cache"
    push $P5003, "$!dispatcher"
    push $P5003, "$!md_thunk"
    push $P5003, "$!rw"
    push $P5003, "$!inline_info"
    push $P5003, "$!yada"
    push $P5003, "$!package"
    push $P5003, "$!onlystar"
    push $P5003, "GLOBAL"
    push $P5003, "ErrorHandling"
    push $P5003, "StatementHandle"
    push $P5003, "Connection"
    push $P5003, "set_errstr"
    push $P5003, "reset_errstr"
    push $P5003, "DBDish::StatementHandle"
    push $P5003, "fetchrow"
    push $P5003, "fetchrow-hash"
    push $P5003, "fetchrow_hashref"
    push $P5003, "fetchall-hash"
    push $P5003, "fetchall-AoH"
    push $P5003, "fetchall-array"
    push $P5003, "fetchrow_array"
    push $P5003, "fetchrow_arrayref"
    push $P5003, "fetch"
    push $P5003, "fetchall_arrayref"
    push $P5003, "DBDish::Connection"
    push $P5003, "Method+{<anon>}"
    push $P5003, "call_sig"
    push $P5003, "$r"
    push $P5003, "$hidden_from_backtrace"
    push $P5003, "$/"
    push $P5003, "$!"
    push $P5003, "RETURN"
    push $P5003, "<anon>"
    .const 'Sub' $P5004 = 'cuid_38_1372810560.93209' 
    capture_lex $P5004
    $P5005 = $P5004()
    nqp_deserialize_sc "[encoded data, 67008 characters]", cur_sc, $P5003, $P5005, conflicts
    unless conflicts goto if22_end95 
    get_hll_global $P5006, "ModuleLoader"
    $P5007 = $P5006."resolve_repossession_conflicts"(conflicts)
  if22_end95:
    .const "LexInfo" $P5001 = "cuid_1_1372810560.93209"
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 2
    $P5001."set_static_lexpad"($P5002)
    .const "LexInfo" $P5001 = "cuid_2_1372810560.93209"
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 107
    $P5001."set_static_lexpad"($P5002)
    .const "LexInfo" $P5001 = "cuid_3_1372810560.93209"
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 116
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_3_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 115
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_4_1372810560.93209"
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 123
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_4_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 122
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_5_1372810560.93209"
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 133
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_5_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 126
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_6_1372810560.93209"
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 140
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_6_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 135
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_7_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 170
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_2_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 172
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_9_1372810560.93209"
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 175
    $P5001."set_static_lexpad"($P5002)
    .const "LexInfo" $P5001 = "cuid_10_1372810560.93209"
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 184
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_10_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 178
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_11_1372810560.93209"
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 190
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_11_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 185
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_12_1372810560.93209"
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 197
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_12_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 191
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_13_1372810560.93209"
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 203
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_13_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 198
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_14_1372810560.93209"
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 209
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_14_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 204
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_15_1372810560.93209"
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 212
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_16_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 215
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_17_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 218
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_18_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 216
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_15_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 210
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_19_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 231
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_20_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 236
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_21_1372810560.93209"
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 241
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_21_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 230
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_22_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 243
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_23_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 248
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_24_1372810560.93209"
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 253
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_24_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 242
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_25_1372810560.93209"
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 259
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_25_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 254
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_26_1372810560.93209"
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 265
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_26_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 260
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_27_1372810560.93209"
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 271
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_27_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 266
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_28_1372810560.93209"
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 277
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_28_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 272
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_29_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 293
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_9_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 295
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_31_1372810560.93209"
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 298
    $P5001."set_static_lexpad"($P5002)
    .const "LexInfo" $P5001 = "cuid_32_1372810560.93209"
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 323
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_32_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 319
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_33_1372810560.93209"
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 362
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_33_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 341
    perl6_associate_sub_code_object $P5001, $P5002
    .const "LexInfo" $P5001 = "cuid_34_1372810560.93209"
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 368
    $P5001."set_static_lexpad"($P5002)
    .const 'Sub' $P5001 = "cuid_34_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 363
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_35_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 385
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_31_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 387
    perl6_associate_sub_code_object $P5001, $P5002
    .const 'Sub' $P5001 = "cuid_1_1372810560.93209" 
    nqp_get_sc_object $P5002, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 3
    perl6_associate_sub_code_object $P5001, $P5002
    nqp_get_sc_object $P5001, "0C6AE5E622FCCDC6836374F424390B2BE3C545DF", 0
    set_hll_global "GLOBAL", $P5001
    .return () 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_38_1372810560.93209") :anon :lex :outer("cuid_39_1372810560.93209")
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
    new $P5001, 'ResizablePMCArray'
    .const 'Sub' $P5002 = "cuid_3_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_4_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_5_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_6_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_7_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_2_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_10_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_11_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_12_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_13_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_14_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_16_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_17_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_18_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_15_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_19_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_20_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_21_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_22_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_23_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_24_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_25_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_26_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_27_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_28_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_29_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_9_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_32_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_33_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_34_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_35_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_31_1372810560.93209" 
    push $P5001, $P5002
    .const 'Sub' $P5002 = "cuid_1_1372810560.93209" 
    push $P5001, $P5002
    .return ($P5001) 
.end
.HLL "perl6"
.namespace []
.sub "" :subid("cuid_40_1372810560.93209") :load
.annotate 'file', "/usr/local/lib/parrot/4.6.0/languages/perl6/lib/DBDish.pm6"
    .const 'Sub' $P5001 = "cuid_37_1372810560.93209" 
    $P5002 = $P5001()
    .return ($P5002) 
.end