Perl 5 version 20.1
A special token that returns a reference to the current subroutine, or
undef outside of a subroutine.
The behaviour of
__SUB__ within a regex code block (such as
is subject to change.
This token is only available under
or the "current_sub"
feature. See feature.