This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Perl 5.001
[perl5.git] / lib / English.pm
1 package English;
2
3 require Exporter;
4 @ISA = (Exporter);
5
6 local $^W = 0;
7
8 # Grandfather $NAME import
9 sub import {
10     my $this = shift;
11     my @list = @_;
12     local $Exporter::ExportLevel = 1;
13     Exporter::import($this,grep {s/^\$/*/} @list);
14 }
15
16 @EXPORT = qw(
17         *ARG
18         *MATCH
19         *PREMATCH
20         *POSTMATCH
21         *LAST_PAREN_MATCH
22         *INPUT_LINE_NUMBER
23         *NR
24         *INPUT_RECORD_SEPARATOR
25         *RS
26         *OUTPUT_AUTOFLUSH
27         *OUTPUT_FIELD_SEPARATOR
28         *OFS
29         *OUTPUT_RECORD_SEPARATOR
30         *ORS
31         *LIST_SEPARATOR
32         *SUBSCRIPT_SEPARATOR
33         *SUBSEP
34         *FORMAT_PAGE_NUMBER
35         *FORMAT_LINES_PER_PAGE
36         *FORMAT_LINES_LEFT
37         *FORMAT_NAME
38         *FORMAT_TOP_NAME
39         *FORMAT_LINE_BREAK_CHARACTERS
40         *FORMAT_FORMFEED
41         *CHILD_ERROR
42         *OS_ERROR
43         *ERRNO
44         *EVAL_ERROR
45         *PROCESS_ID
46         *PID
47         *REAL_USER_ID
48         *UID
49         *EFFECTIVE_USER_ID
50         *EUID
51         *REAL_GROUP_ID
52         *GID
53         *EFFECTIVE_GROUP_ID
54         *EGID
55         *PROGRAM_NAME
56         *PERL_VERSION
57         *ACCUMULATOR
58         *DEBUGGING
59         *SYSTEM_FD_MAX
60         *INPLACE_EDIT
61         *PERLDB
62         *BASETIME
63         *WARNING
64         *EXECUTABLE_NAME
65 );
66
67 # The ground of all being.
68
69         *ARG                                    = *_    ;
70
71 # Matching.
72
73         *MATCH                                  = *&    ;
74         *PREMATCH                               = *`    ;
75         *POSTMATCH                              = *'    ;
76         *LAST_PAREN_MATCH                       = *+    ;
77
78 # Input.
79
80         *INPUT_LINE_NUMBER                      = *.    ;
81             *NR                                 = *.    ;
82         *INPUT_RECORD_SEPARATOR                 = */    ;
83             *RS                                 = */    ;
84
85 # Output.
86
87         *OUTPUT_AUTOFLUSH                       = *|    ;
88         *OUTPUT_FIELD_SEPARATOR                 = *,    ;
89             *OFS                                = *,    ;
90         *OUTPUT_RECORD_SEPARATOR                = *\    ;
91             *ORS                                = *\    ;
92
93 # Interpolation "constants".
94
95         *LIST_SEPARATOR                         = *"    ;
96         *SUBSCRIPT_SEPARATOR                    = *;    ;
97             *SUBSEP                             = *;    ;
98
99 # Formats
100
101         *FORMAT_PAGE_NUMBER                     = *%    ;
102         *FORMAT_LINES_PER_PAGE                  = *=    ;
103         *FORMAT_LINES_LEFT                      = *-    ;
104         *FORMAT_NAME                            = *~    ;
105         *FORMAT_TOP_NAME                        = *^    ;
106         *FORMAT_LINE_BREAK_CHARACTERS           = *:    ;
107         *FORMAT_FORMFEED                        = *^L   ;
108
109 # Error status.
110
111         *CHILD_ERROR                            = *?    ;
112         *OS_ERROR                               = *!    ;
113             *ERRNO                              = *!    ;
114         *EVAL_ERROR                             = *@    ;
115
116 # Process info.
117
118         *PROCESS_ID                             = *$    ;
119             *PID                                = *$    ;
120         *REAL_USER_ID                           = *<    ;
121             *UID                                = *<    ;
122         *EFFECTIVE_USER_ID                      = *>    ;
123             *EUID                               = *>    ;
124         *REAL_GROUP_ID                          = *(    ;
125             *GID                                = *(    ;
126         *EFFECTIVE_GROUP_ID                     = *)    ;
127             *EGID                               = *)    ;
128         *PROGRAM_NAME                           = *0    ;
129
130 # Internals.
131
132         *PERL_VERSION                           = *]    ;
133         *ACCUMULATOR                            = *^A   ;
134         *DEBUGGING                              = *^D   ;
135         *SYSTEM_FD_MAX                          = *^F   ;
136         *INPLACE_EDIT                           = *^I   ;
137         *PERLDB                                 = *^P   ;
138         *BASETIME                               = *^T   ;
139         *WARNING                                = *^W   ;
140         *EXECUTABLE_NAME                        = *^X   ;
141
142 # Deprecated.
143
144 #       *ARRAY_BASE                             = *[    ;
145 #       *OFMT                                   = *#    ;
146 #       *MULTILINE_MATCHING                     = **    ;
147
148 1;