70S|"I3 fFDD Ǜǰն2ZiΜ578j/--"nYdQ+w s
FH(ׅA %f0aBB $jBƈ @{$CPAN::Config->{dontload_list}||[]};
if (defined $message && $message eq "no" # as far as I remember only used by Nox
||
$dont{$mod}
) {
$CPAN::META->{dontload_hash}{$mod}||=1; # unsafe meta access, ok
return 0;
}
local @INC = @INC;
pop @INC if $INC[-1] eq '.';
my $file = $mod;
my $obj;
$file =~ s|::|/|g;
$file .= ".pm";
if ($INC{PTION"
This module\*(Aqs default exports override the core \fBgmtime()\fR function,
replacing it with a version that returns "Time::tm" objects.
This object has methods that return the similarly named structure field
name from the C\*(Aqs tm structure from \fItime.h\fR; namely sec, min, hour,
mday, mon, year, wday, yday, and isdst.
.PP
You may also import all the structure fields directly into your namespace
as regular variables using the :FIELDS import tag. (Note that this
still overrides your core functions.) Access these field, ignoring case)
is optional. A single underscore character ("_") may be placed between any two
digits. If the input is invalid, a NaN is returned. The exponent is in base 2
using decimal digits.
.Sp
If called as an instance method, the value is assigned to the invocand.
.IP \fBfrom_bytes()\fR 4
.IX Item "from_bytes()"
.Vb 1
\& $x = Math::BigFloat\->from_bytes("\exf3\ex6b"); # $x = 62315
.Ve
.Sp
Interpret the input as a byte string, assuming big endian byte order. The
output is always a non\-negative, finite integer.
.Sp
See "\in the future possibly more) flags in one call to
generate the most readable (or most compact) form possible.
.SS indent
.IX Subsection "indent"
.Vb 1
\& $json = $json\->indent([$enable])
\&
\& $enabled = $json\->get_indent
.Ve
.PP
If \f(CW$enable\fR is true (or missing), then the \f(CW\*(C`encode\*(C'\fR method will use a multiline
format as output, putting every array member or object/hash key\-value pair
into its own line, indenting them properly.
.PP
If \f(CW$enable\fR is false, no newlines or indenting will be producand similar whitespace from
disrupting the table.
.Sp
\&\fBNote:\fR newlines are marked as \f(CW\*(C`\en\*(C'\fR, but a newline is also inserted into the
data so that it typically displays in a way that is useful to humans.
.Sp
Example:
.Sp
.Vb 1
\& my $field = "foo\enbar\enbaz\en";
\&
\& print join "\en" => table(
\& sanitize => 1,
\& rows => [
\& [$field, \*(Aqcol2\*(Aq ],
\& [\*(Aqrow2 col1\*(Aq, \*(Aqrow2 col2\*(Aq]
\& ]
\& );
.Ve
.Sp
Prints:
.Sp
.Vb 7
\& +\-\-\-\-ubles, respectively. If present, they contain a
space\-separated list of one or more of the above function
names in the order they should be tried.
.Sp
d_Gconvert may be set to override Configure with a platform\-
specific function. If this function expects a double, a
different value may need to be set by the \fIuselongdouble.cbu\fR
call\-back unit so that long doubles can be formatted without
loss of precision.
.ie n .IP """d_PRIEUldbl""" 4
.el .IP \f(CWd_PRIEUldbl\fR 4
.IX Item "d_PRIEUldbl"
From \fIlongdblfio.U\fR:
.Sp
This v require. For instance, if you want to use \f(CWdone_testing()\fR but want your test script to run on Perl 5.10.0, you will need to explicitly require Test::More > 0.88.
.PP
Key feature milestones include:
.IP subtests 4
.IX Item "subtests"
Subtests were released in Test::More 0.94, which came with Perl 5.12.0. Subtests did not implicitly call \f(CWdone_testing()\fR until 0.96; the first Perl with that fix was Perl 5.14.0 with 0.98.
.ie n .IP done_testing() 4
.el .IP \f(CWdone_testing()\fR 4
.IX Item "done_testing()"
This was relea and installed solely
from consulting its
metadata file. The main reason to set this to a true value if that
your module performs some dynamic configuration (asking questions,
sensing the environment, etc.) as part of its build/install process.
.PP
Currently Module::Build doesn\*(Aqt actually do anything with this flag
\&\- it\*(Aqs probably going to be up to higher\-level tools like CPAN
to do something useful with it. It can potentially bring lots of
security, packaging, and convenience improvements.
.PP
If this field is omittecept the range operator \f(CW\*(C`..\*(C'\fR
are overloaded.
.PP
So, the following:
.PP
.Vb 2
\& use bigfloat;
\& $x = 1234;
.Ve
.PP
creates a Math::BigFloat and stores a reference to in \f(CW$x\fR. This happens
transparently and behind your back, so to speak.
.PP
You can see this with the following:
.PP
.Vb 1
\& perl \-Mbigfloat \-le \*(Aqprint ref(1234)\*(Aq
.Ve
.PP
Since numbers are actually objects, you can call all the usual methods from
Math::BigFloat on them. This even works to some extent on expressions:
.PP
.Vb 4
ction "make_iterator"
.PP
.Vb 1
\& my $iterator = $class\->make_iterator( $source );
.Ve
.PP
Constructs & returns a new TAP::Parser::Iterator::Process for the source.
Assumes \f(CW\*(C`$source\->raw\*(C'\fR contains a reference to the perl script. \f(CW\*(C`croak\*(C'\fRs
if the file could not be found.
.PP
The command to run is built as follows:
.PP
.Vb 1
\& $perl @switches $perl_script @test_args
.Ve
.PP
The perl command to use is determined by "get_perl". The command generated
is guaranteed to preserve:
.PP
.Vb 3
\& PERL5LIl regularly check for
pending IPC events and will process them.
.PP
This driver is further optimized using a small chunk of SHM. Any time a new
event is sent via IPC the shm is updated to have a new value. Hubs will not
bother checking for new IPC events unless the shm value has changed since their
last poll. A result of this is that the IPC system is surprisingly fast, and
does not waste time polling the hard drive when there are no pending events.
.SH "SEE ALSO"
.IX Header "SEE ALSO"
Test2::Manual \- Primary index of the manual.
at ignores VMS ACLs"
VMS systems have a permissions structure that cannot be completely
represented in a stat buffer, and unlike on other systems the builtin
filetest operators respect this. The \f(CW\*(C`File::stat\*(C'\fR overloads, however,
do not, since the information required is not available.
.SH NOTE
.IX Header "NOTE"
While this class is currently implemented using the Class::Struct
module to build a struct\-like class, you shouldn\*(Aqt rely upon this.
.SH AUTHOR
.IX Header "AUTHOR"
Tom Christiansen
.\" -*- mode: troff; codle, this method
returns the current autoflush setting for the underlying filehandle. If
\&\f(CW\*(C`EXPR\*(C'\fR is present, and is non\-zero, it will enable flushing after every
write/print operation.
.PP
If \f(CW$z\fR is associated with a buffer, this method has no effect and always
returns \f(CW\*(C`undef\*(C'\fR.
.PP
\&\fBNote\fR that the special variable \f(CW$|\fR \fBcannot\fR be used to set or
retrieve the autoflush setting.
.SS input_line_number
.IX Subsection "input_line_number"
.Vb 2
\& $z\->input_line_number()
\& he \f(CW$output\fR being
closed once either the \f(CW\*(C`close\*(C'\fR method is called or the \f(CW\*(C`IO::Compress::Gzip\*(C'\fR
object is destroyed.
.Sp
This parameter defaults to 0.
.ie n .IP """Append => 0|1""" 5
.el .IP "\f(CWAppend => 0|1\fR" 5
.IX Item "Append => 0|1"
Opens \f(CW$output\fR in append mode.
.Sp
The behaviour of this option is dependent on the type of \f(CW$output\fR.
.RS 5
.IP \(bu 5
A Buffer
.Sp
If \f(CW$output\fR is a buffer and \f(CW\*(C`Append\*(C'\fR is enabled, all compressed data
will be append to thalgic for \f(CW\*(C`catgets\*(C'\fR),
but I have better suggestions in the
section "Entries in Each Lexicon", above. Assuming you opt for
meaningful keys that double as values (like "Minimum ([_1]) is
larger than maximum ([_2])!\en"), you\*(Aqll have to settle on what
language those should be in. For the sake of argument, I\*(Aqll
call this English, specifically American English, "en\-US".
.IP \(bu 4
Create a class for your localization project. This is
the name of the class that you\*(Aqll use in the idiom:
.Sp
.Vb 2
\& use Pr\->print("GET / HTTP/1.0$CRLF");
.Ve
.PP
The entire \fBgetaddrinfo()\fR subsystem can be exported using the tag \f(CW\*(C`:addrinfo\*(C'\fR;
this exports the \fBgetaddrinfo()\fR and \fBgetnameinfo()\fR functions, and all the
\&\f(CW\*(C`AI_*\*(C'\fR, \f(CW\*(C`NI_*\*(C'\fR, \f(CW\*(C`NIx_*\*(C'\fR and \f(CW\*(C`EAI_*\*(C'\fR constants.
.SH CONSTANTS
.IX Header "CONSTANTS"
In each of the following groups, there may be many more constants provided
than just the ones given as examples in the section heading. If the heading
ends \f(CW\mpiler to enable the Raku\-inspired
\&\f(CW\*(C`say\*(C'\fR function.
.PP
See "say" in perlfunc for details.
.PP
This feature is available starting with Perl 5.10.
.SS "The \*(Aqsignatures\*(Aq feature"
.IX Subsection "The 'signatures' feature"
This enables syntax for declaring subroutine arguments as lexical variables.
For example, for this subroutine:
.PP
.Vb 3
\& sub foo ($left, $right) {
\& return $left + $right;
\& }
.Ve
.PP
Calling \f(CW\*(C`foo(3, 7)\*(C'\fR will assign \f(CW3\fR into \f(CW$left\fR and \f(CW7\fR framework for parsing Pod
.SH SYNOPSIS
.IX Header "SYNOPSIS"
.Vb 4
\& # using an existing formatter
\& use Pod::Simple::XHTML;
\& my $parser = Pod::Simple::XHTML\->new;
\& $parser\->parse_file(\*(Aqpath/to/file.pod\*(Aq);
\&
\& # creating a new formatter
\& package Pod::Simple::SomeFormatter;
\& use parent qw(Pod::Simple);
\& sub _handle_element_start {
\& my ($parser, $element_name, $attr_hash_r) = @_;
\& ...
\& }
\& ...
.Ve
.SH DESCRIPTION
.IX Header "DESCRIPTION"
Pod::Simple is a Perlies
to the \f(CW\*(C`refaddr\*(C'\fR the same as other handles and so can be compared to other
handles with \f(CW\*(C`==\*(C'\fR.
.PP
.Vb 2
\& $fh eq $filename # as a string
\& $fh != \e*STDOUT # as a number
.Ve
.PP
Available since 0.14.
.IP \fBnew\fR 4
.IX Item "new"
Create a temporary file object.
.Sp
.Vb 1
\& my $tmp = File::Temp\->new();
.Ve
.Sp
by default the object is constructed as if \f(CW\*(C`tempfile\*(C'\fR
was called without options, but with the additional behaviour
that the temporary file is remove"
.PD 0
.ie n .IP "$bool = $parent\->\fBbuffered()\fR" 4
.el .IP "\f(CW$bool\fR = \f(CW$parent\fR\->\fBbuffered()\fR" 4
.IX Item "$bool = $parent->buffered()"
.PD
True if the subtest is buffered (meaning the formatter has probably not seen
them yet).
.SH SOURCE
.IX Header "SOURCE"
The source code repository for Test2 can be found at
.
.SH MAINTAINERS
.IX Header "MAINTAINERS"
.IP "Chad Granum " 4
.IX Item "Chad Granum "
.SH AUTHORS
.IX Header "AUTHORS"
.Iy TAP::Object
\& sub _initialize {
\& my ( $self, @args) = @_;
\& # initialize your object
\& return $self;
\& }
\&
\& # ... later ...
\& my $obj = TAP::Whatever\->new(@args);
.Ve
.SH DESCRIPTION
.IX Header "DESCRIPTION"
\&\f(CW\*(C`TAP::Object\*(C'\fR provides a default constructor and exception model for all
\&\f(CW\*(C`TAP::*\*(C'\fR classes. Exceptions are raised using Carp.
.SH METHODS
.IX Header "METHODS"
.SS "Class Methods"
.IX Subsection "Class Methods"
\fR\f(CI\*(C`new\*(C'\fR\fI\fR
.IX Su tm Index:\\$1\t\\n%\t"\\$2"
..
. if !\nF==2 \{\
. nr % 0
. nr F 2
. \}
. \}
.\}
.rr rF
.\"
.\" Required to disable full justification in groff 1.23.0.
.if n .ds AD l
.\" ========================================================================
.\"
.IX Title "CORE 3"
.TH CORE 3 2026-06-22 "perl v5.44.0" "Perl Programmers Reference Guide"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
.nh
.SH NAME
ff; coding: utf-8 -*-
.\" Automatically generated by Pod::Man v6.0.2 (Pod::Simple 3.48)
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" \*(C` and \*(C' are quotes in nroff, nothing in troff, for use with C<>.
.ie n \{\
. ds C` ""
. ds C' ""
'br\}
.el\{\
. ds C`
. ds C'
'br\}
.\"
.\" Escape singry
if ($options{"mkdir"}) {
# There is no filename at the end
($volume, $directories, $file) = File::Spec->splitpath( $path, 1);
# The parent is then $directories without the last directory
# Split the directory and put it back together again
my @dirs = File::Spec->splitdir($directories);
# If @dirs only has one entry (i.e. the directory template) that means
# we are in the current directory
if ($#dirs == 0) {
$parent = File::Spec->curdir;
} else {
if ($^O eq 'VMS') { # need >. It is
also possible to specify that only integer or floating point numbers
are acceptable values. The keys are always taken to be strings.
=head2 User-defined subroutines to handle options
Ultimate control over what should be done when (actually: each time)
an option is encountered on the command line can be achieved by
designating a reference to a subroutine (or an anonymous subroutine)
as the option destination. When GetOptions() encounters the option, it
will call the subroutine with two or three arguments. The first
argume": ",
"$userlinkage->{$orig}\n")
if $debug;
unshift (@optionlist, $userlinkage->{$orig});
}
else {
# Do nothing. Being undefined will be handled later.
next;
}
}
}
# Copy the linkage. If omitted, link to global variable.
if ( @optionlist > 0 && ref($optionlist[0]) ) {
print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
if $debug;
my $rl = ref($linkage{$orig} = shift (@optionlist));
if ( $rl eq "ARRAY" ) {
$opctl{$name}[CTL_DEST] = CTL_DEST_ARRAY;
}
elsif ( $ave an older version of Perl, the C<$^W> variable (documented
in L) controls runtime warnings for a block:
{
local $^W = 0; # temporarily turn off warnings
$x = $y + $z; # I know these might be undef
}
Note that like all the punctuation variables, you cannot currently
use my() on C<$^W>, only local().
=head2 What's an extension?
An extension is a way of calling compiled C code from Perl. Reading
L is a good place to learn more about extensions.
=head2 Why do Perl operasE|perldiag/"Ranges of ASCII printables should be some subset of "0-9", "A-Z", or "a-z" in regex; marked by <-- HERE in mE%sE">
(W regexp) (only under C> or within C<(?[...])>)
Stricter rules help to find typos and other errors. Perhaps you didn't
even intend a range here, if the C<"-"> was meant to be some other
character, or should have been escaped (like C<"\-">). If you did
intend a range, the one that was used is not portable between ASCII and
EBCDIC platforms, and doesn't have an obvious )> or a related function with a
format string that specifies explicit indexes for some of the elements, and
using a C-style variable-argument list (a C). This is not currently
supported. XS authors wanting to do this must instead construct a C array
of C scalars containing the arguments.
=item Can only compress unsigned integers in pack
(F) An argument to pack("w",...) was not an integer. The BER compressed
integer format can only be used with positive integers, and you attempted
to compress something else. See flags)
void Perl_hv_ename_add(pTHX_ HV *hv, const char *name, U32 len,
U32 flags)
=back
=back
=for hackers
Declared at embed.fnc, line 1727; documented at hv.c, line 2778
=over 4
=item C
X
Removes a name from a stash's internal list of effective names. If this is
the name returned by C, then another name in the list will take
its place (C will use it).
This is called when a stash is deleted from the symbol table.
=over 3
void hv_enlable via the C<:mode> tag.
=item File::Compare
A compare_text() function has been added, which allows custom
comparison functions. See L.
=item File::Find
File::Find now works correctly when the wanted() function is either
autoloaded or is a symbolic reference.
A bug that caused File::Find to lose track of the working directory
when pruning top-level directories has been fixed.
File::Find now also supports several other options to control its
behavior. It can follow symbolic links if the C option is
do-hash is not legal. Index values must be at 1 or greater.
See L.
=item Bareword "%s" refers to nonexistent package
(W) You used a qualified bareword of the form C, but
the compiler saw no other uses of that namespace before that point.
Perhaps you need to predeclare a package?
=item Can't call method "%s" on an undefined value
(F) You used the syntax of a method call, but the slot filled by the
object reference or package name contains an undefined value.
Something like this will reproduce the error:
$BA actions.
=item *
Added support for C<${^HOOK}{require__after}> which can be used to
track what modules have been required after the fact.
=item *
Regular expression opcodes (regops) now use a standardized structure
layout that uses unions to expose data in different format. This means
it should be much easier to extend or modify regops to use more memory.
This has been used to make a number of regops track how many parens
they contain.
=back
=head1 Selected Bug Fixes
=over 4
=item *
Avoid recursion and stack overflow parsThis only happens in cases where it would have been an error to actually
execute the code anyway; the error simply happens at an earlier time.
=head2 Optimistic Eval in Patterns
The use of C<(?{ ... })> and C<(??{ ... })> in a pattern disables various
optimisations globally in that pattern. This may or may not be desired by the
programmer. This release adds the C<(*{ ... })>
equivalent. The only difference is that it does not and will never disable
any optimisations in the regex engine. This may make it more unstable in the
senseropriate to send to a publicly archived mailing list, then please send
it to perl5-security-report@perl.org. This points to a closed subscription
unarchived mailing list, which includes
all the core committers, who will be able
to help assess the impact of issues, figure out a resolution, and help
co-ordinate the release of patches to mitigate or fix the problem across all
platforms on which Perl is supported. Please only use this address for
security issues in the Perl core, not for modules independently
distributed on CPAN.
=heahell's interference. With system(), it's
straightforward, but you can't use a pipe open or backticks safely.
That's because there's no way to stop the shell from getting its hands on
your arguments. Instead, use lower-level control to call exec() directly.
Here's a safe backtick or pipe open for read:
my $pid = open(my $kid_to_read, "-|");
defined($pid) || die "can't fork: $!";
if ($pid) { # parent
while (<$kid_to_read>) {
# do something interesting
GIN block is executed as soon
as it is seen (during compilation), at which point the corresponding
__DATA__ (or __END__) token has not yet been seen.
=head3 Barewords
X
A word that has no other interpretation in the grammar will
be treated as if it were a quoted string. These are known as
"barewords". As with filehandles and labels, a bareword that consists
entirely of lowercase letters risks conflict with future reserved
words, and if you use the C