Devel::Hints 0.11

Devel::Hints is a Perl module created to access compile-time hints at runtime. SYNOPSIS use Devel::Hints :all; LABEL: print cop_label(); # LABEL 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__ use warnings; print cop_warnings(); # same as compile-time ${^WARNING_BITS} # cop_io() is only available to Perl 5.7 or above use open IO => :utf8; print cop_io(); # same as compile-time ${^OPEN} { use IO => :raw; print cop_io(1); # access one uplevel; still ":utf8 :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 blocks behaviour..

Requirements:	No special requirements
Platforms:	Linux
Keyword:	Access,  Compile-time,  Cop,  Develhints,  Io,  Libraries,  Module,  Perl Module,  Print,  Programming,  Same As
Users rating:	0/10