--- /dev/null
+use utf8;
+
++{
+ v5.6 => [
+ ['use utf8'],
+ ['\N{named character}'],
+ ['our'],
+ ['v1.2.3'],
+ ['sub :locked :method'],
+ ['open $fh, $mode, $expr'],
+ ],
+ v5.8 => [
+ ['unicode overhaul'],
+ ['PerlIO'],
+ ],
+ v5.10 => [
+ ['//', 'defined-or operator'],
+ ['~~', 'smart-match operator to compare different data types'],
+ ['given', 'switch statement to smart-match with when/default'],
+ ['/(?<name>)/ and $+{name}', 'named caputer buffers'],
+ ['s/keep\K//', 'floating positive lookbehind, efficient alternative for s/(keep)/$1/'],
+ ['/\v/, /\h/', 'vertical and horizontal whitespace escapes'],
+ ['my $_', 'lexically scoped version of the default variable'],
+ ],
+ v5.12 => [
+ ['package version', 'package NAME VERSION shorthand for our $VERSION"'],
+ ['...', 'yada-yada operator: code placeholder'],
+ ['use strict', 'Implicit strictures if use VERSION >= 5.12'],
+ ['... when', '"when" is now allowed to be used as a statement modifier'],
+ ],
+ v5.14 => [
+ ['s///r', 'non-destructive substitution'],
+ ['/(?^)/', 'construct to reset to default modifiers'],
+ ['/(?{ m// })/', 'regular expressions can be nested in /(?{})/ and /(??{})/'],
+ ["use re '/flags'", 'customize default modifiers'],
+ ['each $ref e.a.', 'array and hash container functions accept references'],
+ ],
+}
--- /dev/null
+<(common.inc.plp)><:
+
+Html({
+ title => 'perl version cheat sheet',
+ version => 'v1.0',
+ keywords => [qw'
+ perl version feature features comparison
+ sheet cheat overview summary
+ '],
+ stylesheet => [qw'light dark red'],
+});
+
+:>
+<h1>Perl cheat sheets</h1>
+
+<:
+my $info = do 'perl.inc.pl' or die $@ // $!;
+for my $ver (reverse sort keys %{$info}) {
+ print '<div class="section">'."\n";
+ printf '<h2>%vd</h2><dl>'."\n", $ver;
+ printf '<dt>%s<dd>%s', Entity(@{$_}), '<br/>' for @{ $info->{$ver} };
+ print "</dl>\n";
+ print "</div>\n\n";
+}
+