# $Id: /mirror/trunk/languages/perl6/src/classes/Exception.pir 34128 2008-12-19T02:39:47.036651Z util  $


.namespace [ 'Exception' ]

.sub '' :anon :init :load
    .local pmc p6meta, failureproto, exceptionproto
    p6meta = get_hll_global ['Perl6Object'], '$!P6META'
    exceptionproto = p6meta.'new_class'('Perl6Exception', 'parent'=>'Any Exception', 'attr'=>'$!exception', 'name'=>'Exception')
    p6meta.'register'('Exception', 'protoobject'=>exceptionproto)
.end

=head2 Methods

=cut

.sub 'resume' :method
    .local pmc resume
    resume = self['resume']
    resume()
.end

.sub 'rethrow' :method
    rethrow self
.end


.sub 'perl' :method
    .return ('undef')
.end

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