Gecko [ www.foryou-vip.com ]

Name	Size	Permission	Date
Carp	[ DIR ]	drwxrwxrwx	2020-08-24 23:41
Exporter	[ DIR ]	drwxrwxrwx	2020-08-24 23:41
File	[ DIR ]	drwxrwxrwx	2020-08-24 23:41
Getopt	[ DIR ]	drwxrwxrwx	2020-08-24 23:41
Hash	[ DIR ]	drwxrwxrwx	2020-08-24 23:41
IO	[ DIR ]	drwxrwxrwx	2020-08-24 23:41
IPC	[ DIR ]	drwxrwxrwx	2020-08-24 23:41
List	[ DIR ]	drwxrwxrwx	2020-08-24 23:41
Scalar	[ DIR ]	drwxrwxrwx	2020-08-24 23:41
Text	[ DIR ]	drwxrwxrwx	2020-08-24 23:41
Tie	[ DIR ]	drwxrwxrwx	2020-08-24 23:41
auto	[ DIR ]	drwxrwxrwx	2017-06-01 17:09
unicore	[ DIR ]	drwxrwxrwx	2020-08-24 23:41
warnings	[ DIR ]	drwxrwxrwx	2020-08-24 23:41
AutoLoader.pm	5.36 KB	-rwxrwxrwx	2020-06-20 19:33
Carp.pm	19.67 KB	-rwxrwxrwx	2020-06-20 19:33
Config.pm	3.25 KB	-rwxrwxrwx	2020-06-20 19:33
Config_git.pl	409 B	-rwxrwxrwx	2020-06-20 19:33
Config_heavy.pl	49.46 KB	-rwxrwxrwx	2020-06-20 19:33
Cwd.pm	18.11 KB	-rwxrwxrwx	2020-06-20 19:33
DynaLoader.pm	10.21 KB	-rwxrwxrwx	2020-06-20 19:33
Errno.pm	4.77 KB	-rwxrwxrwx	2020-06-20 19:33
Exporter.pm	2.31 KB	-rwxrwxrwx	2020-06-20 19:33
Fcntl.pm	2.11 KB	-rwxrwxrwx	2020-06-20 19:33
FileHandle.pm	2.06 KB	-rwxrwxrwx	2020-06-20 19:33
IO.pm	472 B	-rwxrwxrwx	2020-06-20 19:33
POSIX.pm	19.41 KB	-rwxrwxrwx	2020-06-20 19:33
SelectSaver.pm	344 B	-rwxrwxrwx	2020-06-20 19:33
Socket.pm	13.24 KB	-rwxrwxrwx	2020-06-20 19:33
Symbol.pm	2.05 KB	-rwxrwxrwx	2020-06-20 19:33
XSLoader.pm	3.81 KB	-rwxrwxrwx	2020-06-20 19:33
attributes.pm	2.95 KB	-rwxrwxrwx	2020-06-20 19:33
base.pm	8.72 KB	-rwxrwxrwx	2020-06-20 19:33
bytes.pm	447 B	-rwxrwxrwx	2020-06-20 19:33
bytes_heavy.pl	758 B	-rwxrwxrwx	2020-06-20 19:33
constant.pm	5.6 KB	-rwxrwxrwx	2020-06-20 19:33
feature.pm	4.21 KB	-rwxrwxrwx	2020-06-20 19:33
fields.pm	4.9 KB	-rwxrwxrwx	2020-06-20 19:33
integer.pm	172 B	-rwxrwxrwx	2020-06-20 19:33
lib.pm	2.23 KB	-rwxrwxrwx	2020-06-20 19:33
locale.pm	3.34 KB	-rwxrwxrwx	2020-06-20 19:33
overload.pm	4.36 KB	-rwxrwxrwx	2020-06-20 19:33
overloading.pm	964 B	-rwxrwxrwx	2020-06-20 19:33
parent.pm	479 B	-rwxrwxrwx	2020-06-20 19:33
re.pm	8.44 KB	-rwxrwxrwx	2020-06-20 19:33
strict.pm	1.57 KB	-rwxrwxrwx	2020-06-20 19:33
utf8.pm	342 B	-rwxrwxrwx	2020-06-20 19:33
utf8_heavy.pl	30.87 KB	-rwxrwxrwx	2020-06-20 19:33
vars.pm	1.12 KB	-rwxrwxrwx	2020-06-20 19:33
warnings.pm	21.13 KB	-rwxrwxrwx	2020-06-20 19:33

Rename

# -*- buffer-read-only: t -*-
# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
# This file is built by regen/feature.pl.
# Any changes made here will be lost!

package feature;

our $VERSION = '1.42';

