You don't have permission to access this resource.
Additionally, a 403 Forbidden error was encountered while trying to use an ErrorDocument to handle the request.
)ˆ¿æ 0¾ä +ˆ 982â¾ä Ö +| Name | Last modified | Size | Description | |
|---|---|---|---|---|
| Parent Directory | - | |||
| COPYING | 2015-03-28 17:25 | 26K | ||
You don't have permission to access this resource.
Additionally, a 403 Forbidden error was encountered while trying to use an ErrorDocument to handle the request.
1ˆÓæ „YÒ¾ä ,9 1# -*- 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.27'; our %feature = ( fc => 'feature_fc', say => 'feature_say', state => 'feature_state', switch => 'feature_switch', evalbytes => 'feature_evalbytes', array_base => 'feature_arybase', current_sub => 'feature___SUB__', 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)], "all" => [qw(array_base current_sub evalbytes fc say 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.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 ); # 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) =head1 NAME feature - Perl pragma to enable new features =head1 SYNOPSIS use feature qw(say switch); given ($foo) { when (1) { say "\$foo == 1" } when ([2,3]) { say "\$foo == 2 || \$foo == 3" } when (/^a[bc]d$/) { say "\$foo eq 'abd' || \$foo eq 'acd'" } when ($_ > 100) { say "\$foo > 100" } default { say "None of the above" } } use feature ':5.10'; # loads all features available in perl 5.10 use v5.10; # implicitly loads :5.10 feature bundle =head1 DESCRIPTION It is usually impossible to add new syntax to Perl without breaking some existing