Dear monks, can anyone enlighten me as to why the exception in the example below is not caught by the bottom catch block?

cheers,


peter

#!/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?";
        };
}
[download]