lib/English.pm

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