Perlito5
view release on metacpan or search on metacpan
lib/Perlito5/Runtime.pm view on Meta::CPAN
'$+' => '$LAST_PAREN_MATCH',
'@+' => '@LAST_MATCH_END',
'%+' => '%LAST_PAREN_MATCH',
'@-' => '@LAST_MATCH_START',
'$|' => 'autoflush',
'$/' => '$RS',
'@_' => '@ARG',
'< $' => '$EUID',
'$.' => '$NR',
'< $< ' => '$UID',
'$(' => '$GID',
'$#' => undef,
'$@' => '$EVAL_ERROR',
'$=' => '$FORMAT_LINES_PER_PAGE',
'$,' => '$OFS',
'$?' => '$CHILD_ERROR',
'$*' => undef,
'$[' => undef,
'$$' => '$PID',
'%-' => undef,
'$~' => '$FORMAT_NAME',
'$-' => '$FORMAT_LINES_LEFT',
'$&' => '$MATCH',
'$%' => '$FORMAT_PAGE_NUMBER',
'$)' => '$EGID',
'$]' => undef,
'$!' => '$ERRNO',
'$;' => '$SUBSEP',
'$\\' => '$ORS',
'%!' => undef,
'$"' => '$LIST_SEPARATOR',
'$_' => '$ARG',
'$:' => 'FORMAT_LINE_BREAK_CHARACTERS'
};
# This list was generated by misc/Perl5/core_redefine.pl
#
# These builtins can be user-redefined using plain subs.
# No other builtins can be redefined (the ones in $Perlito5::CORE_PROTO).
# The other builtins can still be used for method names.
our $CORE_OVERRIDABLE = {
'__FILE__' => 1,
'__LINE__' => 1,
'__PACKAGE__' => 1,
'abs' => 1,
'accept' => 1,
'alarm' => 1,
'and' => 1,
'atan2' => 1,
'bind' => 1,
'binmode' => 1,
'bless' => 1,
'break' => 1,
'caller' => 1,
'chdir' => 1,
'chmod' => 1,
'chomp' => 1,
'chop' => 1,
'chown' => 1,
'chr' => 1,
'chroot' => 1,
'close' => 1,
'closedir' => 1,
'cmp' => 1,
'connect' => 1,
'continue' => 1,
'cos' => 1,
'crypt' => 1,
'dbmclose' => 1,
'dbmopen' => 1,
'default' => 1,
'die' => 1,
'do' => 1,
'dump' => 1,
'each' => 1,
'endgrent' => 1,
'endhostent' => 1,
'endnetent' => 1,
'endprotoent' => 1,
'endpwent' => 1,
'endservent' => 1,
'eof' => 1,
'exec' => 1,
'exit' => 1,
'exp' => 1,
'fc' => 1,
'fcntl' => 1,
'fileno' => 1,
'flock' => 1,
'fork' => 1,
'formline' => 1,
'getc' => 1,
'getgrent' => 1,
'getgrgid' => 1,
'getgrnam' => 1,
'gethostbyaddr' => 1,
'gethostbyname' => 1,
'gethostent' => 1,
'getlogin' => 1,
'getnetbyaddr' => 1,
'getnetbyname' => 1,
'getnetent' => 1,
'getpeername' => 1,
'getpgrp' => 1,
'getppid' => 1,
'getpriority' => 1,
'getprotobyname' => 1,
'getprotobynumber' => 1,
'getprotoent' => 1,
'getpwent' => 1,
'getpwnam' => 1,
'getpwuid' => 1,
'getservbyname' => 1,
'getservbyport' => 1,
'getservent' => 1,
'getsockname' => 1,
'getsockopt' => 1,
'given' => 1,
'glob' => 1,
lib/Perlito5/Runtime.pm view on Meta::CPAN
'time' => 1,
'times' => 1,
'truncate' => 1,
'uc' => 1,
'ucfirst' => 1,
'umask' => 1,
'unlink' => 1,
'unpack' => 1,
'unshift' => 1,
'untie' => 1,
'utime' => 1,
'values' => 1,
'vec' => 1,
'wait' => 1,
'waitpid' => 1,
'wantarray' => 1,
'warn' => 1,
'when' => 1,
'write' => 1,
'xor' => 1,
};
# This list was generated by misc/Perl5/core_global_override.pl
#
# From perlsub:
#
# The built-ins "do", "require" and "glob" can also be overridden, but due
# to special magic, their original syntax is preserved, and you don't have
# to define a prototype for their replacements. (You can't override the "do
# BLOCK" syntax, though).
#
# "require" has special additional dark magic: if you invoke your "require"
# replacement as "require Foo::Bar", it will actually receive the argument
# "Foo/Bar.pm" in @_. See "require" in perlfunc.
#
# And, as you'll have noticed from the previous example, if you override
# "glob", the "<*>" glob operator is overridden as well.
#
# In a similar fashion, overriding the "readline" function also overrides
# the equivalent I/O operator "<FILEHANDLE>". Also, overriding "readpipe"
# also overrides the operators `` and "qx//".
#
our $CORE_GLOBAL_OVERRIDABLE = {
'__FILE__' => 1,
'__LINE__' => 1,
'__PACKAGE__' => 1,
'abs' => 1,
'accept' => 1,
'alarm' => 1,
'and' => 1,
'atan2' => 1,
'bind' => 1,
'binmode' => 1,
'bless' => 1,
'caller' => 1,
'chdir' => 1,
'chmod' => 1,
'chomp' => 1,
'chop' => 1,
'chown' => 1,
'chr' => 1,
'chroot' => 1,
'close' => 1,
'closedir' => 1,
'cmp' => 1,
'connect' => 1,
'continue' => 1,
'cos' => 1,
'crypt' => 1,
'dbmclose' => 1,
'dbmopen' => 1,
'die' => 1,
'do' => 1,
'dump' => 1,
'each' => 1,
'endgrent' => 1,
'endhostent' => 1,
'endnetent' => 1,
'endprotoent' => 1,
'endpwent' => 1,
'endservent' => 1,
'eof' => 1,
'exec' => 1,
'exit' => 1,
'exp' => 1,
'fcntl' => 1,
'fileno' => 1,
'flock' => 1,
'fork' => 1,
'formline' => 1,
'getc' => 1,
'getgrent' => 1,
'getgrgid' => 1,
'getgrnam' => 1,
'gethostbyaddr' => 1,
'gethostbyname' => 1,
'gethostent' => 1,
'getlogin' => 1,
'getnetbyaddr' => 1,
'getnetbyname' => 1,
'getnetent' => 1,
'getpeername' => 1,
'getpgrp' => 1,
'getppid' => 1,
'getpriority' => 1,
'getprotobyname' => 1,
'getprotobynumber' => 1,
'getprotoent' => 1,
'getpwent' => 1,
'getpwnam' => 1,
'getpwuid' => 1,
'getservbyname' => 1,
'getservbyport' => 1,
'getservent' => 1,
'getsockname' => 1,
'getsockopt' => 1,
'glob' => 1,
'gmtime' => 1,
'hex' => 1,
'index' => 1,
lib/Perlito5/Runtime.pm view on Meta::CPAN
'sin' => 1,
'sleep' => 1,
'socket' => 1,
'socketpair' => 1,
'splice' => 1,
'sprintf' => 1,
'sqrt' => 1,
'srand' => 1,
'stat' => 1,
'substr' => 1,
'symlink' => 1,
'syscall' => 1,
'sysopen' => 1,
'sysread' => 1,
'sysseek' => 1,
'system' => 1,
'syswrite' => 1,
'tell' => 1,
'telldir' => 1,
'tie' => 1,
'tied' => 1,
'time' => 1,
'times' => 1,
'truncate' => 1,
'uc' => 1,
'ucfirst' => 1,
'umask' => 1,
'unlink' => 1,
'unpack' => 1,
'unshift' => 1,
'untie' => 1,
'utime' => 1,
'values' => 1,
'vec' => 1,
'wait' => 1,
'waitpid' => 1,
'wantarray' => 1,
'warn' => 1,
'write' => 1,
'xor' => 1,
};
# the CORE prototype list
# obtained with:
# $ perldoc -u PerlFunc | head -n300 | perl -ne ' push @x, /C<([^>]+)/g; END { eval { $p{"CORE::$_"} = prototype("CORE::$_") } for @x; use Data::Dumper; print Dumper \%p } ' > ~/tmp/core.pm
our $CORE_PROTO = {
'CORE::abs' => '_',
'CORE::accept' => '**',
'CORE::alarm' => '_',
'CORE::atan2' => '$$',
'CORE::bind' => '*$',
'CORE::binmode' => '*;$',
'CORE::bless' => '$;$',
'CORE::break' => '',
'CORE::caller' => ';$',
'CORE::chdir' => ';$',
'CORE::chmod' => '@',
'CORE::chomp' => '_', # original 'undef',
'CORE::chop' => '_', # original 'undef',
'CORE::chown' => '@',
'CORE::chr' => '_',
'CORE::chroot' => '_',
'CORE::close' => ';*',
'CORE::closedir' => '*',
'CORE::connect' => '*$',
'CORE::continue' => '',
'CORE::cos' => '_',
'CORE::crypt' => '$$',
'CORE::dbmclose' => '\\%',
'CORE::dbmopen' => '\\%$$',
'CORE::default' => undef,
'CORE::defined' => '_', # original 'undef',
'CORE::delete' => '$', # original 'undef'
'CORE::die' => '@',
'CORE::do' => undef,
'CORE::dump' => '',
'CORE::each' => '+',
'CORE::endgrent' => '',
'CORE::endhostent' => '',
'CORE::endnetent' => '',
'CORE::endprotoent' => '',
'CORE::endpwent' => '',
'CORE::endservent' => '',
'CORE::eof' => ';*',
'CORE::eval' => '_', # original undef
'CORE::exec' => undef,
'CORE::exists' => '$', # original 'undef',
'CORE::exit' => ';$',
'CORE::exp' => '_',
'CORE::fc' => '_',
'CORE::fcntl' => '*$$',
'CORE::fileno' => '*',
'CORE::flock' => '*$',
'CORE::fork' => '',
'CORE::format' => undef,
'CORE::formline' => '$@',
'CORE::getc' => ';*',
'CORE::getgrent' => '',
'CORE::getgrgid' => '$',
'CORE::getgrnam' => '$',
'CORE::gethostbyaddr' => '$$',
'CORE::gethostbyname' => '$',
'CORE::gethostent' => '',
'CORE::getlogin' => '',
'CORE::getnetbyaddr' => '$$',
'CORE::getnetbyname' => '$',
'CORE::getnetent' => '',
'CORE::getpeername' => '*',
'CORE::getpgrp' => ';$',
'CORE::getppid' => '',
'CORE::getpriority' => '$$',
'CORE::getprotobyname' => '$',
'CORE::getprotobynumber' => '$',
'CORE::getprotoent' => '',
'CORE::getpwent' => '',
'CORE::getpwnam' => '$',
'CORE::getpwuid' => '$',
'CORE::getservbyname' => '$$',
'CORE::getservbyport' => '$$',
'CORE::getservent' => '',
( run in 1.169 second using v1.01-cache-2.11-cpan-140bd7fdf52 )