5
Multi - Perl 6 multi-dispatch routine
15
.namespace [ 'Multi' ]
17
.sub 'onload' :anon :init :load
18
.local pmc p6meta, proto
19
p6meta = get_hll_global ['Perl6Object'], '$!P6META'
20
proto = p6meta.'new_class'('Multi', 'parent'=>'parrot;Perl6MultiSub Code Any')
21
p6meta.'register'('Perl6MultiSub', 'parent'=>proto, 'protoobject'=>proto)
22
p6meta.'register'('MultiSub', 'parent'=>proto, 'protoobject'=>proto)
30
$P0 = get_hll_global ['Bool'], 'True'
47
# vim: expandtab shiftwidth=4 ft=pir: