gistfile1.txt

.namespace ['CardinalException']

.sub 'onload' :anon :init :load
    .local pmc excproto, core_type, hll_type, interp
    excproto = newclass 'CardinalException'

    $P0 = get_class 'CardinalObject'
    addparent excproto, $P0

    $P0 = get_class ['parrot';'Exception']
    addparent excproto, $P0

    core_type = get_class 'Exception'
    hll_type = get_class 'CardinalException'

    interp = getinterp
    interp.'hll_map'(core_type, hll_type)

    $P0 = newclass 'NoMemoryError'
    addparent $P0, excproto
    
    $P0 = newclass 'ScriptError'
    addparent $P0, excproto