view release on metacpan or  search on metacpan

lib/Exception/Died.pm  view on Meta::CPAN

292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
    my $self = shift;
 
    my $class = ref $self ? ref $self : $self;
 
    my $e = $self->SUPER::catch(@_);
 
    # Rebless if called as Exception::DiedDerivedClass->catch()
    if (do { local $@; local $SIG{__DIE__}; eval { $e->isa(__PACKAGE__) } }
        and ref $e ne $class and $e->{catch_can_rebless})
    {
        bless $e => $class;
    };
 
    return $e;
};
 
 
=head1 METHODS
 
=over