#acupoftea - mail.ontime-ae.com

System	:	Linux server1.ontime-gulf.com 4.18.0-553.5.1.el8_10.x86_64 #1 SMP Wed Jun 5 09:12:13 EDT 2024 x86_64
Software	:	Apache
Server	:	162.0.230.206
Domains	:	40 Domain
Permission	:	[ drwxr-xr-x ]
	:	/ usr / share / perl5 /

216.73.216.49

Home

File English.pm

package English;

our $VERSION = '1.10';

require Exporter;
@ISA = qw(Exporter);

=head1 NAME

English - use nice English (or awk) names for ugly punctuation variables

=head1 SYNOPSIS

use English;
    use English qw( -no_match_vars ) ;  # Avoids regex performance
                                        # penalty in perl 5.16 and
                                        # earlier
    ...
    if ($ERRNO =~ /denied/) { ... }

=head1 DESCRIPTION

This module provides aliases for the built-in variables whose
names no one seems to like to read.  Variables with side-effects
which get triggered just by accessing them (like $0) will still 
be affected.

For those variables that have an B<awk> version, both long
and short English alternatives are provided.  For example, 
the C<$/> variable can be referred to either $RS or 
$INPUT_RECORD_SEPARATOR if you are using the English module.

See L<perlvar> for a complete list of these.

=head1 PERFORMANCE

NOTE: This was fixed in perl 5.20.  Mentioning these three variables no
longer makes a speed difference.  This section still applies if your code
is to run on perl 5.18 or earlier.

This module can provoke sizeable inefficiencies for regular expressions,
due to unfortunate implementation details.  If performance matters in
your application and you don't need $PREMATCH, $MATCH, or $POSTMATCH,
try doing

use English qw( -no_match_vars ) ;

.  B<It is especially important to do this in modules to avoid penalizing
all applications which use them.>

=cut

no warnings;

my $globbed_match ;

