X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/1dee8e5f63eb2019ae3492931cd999593b63991d..d98df9cb4fb14f54acb85c59fcff90800be73e01:/perl.inc.pl?ds=inline
diff --git a/perl.inc.pl b/perl.inc.pl
index e26cbcd..f6f2b3f 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 => {
@@ -122,9 +122,9 @@ my $wbr = "\N{ZERO WIDTH SPACE}";
['state
', 'persistent my
variables (scalars only until 5.28)', {feature => 'state'}],
],
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)'],
],
@@ -212,7 +212,7 @@ my $wbr = "\N{ZERO WIDTH SPACE}";
['/(?[ 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,7 +225,7 @@ 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}],
[q"use warnings 'once'; $a
", 'variables $a and $b are exempt from used once warnings'],
@@ -245,13 +245,15 @@ 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}],
[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?
'],
+ ['use CGI
' => 'deprecated interface for serving http requests removed from core'
+ .', see CGI::Alternatives', {name => 'cgi'}],
],
unicode => '7.0',
release => '2015-06-01',
@@ -322,6 +324,7 @@ my $wbr = "\N{ZERO WIDTH SPACE}";
['m(\p{nv=/.*/})
', 'match unicode properties by regular expressions', {experimental => 'uniprop_wildcards'}],
['my $state if 0
', 'workaround for state
(deprecated since v5.10!) is now prohibited'],
[q"qr'\N'
", 'Delimiters must be graphemes; unescaped {
illegal; \N
in single quotes'],
+ ['use Locale::Codes
', 'removed from core, get actual lists from CPAN', {dropped => v5.30}],
],
unicode => '12.1',
release => '2019-05-22',
@@ -333,11 +336,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',
@@ -355,12 +358,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 => {
@@ -371,12 +374,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'}],
@@ -392,9 +395,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
@@ -405,4 +408,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',
+ },
}