Gecko [ oric.aiou.edu.pk ]

Name	Size	Permission
Carp	[ DIR ]	drwxr-xr-x
Exporter	[ DIR ]	drwxr-xr-x
File	[ DIR ]	drwxr-xr-x
Getopt	[ DIR ]	drwxr-xr-x
Hash	[ DIR ]	drwxr-xr-x
IO	[ DIR ]	drwxr-xr-x
IPC	[ DIR ]	drwxr-xr-x
List	[ DIR ]	drwxr-xr-x
Scalar	[ DIR ]	drwxr-xr-x
Text	[ DIR ]	drwxr-xr-x
Tie	[ DIR ]	drwxr-xr-x
auto	[ DIR ]	drwxr-xr-x
unicore	[ DIR ]	drwxr-xr-x
warnings	[ DIR ]	drwxr-xr-x
AutoLoader.pm	5.36 KB	-rw-r--r--
Carp.pm	24.79 KB	-rw-r--r--
Config.pm	3.2 KB	-rw-r--r--
Config_git.pl	409 B	-rw-r--r--
Config_heavy.pl	52.96 KB	-rw-r--r--
Cwd.pm	17.24 KB	-rw-r--r--
DynaLoader.pm	10.18 KB	-rw-r--r--
Errno.pm	4.82 KB	-rw-r--r--
Exporter.pm	2.31 KB	-rw-r--r--
Fcntl.pm	2.11 KB	-rw-r--r--
FileHandle.pm	2.06 KB	-rw-r--r--
IO.pm	469 B	-rw-r--r--
POSIX.pm	19.87 KB	-rw-r--r--
SelectSaver.pm	344 B	-rw-r--r--
Socket.pm	13.54 KB	-rw-r--r--
Symbol.pm	2.05 KB	-rw-r--r--
XSLoader.pm	3.87 KB	-rw-r--r--
attributes.pm	3 KB	-rw-r--r--
base.pm	8.7 KB	-rw-r--r--
bytes.pm	447 B	-rw-r--r--
bytes_heavy.pl	758 B	-rw-r--r--
constant.pm	5.6 KB	-rw-r--r--
feature.pm	4.7 KB	-rw-r--r--
fields.pm	4.89 KB	-rw-r--r--
integer.pm	172 B	-rw-r--r--
lib.pm	2.23 KB	-rw-r--r--
locale.pm	3.34 KB	-rw-r--r--
overload.pm	4.34 KB	-rw-r--r--
overloading.pm	964 B	-rw-r--r--
parent.pm	460 B	-rw-r--r--
re.pm	8.5 KB	-rw-r--r--
strict.pm	1.57 KB	-rw-r--r--
utf8.pm	313 B	-rw-r--r--
utf8_heavy.pl	26.66 KB	-rw-r--r--
vars.pm	1.12 KB	-rw-r--r--
warnings.pm	25.33 KB	-rw-r--r--

Code Editor : feature.pm

# -*- 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.54';

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

our %feature_bundle = (
    "5.10"    => [qw(say state switch)],
    "5.11"    => [qw(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)],
    "5.27"    => [qw(bitwise current_sub evalbytes fc postderef_qq say state switch unicode_eval unicode_strings)],
    "all"     => [qw(bitwise current_sub declared_refs evalbytes fc postderef_qq refaliasing say signatures state switch unicode_eval unicode_strings)],
    "default" => [qw()],
);

$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.25"} = $feature_bundle{"5.23"};
$feature_bundle{"5.26"} = $feature_bundle{"5.23"};
$feature_bundle{"5.28"} = $feature_bundle{"5.27"};
$feature_bundle{"5.29"} = $feature_bundle{"5.27"};
$feature_bundle{"5.30"} = $feature_bundle{"5.27"};
$feature_bundle{"5.9.5"} = $feature_bundle{"5.10"};
my %noops = (
    postderef => 1,
    lexical_subs => 1,
);
my %removed = (
    array_base => 1,
);

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

# 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}) {
            if (exists $noops{$name}) {
                next;
            }
            if (!$import && exists $removed{$name}) {
                next;
            }
            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:

${this.title}

Code Editor : feature.pm