our %feature = (
    fc              => 'feature_fc',
    say             => 'feature_say',
    state           => 'feature_state',
    switch          => 'feature_switch',
    bitwise         => 'feature_bitwise',
    evalbytes       => 'feature_evalbytes',
    postderef       => 'feature_postderef',
    array_base      => 'feature_arybase',
    signatures      => 'feature_signatures',
    current_sub     => 'feature___SUB__',
    refaliasing     => 'feature_refaliasing',
    lexical_subs    => 'feature_lexsubs',
    postderef_qq    => 'feature_postderef_qq',
    unicode_eval    => 'feature_unieval',
    unicode_strings => 'feature_unicode',
);

our %feature_bundle = (
    "5.10"    => [qw(array_base say state switch)],
    "5.11"    => [qw(array_base say state switch unicode_strings)],
    "5.15"    => [qw(current_sub evalbytes fc say state switch unicode_eval unicode_strings)],
    "5.23"    => [qw(current_sub evalbytes fc postderef_qq say state switch unicode_eval unicode_strings)],
    "all"     => [qw(array_base bitwise current_sub evalbytes fc lexical_subs postderef postderef_qq refaliasing say signatures state switch unicode_eval unicode_strings)],
    "default" => [qw(array_base)],
);

$feature_bundle{"5.12"} = $feature_bundle{"5.11"};
$feature_bundle{"5.13"} = $feature_bundle{"5.11"};
$feature_bundle{"5.14"} = $feature_bundle{"5.11"};
$feature_bundle{"5.16"} = $feature_bundle{"5.15"};
$feature_bundle{"5.17"} = $feature_bundle{"5.15"};
$feature_bundle{"5.18"} = $feature_bundle{"5.15"};
$feature_bundle{"5.19"} = $feature_bundle{"5.15"};
$feature_bundle{"5.20"} = $feature_bundle{"5.15"};
$feature_bundle{"5.21"} = $feature_bundle{"5.15"};
$feature_bundle{"5.22"} = $feature_bundle{"5.15"};
$feature_bundle{"5.24"} = $feature_bundle{"5.23"};
$feature_bundle{"5.9.5"} = $feature_bundle{"5.10"};

our $hint_shift   = 26;
our $hint_mask    = 0x1c000000;
our @hint_bundles = qw( default 5.10 5.11 5.15 5.23 );

# This gets set (for now) in $^H as well as in %^H,
# for runtime speed of the uc/lc/ucfirst/lcfirst functions.
# See HINT_UNI_8_BIT in perl.h.
our $hint_uni8bit = 0x00000800;

# TODO:
# - think about versioned features (use feature switch => 2)

sub import {
    shift;

if (!@_) {
        croak("No features specified");
    }

__common(1, @_);
}

sub unimport {
    shift;

# A bare C<no feature> should reset to the default bundle
    if (!@_) {
	$^H &= ~($hint_uni8bit|$hint_mask);
	return;
    }

__common(0, @_);
}

sub __common {
    my $import = shift;
    my $bundle_number = $^H & $hint_mask;
    my $features = $bundle_number != $hint_mask
	&& $feature_bundle{$hint_bundles[$bundle_number >> $hint_shift]};
    if ($features) {
	# Features are enabled implicitly via bundle hints.
	# Delete any keys that may be left over from last time.
	delete @^H{ values(%feature) };
	$^H |= $hint_mask;
	for (@$features) {
	    $^H{$feature{$_}} = 1;
	    $^H |= $hint_uni8bit if $_ eq 'unicode_strings';
	}
    }
    while (@_) {
        my $name = shift;
        if (substr($name, 0, 1) eq ":") {
            my $v = substr($name, 1);
            if (!exists $feature_bundle{$v}) {
                $v =~ s/^([0-9]+)\.([0-9]+).[0-9]+$/$1.$2/;
                if (!exists $feature_bundle{$v}) {
                    unknown_feature_bundle(substr($name, 1));
                }
            }
            unshift @_, @{$feature_bundle{$v}};
            next;
        }
        if (!exists $feature{$name}) {
            unknown_feature($name);
        }
	if ($import) {
	    $^H{$feature{$name}} = 1;
	    $^H |= $hint_uni8bit if $name eq 'unicode_strings';
	} else {
            delete $^H{$feature{$name}};
            $^H &= ~ $hint_uni8bit if $name eq 'unicode_strings';
        }
    }
}

sub unknown_feature {
    my $feature = shift;
    croak(sprintf('Feature "%s" is not supported by Perl %vd',
            $feature, $^V));
}

sub unknown_feature_bundle {
    my $feature = shift;
    croak(sprintf('Feature bundle "%s" is not supported by Perl %vd',
            $feature, $^V));
}

sub croak {
    require Carp;
    Carp::croak(@_);
}

# ex: set ro: