#!/usr/bin/perl -w use strict; use Error qw(:try); my $foo=foo->new(); try{ $foo->foo(); }catch Error with { warn "i dont want to handle the error here"; }; package foo; sub new(){ return bless {}, "foo"; } sub foo($){ my $self=shift; try{ throw Error::Simple "handle me"; warn "success"; return; }catch Error with { warn "why does this never fire?"; }; }
In reply to Error.pm not playing nicely with objects? by flipper
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |