try {
die "Boom";
} catch {
- $name = (caller(0))[3];
+ $name = (caller(0))[3];
};
is $name, "main::catch {...} ", "catch name"; # note extra space
} catch {
# noop
} finally {
- $name = (caller(0))[3];
+ $name = (caller(0))[3];
};
is $name, "main::finally {...} ", "finally name"; # note extra space