use 5.008; package fields; require 5.005; use strict; no strict 'refs'; unless( eval q{require warnings::register; warnings::register->import; 1} ) { *warnings::warnif = sub { require Carp; Carp::c...

package encoding::warnings; $encoding::warnings::VERSION = '0.14'; use strict; use 5.007; =head1 NAME encoding::warnings - Warn on implicit encoding conversions =head1 VERSION This document describ...

package parent; use strict; our $VERSION = '0.241'; sub import { my $class = shift; my $inheritor = caller(0); if ( @_ and $_[0] eq '-norequire' ) { shift @_; } else { for ( my @filename = @_ ) { s...

=over =item ${^GLOBAL_PHASE} X<${^GLOBAL_PHASE}> The current phase of the perl interpreter. Possible values are: =over 8 =item CONSTRUCT The C<PerlInterpreter*> is being constructed via C<perl_cons...

package autodie::skip; use strict; use warnings; our $VERSION = '2.36'; # VERSION # This package exists purely so people can inherit from it, # which isn't at all how roles are supposed to work, bu...

=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>...

# # $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_...