package Archive::Tar::File; use strict; use Carp (); use IO::File; use File::Spec::Unix (); use File::Spec (); use File::Basename (); use Archive::Tar::Constant; use vars qw[@ISA $VERSION]; #@ISA =...

package AutoLoader; use strict; use 5.006_001; our($VERSION, $AUTOLOAD); my $is_dosish; my $is_epoc; my $is_vms; my $is_macos; BEGIN { $is_dosish = $^O eq 'dos' || $^O eq 'os2' || $^O eq 'MSWin32' ...

package autodie::hints; use strict; use warnings; use constant PERL58 => ( $] < 5.009 ); our $VERSION = '2.34'; # VERSION: Generated by DZP::OurPkg:Version # ABSTRACT: Provide hints about user subr...

package strict; $strict::VERSION = "1.12"; my ( %bitmask, %explicit_bitmask ); BEGIN { # Verify that we're called correctly so that strictures will work. # Can't use Carp, since Carp uses us! # see...

=head1 NAME CORE - Namespace for Perl's core routines =head1 SYNOPSIS BEGIN { *CORE::GLOBAL::hex = sub { 1; }; } print hex("0x50"),"\n"; # prints 1 print CORE::hex("0x50"),"\n"; # prints 80 CORE::s...

package B::Terse; our $VERSION = '1.09'; use strict; use B qw(class @specialsv_name); use B::Concise qw(concise_subref set_style_standard); use Carp; sub terse { my ($order, $subref) = @_; set_styl...

package sort; use strict; use warnings; our $VERSION = '2.05'; sub import { shift; if (@_ == 0) { require Carp; Carp::croak("sort pragma requires arguments"); } $^H{sort} //= 0; for my $subpragma (...

# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- package CPAN::Debug; use strict; use vars qw($VERSION); $VERSION = "5.5001"; # module is internal to CPAN.pm %CPAN::DEBUG = qw[ CPAN 1 In...

package bignum; use strict; use warnings; use Carp qw< carp croak >; our $VERSION = '0.65'; use Exporter; our @ISA = qw( Exporter ); our @EXPORT_OK = qw( PI e bpi bexp hex oct ); our @EXPORT = qw( ...

package ExtUtils::Liblist; use strict; use warnings; our $VERSION = '7.64'; $VERSION =~ tr/_//d; use File::Spec; require ExtUtils::Liblist::Kid; our @ISA = qw(ExtUtils::Liblist::Kid File::Spec); # ...