lib/English.pm

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