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;