package Digest::file; use strict; use warnings; use Exporter (); use Carp qw(croak); use Digest (); our $VERSION = "1.20"; our @ISA = qw(Exporter); our @EXPORT_OK = qw(digest_file_ctx digest_file d...

package Test2::Formatter; use strict; use warnings; our $VERSION = '1.302194'; my %ADDED; sub import { my $class = shift; return if $class eq __PACKAGE__; return if $ADDED{$class}++; require Test2:...

package Test2::Event::Ok; use strict; use warnings; our $VERSION = '1.302194'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } use Test2::Util::HashBase qw{ pass effective_pass name tod...

package Test2::EventFacet::Error; use strict; use warnings; our $VERSION = '1.302194'; sub facet_key { 'errors' } sub is_list { 1 } BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFace...

package Test::use::ok; use 5.005; our $VERSION = '1.302194'; __END__ =head1 NAME Test::use::ok - Alternative to Test::More::use_ok =head1 SYNOPSIS use ok 'Some::Module'; =head1 DESCRIPTION Accordin...

package Test::Builder::Tester::Color; use strict; our $VERSION = '1.302194'; require Test::Builder::Tester; =head1 NAME Test::Builder::Tester::Color - turn on colour in Test::Builder::Tester =head1...

package integer; our $VERSION = '1.01'; =head1 NAME integer - Perl pragma to use integer arithmetic instead of floating point =head1 SYNOPSIS use integer; $x = 10/3; # $x is now 3, not 3.3333333333...

=over =item substr EXPR,OFFSET,LENGTH,REPLACEMENT X<substr> X<substring> X<mid> X<left> X<right> =item substr EXPR,OFFSET,LENGTH =item substr EXPR,OFFSET Extracts a substring out of EXPR and return...

=over =item close FILEHANDLE X<close> =item close Closes the file or pipe associated with the filehandle, flushes the IO buffers, and closes the system file descriptor. Returns true if those operat...

=over =item readdir DIRHANDLE X<readdir> Returns the next directory entry for a directory opened by L<C<opendir>|/opendir DIRHANDLE,EXPR>. If used in list context, returns all the rest of the entri...