We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
2 parents 0b5917c + 602a6b4 commit 47ceab0Copy full SHA for 47ceab0
1 file changed
lib/Class/Method/Modifiers.pm
@@ -208,6 +208,7 @@ sub _sub_attrs {
208
my ($coderef) = @_;
209
local *_sub = $coderef;
210
local $@;
211
+ local $SIG{__DIE__};
212
# this assignment will fail to compile if it isn't an lvalue sub. we
213
# never want to actually call the sub though, so we return early.
214
(eval 'return 1; &_sub = 1') ? ':lvalue' : '';
0 commit comments