# Grandfather $NAME import
sub import {
    my $this = shift;
    my @list = grep { ! /^-no_match_vars$/ } @_ ;
    local $Exporter::ExportLevel = 1;
    if ( @_ == @list ) {
        *EXPORT = \@COMPLETE_EXPORT ;
        $globbed_match ||= (
	    eval q{
		*MATCH				= *&	;
		*PREMATCH			= *`	;
		*POSTMATCH			= *'	;
		1 ;
	       }
	    || do {
		require Carp ;
		Carp::croak("Can't create English for match leftovers: $@") ;
	    }
	) ;
    }
    else {
        *EXPORT = \@MINIMAL_EXPORT ;
    }
    Exporter::import($this,grep {s/^\$/*/} @list);
}

@MINIMAL_EXPORT = qw(
	*ARG
	*LAST_PAREN_MATCH
	*INPUT_LINE_NUMBER
	*NR
	*INPUT_RECORD_SEPARATOR
	*RS
	*OUTPUT_AUTOFLUSH
	*OUTPUT_FIELD_SEPARATOR
	*OFS
	*OUTPUT_RECORD_SEPARATOR
	*ORS
	*LIST_SEPARATOR
	*SUBSCRIPT_SEPARATOR
	*SUBSEP
	*FORMAT_PAGE_NUMBER
	*FORMAT_LINES_PER_PAGE
	*FORMAT_LINES_LEFT
	*FORMAT_NAME
	*FORMAT_TOP_NAME
	*FORMAT_LINE_BREAK_CHARACTERS
	*FORMAT_FORMFEED
	*CHILD_ERROR
	*OS_ERROR
	*ERRNO
	*EXTENDED_OS_ERROR
	*EVAL_ERROR
	*PROCESS_ID
	*PID
	*REAL_USER_ID
	*UID
	*EFFECTIVE_USER_ID
	*EUID
	*REAL_GROUP_ID
	*GID
	*EFFECTIVE_GROUP_ID
	*EGID
	*PROGRAM_NAME
	*PERL_VERSION
	*OLD_PERL_VERSION
	*ACCUMULATOR
	*COMPILING
	*DEBUGGING
	*SYSTEM_FD_MAX
	*INPLACE_EDIT
	*PERLDB
	*BASETIME
	*WARNING
	*EXECUTABLE_NAME
	*OSNAME
	*LAST_REGEXP_CODE_RESULT
	*EXCEPTIONS_BEING_CAUGHT
	*LAST_SUBMATCH_RESULT
	@LAST_MATCH_START
	@LAST_MATCH_END
);

@MATCH_EXPORT = qw(
	*MATCH
	*PREMATCH
	*POSTMATCH
);

@COMPLETE_EXPORT = ( @MINIMAL_EXPORT, @MATCH_EXPORT ) ;

# The ground of all being.

*ARG					= *_	;

# Matching.

*LAST_PAREN_MATCH			= *+	;
	*LAST_SUBMATCH_RESULT			= *^N ;
	*LAST_MATCH_START			= *-{ARRAY} ;
	*LAST_MATCH_END				= *+{ARRAY} ;

# Input.

*INPUT_LINE_NUMBER			= *.	;
	    *NR					= *.	;
	*INPUT_RECORD_SEPARATOR			= */	;
	    *RS					= */	;

# Output.

*OUTPUT_AUTOFLUSH			= *|	;
	*OUTPUT_FIELD_SEPARATOR			= *,	;
	    *OFS				= *,	;
	*OUTPUT_RECORD_SEPARATOR		= *\	;
	    *ORS				= *\	;

# Interpolation "constants".

*LIST_SEPARATOR				= *"	;
	*SUBSCRIPT_SEPARATOR			= *;	;
	    *SUBSEP				= *;	;

# Formats

*FORMAT_PAGE_NUMBER			= *%	;
	*FORMAT_LINES_PER_PAGE			= *=	;
	*FORMAT_LINES_LEFT			= *-{SCALAR}	;
	*FORMAT_NAME				= *~	;
	*FORMAT_TOP_NAME			= *^	;
	*FORMAT_LINE_BREAK_CHARACTERS		= *:	;
	*FORMAT_FORMFEED			= *^L	;

# Error status.

*CHILD_ERROR				= *?	;
	*OS_ERROR				= *!	;
	    *ERRNO				= *!	;
	*OS_ERROR				= *!	;
	    *ERRNO				= *!	;
	*EXTENDED_OS_ERROR			= *^E	;
	*EVAL_ERROR				= *@	;

# Process info.

*PROCESS_ID				= *$	;
	    *PID				= *$	;
	*REAL_USER_ID				= *<	;
	    *UID				= *<	;
	*EFFECTIVE_USER_ID			= *>	;
	    *EUID				= *>	;
	*REAL_GROUP_ID				= *(	;
	    *GID				= *(	;
	*EFFECTIVE_GROUP_ID			= *)	;
	    *EGID				= *)	;
	*PROGRAM_NAME				= *0	;

# Internals.

*PERL_VERSION				= *^V	;
	*OLD_PERL_VERSION			= *]	;
	*ACCUMULATOR				= *^A	;
	*COMPILING				= *^C	;
	*DEBUGGING				= *^D	;
	*SYSTEM_FD_MAX				= *^F	;
	*INPLACE_EDIT				= *^I	;
	*PERLDB					= *^P	;
	*LAST_REGEXP_CODE_RESULT		= *^R	;
	*EXCEPTIONS_BEING_CAUGHT		= *^S	;
	*BASETIME				= *^T	;
	*WARNING				= *^W	;
	*EXECUTABLE_NAME			= *^X	;
	*OSNAME					= *^O	;

# Deprecated.

#	*ARRAY_BASE				= *[	;
#	*OFMT					= *#	;

Name	Type	Size	Permission	Last Modified	Actions
.	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
..	DIR	-	drwxr-xr-x	2025-10-16 10:59:21
Attribute	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
B	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
CPAN	DIR	-	drwxr-xr-x	2024-03-13 04:56:46
Class	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
Compress	DIR	-	drwxr-xr-x	2024-03-13 04:36:57
Config	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
DBM_Filter	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
Devel	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
ExtUtils	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
File	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
Getopt	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
I18N	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
IO	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
IPC	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
Locale	DIR	-	drwxr-xr-x	2025-07-28 08:08:32
Math	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
Memoize	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
Module	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
Net	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
Pod	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
Search	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
Term	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
Text	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
Thread	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
Tie	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
Time	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
URI	DIR	-	drwxr-xr-x	2024-03-13 04:36:40
Unicode	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
User	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
encoding	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
overload	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
pod	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
unicore	DIR	-	drwxr-xr-x	2025-07-29 10:57:24
vendor_perl	DIR	-	drwxr-xr-x	2025-07-28 08:07:18
warnings	DIR	-	drwxr-xr-x	2025-07-29 10:57:25
AnyDBM_File.pm	text/plain	2.56 KB	-rw-r--r--	2025-07-28 08:07:09
AutoLoader.pm	text/plain	15.43 KB	-rw-r--r--	2025-07-28 08:07:09
AutoSplit.pm	text/plain	19.18 KB	-rw-r--r--	2025-07-28 08:07:09
Benchmark.pm	text/plain	30.3 KB	-rw-r--r--	2025-07-28 08:07:09
CORE.pod	text/plain	3.11 KB	-rw-r--r--	2025-07-28 08:07:09
DB.pm	text/plain	18.48 KB	-rw-r--r--	2025-07-28 08:07:09
DBM_Filter.pm	text/plain	14.05 KB	-rw-r--r--	2025-07-28 08:07:09
DirHandle.pm	text/plain	1.52 KB	-rw-r--r--	2025-07-28 08:07:09
Dumpvalue.pm	text/plain	17.14 KB	-rw-r--r--	2025-07-28 08:07:09
English.pm	text/plain	4.65 KB	-rw-r--r--	2025-07-28 08:07:09
FileCache.pm	text/plain	5.44 KB	-rw-r--r--	2025-07-28 08:07:09
FileHandle.pm	text/plain	6.63 KB	-rw-r--r--	2025-07-28 08:07:09
FindBin.pm	text/plain	4.45 KB	-rw-r--r--	2025-07-28 08:07:09
Internals.pod	text/plain	2.52 KB	-rw-r--r--	2025-07-28 08:07:09
Memoize.pm	text/plain	35.34 KB	-rw-r--r--	2025-07-28 08:08:32
NEXT.pm	text/plain	18.4 KB	-rw-r--r--	2025-07-28 08:07:09
PerlIO.pm	text/plain	10.21 KB	-rw-r--r--	2025-07-28 08:07:09
Safe.pm	text/plain	24.49 KB	-rw-r--r--	2025-07-28 08:07:09
SelectSaver.pm	text/plain	1.05 KB	-rw-r--r--	2025-07-28 08:07:09
SelfLoader.pm	text/plain	17.28 KB	-rw-r--r--	2025-07-28 08:08:32
Symbol.pm	text/plain	4.69 KB	-rw-r--r--	2025-07-28 08:07:09
Test.pm	text/plain	29.35 KB	-rw-r--r--	2025-07-28 08:08:32
Thread.pm	text/plain	8.09 KB	-rw-r--r--	2025-07-28 08:07:09
UNIVERSAL.pm	text/plain	6.44 KB	-rw-r--r--	2025-07-28 08:07:09
URI.pm	text/plain	33.97 KB	-rw-r--r--	2018-01-09 06:42:55
XSLoader.pm	text/plain	11 KB	-rw-r--r--	2025-07-28 08:07:09
_charnames.pm	text/plain	32.39 KB	-rw-r--r--	2025-07-28 08:07:09
autouse.pm	text/plain	4.14 KB	-rw-r--r--	2025-07-28 08:07:09
base.pm	text/plain	10.72 KB	-rw-r--r--	2025-07-28 08:07:09
blib.pm	text/plain	2.04 KB	-rw-r--r--	2025-07-28 08:07:09
bytes.pm	text/plain	3.67 KB	-rw-r--r--	2025-07-28 08:07:09
bytes_heavy.pl	text/plain	758 B	-rw-r--r--	2025-07-28 08:07:09
charnames.pm	text/plain	20.38 KB	-rw-r--r--	2025-07-28 08:07:09
deprecate.pm	text/plain	3.01 KB	-rw-r--r--	2025-07-28 08:07:09
diagnostics.pm	text/plain	18.59 KB	-rw-r--r--	2025-07-28 08:07:09
dumpvar.pl	text/plain	15.19 KB	-rw-r--r--	2025-07-28 08:07:09
feature.pm	text/plain	16.68 KB	-rw-r--r--	2025-07-28 08:07:09
fields.pm	text/plain	9.27 KB	-rw-r--r--	2025-07-28 08:07:09
filetest.pm	text/plain	3.91 KB	-rw-r--r--	2025-07-28 08:07:09
if.pm	text/plain	3.26 KB	-rw-r--r--	2025-07-28 08:07:09
integer.pm	text/plain	3.18 KB	-rw-r--r--	2025-07-28 08:07:09
less.pm	text/plain	3.13 KB	-rw-r--r--	2025-07-28 08:07:09
locale.pm	text/plain	4.74 KB	-rw-r--r--	2025-07-28 08:07:09
meta_notation.pm	text/plain	2.07 KB	-rw-r--r--	2025-07-28 08:07:09
open.pm	text/plain	7.83 KB	-rw-r--r--	2025-07-28 08:08:32
overload.pm	text/plain	52.06 KB	-rw-r--r--	2025-07-28 08:07:09
overloading.pm	text/plain	1.77 KB	-rw-r--r--	2025-07-28 08:07:09
perl5db.pl	text/plain	309 KB	-rw-r--r--	2025-07-28 08:07:09
sigtrap.pm	text/plain	7.43 KB	-rw-r--r--	2025-07-28 08:07:09
sort.pm	text/plain	5.94 KB	-rw-r--r--	2025-07-28 08:07:09
strict.pm	text/plain	4.63 KB	-rw-r--r--	2025-07-28 08:07:09
subs.pm	text/plain	848 B	-rw-r--r--	2025-07-28 08:07:09
utf8.pm	text/plain	8.9 KB	-rw-r--r--	2025-07-28 08:07:09
utf8_heavy.pl	text/plain	30.87 KB	-rw-r--r--	2025-07-28 08:07:09
vars.pm	text/plain	2.36 KB	-rw-r--r--	2025-07-28 08:07:09
vmsish.pm	text/plain	4.21 KB	-rw-r--r--	2025-07-28 08:07:09
warnings.pm	text/plain	43.71 KB	-rw-r--r--	2025-07-28 08:07:09

~ ACUPOFTEA - mail.ontime-ae.com