Find file
Fetching contributors…
Cannot retrieve contributors at this time
109 lines (81 sloc) 3.49 KB
Devel::Hints - Access compile-time hints at runtime
This document describes version 0.21 of Devel::Hints, released November
10, 2010.
use Devel::Hints ':all';
print cop_label(); # 'LABEL'
# cop_label is only settable on Perl 5.8 or below
cop_label(0 => 'FOO'); # "goto FOO;" is valid after this point!
print cop_file(); # same as __FILE__
print cop_filegv(); # same as \$::{'_<' . __FILE__}
print cop_stashpv(); # same as __PACKAGE__
print cop_stash(); # same as \%{__PACKAGE__ . '::'}
print cop_seq(); # an integer
print cop_arybase(); # same as $[
print cop_line(); # same as __LINE__
# cop_warnings() is only available to Perl 5.8 or below
use warnings;
print cop_warnings(); # same as compile-time ${^WARNING_BITS}
# cop_io() is only available to Perl 5.7 and Perl 5.8
use open IO => ':utf8';
print cop_io(); # same as compile-time ${^OPEN}
use IO => ':raw';
print cop_io(1); # access one uplevel; still ":utf8\0:utf8"
This module exports the "cop" (code operator) struct as individual
functions; callers can call them to find out the lexical-scoped hints
that its block (or statement) is compiled under.
No functions are exported by default. Each function may take an optional
positive integer as argument, indicating how many blocks it should walk
upward to obtain the "cop" members.
Functions can also take another optional argument, which (if specified)
*becomes the new value* for the hint, affecting the current statement or
block's behaviour.
On perl 5.10 or greater, the first argument to these functions can also
be a coderef. In that case, they return the value for the first
statement in the coderef's body, and if an argument is passed, they set
the value for the entire coderef body. "cop_line" and "cop_file" are
slightly special here - #line directives within the coderef will still
be respected, and the line will be offset by the correct amount within
the sub.
Label for the current construct.
File name for the current source file.
Glob reference to the current source filehandle.
The current package name.
Hash reference to the current symbol table.
Parse sequencial number.
Array base the calling line was compiled with.
The line number.
Lexical warnings bitmask, a.k.a. "${^WARNING_BITS}". If no lexical
warnings are in effect, returns the global warning flags as an
Lexical IO defaults, a.k.a. "${^OPEN}". If no lexical IO layers are
in effect, an empty string is returned. Always returns "undef" under
pre-5.7 versions of Perl.
Thanks to Rafael Garcia-Suarez for demonstrating how to do this with the
elegant Inline::C code on p5p, which I adapted to this less elegant XS
唐鳳 <>
CC0 1.0 Universal
To the extent possible under law, 唐鳳 has waived all copyright and
related or neighboring rights to Devel-Hints.
This work is published from Taiwan.