# Copyright (C) 2006-2009, Parrot Foundation.
# $Id$

.sub 'main' :main
    .include 'test_more.pir'
    $P0 = new 'ExceptionHandler'
    set_addr $P0, _handler
    push_eh $P0
    throw $P0
_handler:
    getattribute $P5, $P0, 'foo'
.end

# Local Variables:
#   mode: pir
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir: