our
$VERSION
=
'1.05'
;
@ISA
=
qw(Exporter)
;
no
warnings;
my
$globbed_match
;
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
{
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
*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
) ;
*ARG
=
*_
;
*LAST_PAREN_MATCH
= *+ ;
*LAST_SUBMATCH_RESULT
= *^N ;
*LAST_MATCH_START
= *-{ARRAY} ;
*LAST_MATCH_END
= *+{ARRAY} ;
*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
= *^L ;
*CHILD_ERROR
= *? ;
*OS_ERROR
= *! ;
*ERRNO
= *! ;
*OS_ERROR
= *! ;
*ERRNO
= *! ;
*EXTENDED_OS_ERROR
= *^E ;
*EVAL_ERROR
= *@ ;
*PROCESS_ID
= *$ ;
*PID
= *$ ;
*REAL_USER_ID
= *< ;
*UID
= *< ;
*EFFECTIVE_USER_ID
= *> ;
*EUID
= *> ;
*REAL_GROUP_ID
= *( ;
*GID
= *( ;
*EFFECTIVE_GROUP_ID
= *) ;
*EGID
= *) ;
*PROGRAM_NAME
= *0 ;
*PERL_VERSION
= *^V ;
*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 ;
1;