I altered my local copy to rethrow exceptions but I don't understand the problem domain well enough to know whether that is a valid thing to do or whether I have to be more careful.
For anyone that is interested, my alterations:
# diff -u Delegation.pm~ Delegation.pm --- Delegation.pm~ Mon Apr 22 23:20:23 2002 +++ Delegation.pm Fri Jun 13 11:22:45 2003 @@ -53,6 +53,7 @@ next DELEGATOR if exists $delegated->{ +$to[0]}; foreach my $as (@as) { push @results, delegate($deleg +ated,$wantarray,$invocant,$to[0],$as,\@args); + die $@ if $@; } } elsif (@as==1) { @@ -60,6 +61,7 @@ foreach my $to (@to) { next if exists $delegated->{$t +o}; push @results, delegate($deleg +ated,$wantarray,$invocant,$to,$as[0],\@args); + die $@ if $@; } } else { @@ -69,6 +71,7 @@ my $as = shift @as; next if exists $delegated->{$t +o}; push @results, delegate($deleg +ated,$wantarray,$invocant,$to,$as,\@args); + die $@ if $@; } } }
In reply to Re: Re: Class::Delegation is incompatible with exceptions?
by diotalevi
in thread Class::Delegation is incompatible with exceptions?
by diotalevi
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |