Gecko [ nrupathungauniversityblr.ac.in ]

Name	Size	Permission
App	[ DIR ]	drwxr-xr-x
Archive	[ DIR ]	drwxr-xr-x
Attribute	[ DIR ]	drwxr-xr-x
B	[ DIR ]	drwxr-xr-x
CPAN	[ DIR ]	drwxr-xr-x
Carp	[ DIR ]	drwxr-xr-x
Class	[ DIR ]	drwxr-xr-x
Compress	[ DIR ]	drwxr-xr-x
Config	[ DIR ]	drwxr-xr-x
DBM_Filter	[ DIR ]	drwxr-xr-x
Devel	[ DIR ]	drwxr-xr-x
Digest	[ DIR ]	drwxr-xr-x
Encode	[ DIR ]	drwxr-xr-x
Exporter	[ DIR ]	drwxr-xr-x
ExtUtils	[ DIR ]	drwxr-xr-x
File	[ DIR ]	drwxr-xr-x
Filter	[ DIR ]	drwxr-xr-x
Getopt	[ DIR ]	drwxr-xr-x
HTTP	[ DIR ]	drwxr-xr-x
I18N	[ DIR ]	drwxr-xr-x
IO	[ DIR ]	drwxr-xr-x
IPC	[ DIR ]	drwxr-xr-x
JSON	[ DIR ]	drwxr-xr-x
Locale	[ DIR ]	drwxr-xr-x
Math	[ DIR ]	drwxr-xr-x
Memoize	[ DIR ]	drwxr-xr-x
Module	[ DIR ]	drwxr-xr-x
Net	[ DIR ]	drwxr-xr-x
Params	[ DIR ]	drwxr-xr-x
Parse	[ DIR ]	drwxr-xr-x
Perl	[ DIR ]	drwxr-xr-x
PerlIO	[ DIR ]	drwxr-xr-x
Pod	[ DIR ]	drwxr-xr-x
Search	[ DIR ]	drwxr-xr-x
TAP	[ DIR ]	drwxr-xr-x
Term	[ DIR ]	drwxr-xr-x
Test	[ DIR ]	drwxr-xr-x
Test2	[ DIR ]	drwxr-xr-x
Text	[ DIR ]	drwxr-xr-x
Thread	[ DIR ]	drwxr-xr-x
Tie	[ DIR ]	drwxr-xr-x
Time	[ DIR ]	drwxr-xr-x
Unicode	[ DIR ]	drwxr-xr-x
User	[ DIR ]	drwxr-xr-x
autodie	[ DIR ]	drwxr-xr-x
encoding	[ DIR ]	drwxr-xr-x
overload	[ DIR ]	drwxr-xr-x
pod	[ DIR ]	drwxr-xr-x
unicore	[ DIR ]	drwxr-xr-x
version	[ DIR ]	drwxr-xr-x
warnings	[ DIR ]	drwxr-xr-x
AnyDBM_File.pm	2.56 KB	-rw-r--r--
AutoLoader.pm	5.36 KB	-rw-r--r--
AutoSplit.pm	19.18 KB	-rw-r--r--
Benchmark.pm	30.3 KB	-rw-r--r--
CORE.pod	3.11 KB	-rw-r--r--
CPAN.pm	138.12 KB	-rw-r--r--
Carp.pm	19.68 KB	-rw-r--r--
DB.pm	18.48 KB	-rw-r--r--
DBM_Filter.pm	14.05 KB	-rw-r--r--
Digest.pm	10.45 KB	-rw-r--r--
DirHandle.pm	1.52 KB	-rw-r--r--
Dumpvalue.pm	17.14 KB	-rw-r--r--
English.pm	4.65 KB	-rw-r--r--
Env.pm	5.39 KB	-rw-r--r--
Exporter.pm	2.31 KB	-rw-r--r--
Fatal.pm	56.91 KB	-rw-r--r--
FileCache.pm	5.44 KB	-rw-r--r--
FileHandle.pm	2.06 KB	-rw-r--r--
FindBin.pm	4.45 KB	-rw-r--r--
Internals.pod	2.52 KB	-rw-r--r--
Memoize.pm	35.34 KB	-rw-r--r--
NEXT.pm	18.4 KB	-rw-r--r--
PerlIO.pm	10.21 KB	-rw-r--r--
Safe.pm	24.49 KB	-rw-r--r--
SelectSaver.pm	344 B	-rw-r--r--
SelfLoader.pm	17.28 KB	-rw-r--r--
Symbol.pm	2.05 KB	-rw-r--r--
Test.pm	29.35 KB	-rw-r--r--
Test2.pm	6.24 KB	-rw-r--r--
Thread.pm	8.09 KB	-rw-r--r--
UNIVERSAL.pm	6.44 KB	-rw-r--r--
XSLoader.pm	3.83 KB	-rw-r--r--
_charnames.pm	32.39 KB	-rw-r--r--
autodie.pm	12.58 KB	-rw-r--r--
autouse.pm	4.14 KB	-rw-r--r--
base.pm	8.72 KB	-rw-r--r--
bigint.pm	22.85 KB	-rw-r--r--
bignum.pm	20.64 KB	-rw-r--r--
bigrat.pm	15.78 KB	-rw-r--r--
blib.pm	2.04 KB	-rw-r--r--
bytes.pm	447 B	-rw-r--r--
bytes_heavy.pl	758 B	-rw-r--r--
charnames.pm	20.38 KB	-rw-r--r--
constant.pm	5.6 KB	-rw-r--r--
deprecate.pm	3.43 KB	-rw-r--r--
diagnostics.pm	18.59 KB	-rw-r--r--
dumpvar.pl	15.19 KB	-rw-r--r--
experimental.pm	5.66 KB	-rw-r--r--
feature.pm	4.39 KB	-rw-r--r--
fields.pm	4.9 KB	-rw-r--r--
filetest.pm	3.91 KB	-rw-r--r--
if.pm	3.26 KB	-rw-r--r--
integer.pm	172 B	-rw-r--r--
less.pm	3.13 KB	-rw-r--r--
locale.pm	3.34 KB	-rw-r--r--
meta_notation.pm	2.07 KB	-rw-r--r--
ok.pm	967 B	-rw-r--r--
open.pm	7.83 KB	-rw-r--r--
overload.pm	4.34 KB	-rw-r--r--
overloading.pm	964 B	-rw-r--r--
parent.pm	478 B	-rw-r--r--
perl5db.pl	309.01 KB	-rw-r--r--
perlfaq.pm	78 B	-rw-r--r--
sigtrap.pm	7.43 KB	-rw-r--r--
sort.pm	5.94 KB	-rw-r--r--
strict.pm	1.57 KB	-rw-r--r--
subs.pm	848 B	-rw-r--r--
utf8.pm	342 B	-rw-r--r--
utf8_heavy.pl	30.87 KB	-rw-r--r--
vars.pm	1.12 KB	-rw-r--r--
version.pm	1.67 KB	-rw-r--r--
version.pod	9.63 KB	-rw-r--r--
vmsish.pm	4.21 KB	-rw-r--r--
warnings.pm	21.44 KB	-rw-r--r--

Name

Size

Permission

Action

[ DIR ]

drwxr-xr-x

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.47';

our %feature = (
    fc              => 'feature_fc',
    say             => 'feature_say',
    state           => 'feature_state',
    switch          => 'feature_switch',
    bitwise         => 'feature_bitwise',
    evalbytes       => 'feature_evalbytes',
    array_base      => 'feature_arybase',
    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(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 declared_refs evalbytes fc 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.25"} = $feature_bundle{"5.23"};
$feature_bundle{"5.26"} = $feature_bundle{"5.23"};
$feature_bundle{"5.9.5"} = $feature_bundle{"5.10"};
my %noops = (
    postderef => 1,
    lexical_subs => 1,
);

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}) {
            if (exists $noops{$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