SUB

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 use v5.16 or the "current_sub" feature. See feature.

© 1993–2016 Larry Wall and others
Licensed under the GNU General Public License version 1 or later, or the Artistic License.
The Perl logo is a trademark of the Perl Foundation.
http://perldoc.perl.org/5.20.2/functions/__SUB__.html