package SelectSaver; our $VERSION = '1.02'; =head1 NAME SelectSaver - save and restore selected file handle =head1 SYNOPSIS use SelectSaver; { my $saver = SelectSaver->new(FILEHANDLE); # FILEHANDLE...

# -*- coding: utf-8-unix -*- package Math::BigInt; # # "Mike had an infinite amount to do and a negative amount of time in which # to do it." - Before and After # # The following hash values are us...

package Math::BigInt::Calc; use 5.006001; use strict; use warnings; use Carp qw< carp croak >; use Math::BigInt::Lib; our $VERSION = '1.999837'; $VERSION =~ tr/_//d; our @ISA = ('Math::BigInt::Lib'...

########## # Pod/Checker.pm -- check pod documents for syntax errors # # Copyright (C) 1994-2000 by Bradford Appleton. All rights reserved. # This is free software; you can redistribute it and/or m...

use strict; use warnings; package Memoize::Expire; our $VERSION = '1.16'; use Carp; our $DEBUG; # The format of the metadata is: # (4-byte number of last-access-time) (For LRU when I implement it) ...

require 5; package Pod::Simple::XMLOutStream; use strict; use Carp (); use Pod::Simple (); use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS); $VERSION = '3.43'; BEGIN { @ISA = ('Pod::Simple'); *DEB...

package IPC::Open2; use strict; require 5.006; use Exporter 'import'; our $VERSION = 1.06; our @EXPORT = qw(open2); =head1 NAME IPC::Open2 - open a process for both reading and writing using open2(...

require 5; package Pod::Simple::Debug; use strict; use vars qw($VERSION ); $VERSION = '3.43'; sub import { my($value,$variable); if(@_ == 2) { $value = $_[1]; } elsif(@_ == 3) { ($variable, $value)...

require 5; package Pod::Simple::PullParserToken; # Base class for tokens gotten from Pod::Simple::PullParser's $parser->get_token @ISA = (); $VERSION = '3.43'; use strict; sub new { # Class->new('t...

=head1 NAME Internals - Reserved special namespace for internals related functions =head1 SYNOPSIS $is_ro= Internals::SvREADONLY($x) $refcnt= Internals::SvREFCNT($x) hv_clear_placeholders(%hash); =...