X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/7dd2cb8d36cf3408282faa868def41d4072bbd28..3f38a7192491a73a1527179cdd68218f023aed61:/perl.inc.pl?ds=sidebyside diff --git a/perl.inc.pl b/perl.inc.pl index 449335b..41903a6 100644 --- a/perl.inc.pl +++ b/perl.inc.pl @@ -76,7 +76,7 @@ my $wbr = "\N{ZERO WIDTH SPACE}"; ], modules => [ [bignum => 'transparent big number support', 'length 1e100 == 101'], - [if => 'conditional module inclusion', 'no if $] >= 5.022, "warnings", "redundant"'], + [if => 'conditional module inclusion', 'no if $] >= 5.022, "warnings", "redundant"'], [sort => 'override sort() algorithm', {dropped => v5.28, eg => 'sort::current eq "stable"'}], [Digest => 'calculate various message digests (data hashes)', '$hash = sha256_hex($data)'], [Encode => 'character set conversion', 'encode("utf8", decode("iso-8859-1", $octets))'], @@ -86,7 +86,7 @@ my $wbr = "\N{ZERO WIDTH SPACE}"; ['Memoize' => 'remember function results, trading space for time', 'memoize "stat"'], ['MIME::Base64' => 'base64 encoded strings as in email attachments'], ['Test::More' => 'modern framework for unit testing', 'is $got, $expected'], - ['Time::HiRes' => 'high resolution timers', '$μs = [gettimeofday]; sleep .1;'.$wbr.' $elapsed = tv_interval $μs'], + ['Time::HiRes' => 'high resolution timers', '$μs = [gettimeofday]; sleep .1;'.$wbr.' $elapsed = tv_interval $μs'], ], release => '2002-07-18', distro => { @@ -100,17 +100,18 @@ my $wbr = "\N{ZERO WIDTH SPACE}"; opensuse => '8.1', # 2002-09 eol (SLES8 2002-10 eol 2007-12 ltss 2009-12) }, distrosum => "RHEL 3, SLES 8, AIX 5/6 until 2017, Solaris 10 until 2021", - versum => 'stable minimum during 20[01]\d', + versum => 'stable minimum upto 2021', support => '2021-01', # solaris unicode => '3.2.0', }, v5.10 => { new => [ + ['use v5.10', 'minimal perl version with bundled features (pragma to lexically enable backwards-incompatible syntax)'], ['//', 'defined-or operator'], ['~~', 'smart-match operator to compare different data types (updated in v5.10.1)', {experimental => 'smartmatch'}], - ['say', 'print with newline, equivalent to print @_, "\n"', {feature => 'say'}], - ['given', 'switch statement to smart-match with when/default', {name => 'switch', feature => 'switch', experimental => 'smartmatch'}], + ['say', 'print with newline, equivalent to print @_, "\n"', {feature => 'say', bundle => 0}], + ['given', 'switch statement to smart-match with when/default', {name => 'switch', feature => 'switch', bundle => 0, experimental => 'smartmatch'}], ['/(?<name>)/', 'named capture buffers into %+'], ['/(?1)/', 'recursive regular expression patterns'], ['/(?|)/', 'resets capture numbering for each contained branch'], @@ -119,12 +120,12 @@ my $wbr = "\N{ZERO WIDTH SPACE}"; ['/p', 'optionally preserve ${^MATCH} variables (avoiding $& penalty until COW in v5.20)'], ['/\v/, /\h/', 'vertical and horizontal whitespace escapes (\V \H to invert); also /\R/ for newlines'], ['my $_', 'lexically scoped version of the default variable', {experimental => 'lexical_topic', dropped => v5.23.4}], - ['state', 'persistent my variables (scalars only until 5.28)', {feature => 'state'}], + ['state', 'persistent my variables (scalars only until 5.28)', {feature => 'state', bundle => 0}], ], modules => [ - [autodie => 'replace builtin functions to throw exceptions instead of returning failure', 'eval {open ...} or $@->matches("open") || die'], + [autodie => 'replace builtin functions to throw exceptions instead of returning failure', 'eval {open ...} or $@->matches("open") || die'], # overloading - ['IO::Compress::Zip' => 'various file compression standards', 'zip IO::Uncompress::Gunzip->new("test.gz")'.$wbr.' => "recompressed.zip"'], + ['IO::Compress::Zip' => 'various file compression standards', 'zip IO::Uncompress::Gunzip'.$wbr.'->new("test.gz")'.$wbr.' => "recompressed.zip"'], ['Time::Piece' => 'timestamps as objects', 'localtime->year > 1900'], ['File::Fetch' => 'generic data retrieval/download', 'File::Fetch->new(uri => "http://localhost/")'.$wbr.'->fetch(to => \$slurp)'], ], @@ -145,7 +146,7 @@ my $wbr = "\N{ZERO WIDTH SPACE}"; v5.12 => { new => [ - ['package version', 'package NAME VERSION shorthand for our $VERSION'], + ['package version', 'package NAME VERSION shorthand for our $VERSION'], ['...', 'yada-yada operator: code placeholder'], ['use 5.012', 'implicit strict if use VERSION >= v5.12'], ['… when', 'when is now allowed to be used as a statement modifier'], @@ -172,7 +173,9 @@ my $wbr = "\N{ZERO WIDTH SPACE}"; [q"use re '/flags'", 'customise default modifiers'], ['/(?^)/', 'construct to reset to default modifiers'], ['FH->method', 'filehandle method calls load IO::File on demand (eg. STDOUT->flush)'], - ['\o{}', 'escape sequence for octal values beyond \777'], + ['\o{}', 'escape sequence for octal values beyond 0777'], + ['package {}', 'package declaration in scope of code block only'], + ['multiple: labels:', 'statement labels allowed in all places, even before other labels'], ], modules => [ [JSON => 'interface with data in JavaScript Object Notation', 'decode_json <>'], @@ -192,8 +195,9 @@ my $wbr = "\N{ZERO WIDTH SPACE}"; v5.16 => { new => [ - ['__SUB__', 'current subroutine reference', {feature => 'current_sub'}], - ['fc, "\F"', 'unicode foldcase to compare case-insensitively', {feature => 'fc'}], + ["no feature ${wbr}'array_base'", 'disables $[ to alter the 0 index of the first array element or substring character', {bundle => 0, dropped => v5.30}], + ['__SUB__', 'current subroutine reference', {feature => 'current_sub', bundle => 0}], + ['fc, "\F"', 'unicode foldcase to compare case-insensitively', {feature => 'fc', bundle => 0}], ['"\N{}"', 'automatic use charnames qw( :full :short )'], ], release => '2012-05-20', @@ -208,11 +212,12 @@ my $wbr = "\N{ZERO WIDTH SPACE}"; v5.18 => { new => [ + ['PERL_PERTURB_KEYS=1', 'hash overhaul; order is randomised instead of being semi-repeatable', {eg => 'each %{{%hash}} ne each %{{%hash}}'}], ['${^LAST_FH}', 'last read filehandle (used by $.)'], ['/(?[ a + b ])/', 'regex set operations (character subtraction -, union +, intersection &, xor ^)', {experimental => 'regex_sets', stable => v5.36}], ['my sub', 'lexical subroutines (also state, our); buggy before v5.22', {experimental => 'lexical_subs', stable => v5.26}], ['next $expression', 'loop controls allow runtime expressions'], - [q"no warnings 'experimental::…'", 'mechanism for experimental features, as of now required for smartmatch'], + [q"no warnings 'experimental::…'", 'mechanism for experimental features, as of now required for smartmatch'], ], release => '2013-05-18', distro => { @@ -225,9 +230,9 @@ my $wbr = "\N{ZERO WIDTH SPACE}"; v5.20 => { new => [ - ['sub ($var)', 'subroutine signatures', {feature => 'signatures', experimental => 'signatures', stable => v5.36}], + ['sub ($var)', 'subroutine signatures', {feature => 'signatures', experimental => 'signatures', stable => v5.36, bundle => 0}], ['%hash{…}', 'hash slices return key+value pairs'], - ['[]->@*', 'postfix dereferencing (also e.g. $scalar->$* for $$scalar)', {feature => 'postderef, postderef_qq', experimental => 'postderef', stable => v5.23.1}], + ['[]->@*', 'postfix dereferencing (also e.g. $scalar->$* for $$scalar)', {feature => 'postderef, postderef_qq', experimental => 'postderef', stable => v5.24, bundle => 0}], [q"use warnings 'once'; $a", 'variables $a and $b are exempt from used once warnings'], ], unicode => '6.3', @@ -245,10 +250,10 @@ my $wbr = "\N{ZERO WIDTH SPACE}"; v5.22 => { new => [ ['\$alias =', 'aliasing via reference (scoped as of v5.25.3)', {experimental => 'refaliasing'}], - ['<<>>', 'safe readline ignoring open flags in arguments'], + ['<<…>>', 'safe readline ignoring open flags in arguments'], ['/()/n', 'flag to disable numbered capturing, turning () into (?:)'], ['/\b{}/', 'boundary types: gcb (grapheme cluster), sb (sentence), wb (word)'], - ['&.', '& | ^ ~ consistently numeric, dotted operators for strings', {feature => 'bitwise', experimental => 'bitwise', stable => v5.28}], + ['&.', '& | ^ ~ consistently numeric, dotted operators for strings', {feature => 'bitwise', experimental => 'bitwise', stable => v5.28, bundle => 0}], [q"use re 'strict'", 'apply stricter syntax rules to regular expression patterns', {experimental => 're_strict'}], ['0x.beep+0', q"hexadecimal floating point notation with binary power; printf '%a' to display"], ['??', 'single match shorthand (deprecated since v5.14) requires the operator m?PATTERN?'], @@ -280,6 +285,7 @@ my $wbr = "\N{ZERO WIDTH SPACE}"; v5.26 => { new => [ + ["use lib '.'", 'current directory no longer included in default module search path @INC'], ['<<~EOT', 'indented here-docs, strips same whitespace before delimiter in each line'], ['@{^CAPTURE}', q"array of last match's captures, so ${^CAPTURE}[0] is $1"], ['//xx', 'extended modifier to also ignore whitespace in bracketed character classes'], @@ -336,11 +342,11 @@ my $wbr = "\N{ZERO WIDTH SPACE}"; v5.32 => { new => [ - ['isa', 'infix operator to check class instance', {feature => 'isa', experimental => 'isa', stable => v5.36}], - ['$min < $_ <= $max', 'chained comparison repeats inner part as $min < $_ and $_ <= $max'], + ['isa', 'infix operator to check class instance', {feature => 'isa', experimental => 'isa', stable => v5.36, bundle => 0}], + ['$min < $_ <= $max', 'chained comparison repeats inner part as $min < $_ and $_ <= $max'], ['/\p{Name=$var}/', 'match Unicode Name property like \N{} but with interpolation and subpatterns'], [q"open F, '+>>', undef", 'respect append mode on temporary files with mixed access'], - ["no feature 'indirect'", 'disable indirect object notation such as new Class instead of Class->new'], + ["no feature 'indirect'", 'disable indirect object notation such as new Class instead of Class->new', {name => 'indirect', bundle => v5.36}], ['streamzip', 'program distributed with core IO::Compress::Base to compress stdin into a zip container'], ], unicode => '13.0', @@ -358,12 +364,12 @@ my $wbr = "\N{ZERO WIDTH SPACE}"; v5.34 => { new => [ - ['try {} catch', 'exception handling similar to eval blocks', {feature => 'try', experimental => 'try'}], + ['try {} catch', 'exception handling similar to eval blocks', {feature => 'try', experimental => 'try', stable => v5.40, bundle => 0}], ['/{,n}/', 'empty lower bound quantifier is accepted as shorthand for 0'], ['\x{ … }', 'insignificant space within curly braces, also for \b{}, \g{}, \k{}, \N{}, \o{} as well as /{m,n}/ quantifiers'], ['0o0', 'octal prefix 0o alternative to 0… and oct'], - ['re::optimization(qr//)', 'debug regular expression optimization information discovered at compile time'], - ['no feature …', 'disable discouraged practices of bareword_filehandles and multidimensional array emulation'], + ["re::optimization(${wbr}qr//)", 'debug regular expression optimization information discovered at compile time'], + ['no feature …', 'disable discouraged practices of multidimensional and bareword_filehandles array emulation', {name => 'feature_534', bundle => [v5.36, v5.38]}], ], release => '2021-05-20', distro => { @@ -374,12 +380,12 @@ my $wbr = "\N{ZERO WIDTH SPACE}"; v5.36 => { new => [ - ['use v5.36', "use warnings; use feature qw'signatures isa'; no feature qw'indirect multidimensional switch'"], - ['use builtin', 'namespace for interpreter functions, such as weaken and blessed from Scalar::Util, ceil/floor from POSIX, and trim like String::Util', {experimental => 'builtin'}], + ['use v5.36', q{use warnings; use feature qw'signatures isa'; no feature qw'indirect multidimensional switch'}], + ['use builtin', 'namespace for interpreter functions, such as weaken and blessed from Scalar::Util, ceil/floor from POSIX, and trim like String::Util', {experimental => 'builtin', stable => v5.40, bundle => 0}], ['is_bool(!0)', 'distinguish scalar variable types (by builtin functions) for data interoperability', {name => 'is_bool'}], - ['for my ($k, $v) (%hash)', 'iterate over multiple values at a time (including builtin::indexed for arrays)', {experimental => 'for_list', feature => 'for_list'}], + ['for my ($k, $v) (%hash)', 'iterate over multiple values at a time (including builtin::indexed for arrays)', {experimental => 'for_list', feature => 'for_list', stable => v5.40}], ['defer {}', 'queue code to be executed when going out of scope', {feature => 'defer', experimental => 'defer'}], - ['try {} finally {}', 'run code at the end of a try construct regardless of failure', {name => 'finally', feature => 'try', experimental => 'try'}], + ['try {} finally {}', 'run code at the end of a try construct regardless of failure', {name => 'finally', feature => 'try', experimental => 'try', stable => 0}], # not stable in v5.40 ['q«…»', 'unicode delimiters for quoting operators', {experimental => 'extra_paired_delimiters'}], ['sub ($var) {!pop}', 'signatured subs are stable, but mixing with the arguments array @_ remains experimental', {feature => 'signatures', experimental => 'args_array_with_signatures'}], ['$SIG{FPE}', 'floating-point exceptions no longer deferred but delivered immediately like other signals', {name => 'sig_fpe'}], @@ -395,9 +401,9 @@ my $wbr = "\N{ZERO WIDTH SPACE}"; v5.38 => { new => [ - ['use feature "module_true"', 'default in use 5.37 and up, also no feature "bareword_filehandles"'], + ['use feature "module_true"', 'packages implicitly return true, enabled along with no feature "bareword_filehandles"', {name => 'module_true', bundle => 0}], ['sub ($var ||= default)', 'assign values when false (or undefined on //=) instead of omitted'], - ['/(*{ … })/', 'optimistic eval: (?{ … }) with regex optimisations enabled'], + ['/(*{ … })/', 'optimistic eval: (?{ … }) with regex optimisations enabled'], ['class', "define object classes: packages with field variables and method subroutines", {feature => 'class', experimental => 'class'}], ['${^LAST_SUCCESSFUL_PATTERN}', 'explicit variable to access the previous match as in s//…/'], ['%{^HOOK}', "perform tasks require__before and require__after when calling require"], # also @INC hook enhancements @@ -408,4 +414,20 @@ my $wbr = "\N{ZERO WIDTH SPACE}"; unicode => '15.0', release => '2023-07-02', }, + + v5.40 => { + new => [ + ['use v5.40', 'import builtin functions and enable the try feature'], + ['__CLASS__', 'keyword to reference to the current class name, similar to __PACKAGE__', {feature => 'class', name => 'class_ref'}], + [':reader', 'attribute for field variables to create corresponding accessor methods', {feature => 'class'}], + ['^^', 'higher precedence logical xor operator, as || is to or'], + ['perl -M â€¦', 'whitespace allowed after -M options', {dropped => 0}], + ['builtin::inf, builtin::nan', 'constants equivalent to special floating point values infinity and Not a Number'], + ], + modules => [ + ['Test2::Suite' => 'comprehensive set of test tools for writing unit tests, providing a drop in replacement to Test::More'], + ['Term::Table' => 'format rows of data as ASCII tables, as in Test2 diffs', {dropped => 0}], + ], + release => '2024-06-09', + }, }