=over =item ${^SAFE_LOCALES} X<${^SAFE_LOCALES}> Reflects if safe locale operations are available to this perl (when the value is 1) or not (the value is 0). This variable is always 1 if the perl h...

=over =item ${^POSTMATCH} X<${^POSTMATCH}> It is only guaranteed to return a defined value when the pattern was compiled or executed with the C</p> modifier. This is similar to C<$'> (C<$POSTMATCH>...

=over =item $DEBUGGING =item $^D X<$^D> X<$DEBUGGING> The current value of the debugging flags. May be read or set. Like its L<command-line equivalent|perlrun/B<-D>I<letters>>, you can use numeric ...

=over =item $COMPILING =item $^C X<$^C> X<$COMPILING> The current value of the flag associated with the B<-c> switch. Mainly of use with B<-MO=...> to allow code to alter its behavior when being co...

=over =item $WARNING =item $^W X<$^W> X<$WARNING> The current value of the warning switch, initially true if B<-w> was used, false otherwise, but directly modifiable. See also L<warnings>. Mnemonic...

# # $Id: Encoder.pm,v 2.3 2013/09/14 07:51:59 dankogai Exp $ # package Encode::Encoder; use strict; use warnings; our $VERSION = do { my @r = ( q$Revision: 2.3 $ =~ /\d+/g ); sprintf "%d." . "%02d"...

package bytes; use strict; use warnings; our $VERSION = '1.08'; $bytes::hint_bits = 0x00000008; sub import { $^H |= $bytes::hint_bits; } sub unimport { $^H &= ~$bytes::hint_bits; } our $AUTOLOAD; s...

package ExtUtils::MM_Darwin; use strict; use warnings; BEGIN { require ExtUtils::MM_Unix; our @ISA = qw( ExtUtils::MM_Unix ); } our $VERSION = '7.70'; $VERSION =~ tr/_//d; =head1 NAME ExtUtils::MM_...

# # $Id: UTF7.pm,v 2.10 2017/06/10 17:23:50 dankogai Exp $ # package Encode::Unicode::UTF7; use strict; use warnings; use parent qw(Encode::Encoding); __PACKAGE__->Define('UTF-7'); our $VERSION = d...

# # Demand-load module list # package Encode::Config; our $VERSION = do { my @r = ( q$Revision: 2.5 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r }; use strict; use warnings; our %ExtModule = ( #...