X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/d0304c2088dd2e893c5ad3408b5693ed4ebfc84c..81aefba6ac586eccbe18b4e90efc175e34fff5ad:/perl.plp diff --git a/perl.plp b/perl.plp index f4360c5..20eafc7 100644 --- a/perl.plp +++ b/perl.plp @@ -2,7 +2,7 @@ Html({ title => 'perl version cheat sheet', - version => 'v1.0', + version => '1.1', keywords => [qw' perl version feature features comparison sheet cheat overview summary @@ -29,9 +29,20 @@ for my $vernum (reverse sort keys %{$info}) { print '
'."\n"; printf '

%vd %s

'."\n", $vernum, $verrow->{release}; for (@{ $verrow->{new} }) { - if (my $aside = defined $_->[2] && 'experimental') { - $aside .= sprintf ' until %vd', $_->[2] if ref \$_->[2] eq 'VSTRING'; - $_->[1] .= qq{ ($aside)}; + if (defined (my $experimental = $_->[2])) { + my $title = 'experimental'; + my $class = ' class="ex"'; + if (ref \$experimental eq 'VSTRING') { + $title = sprintf('%s %vd', + $experimental =~ s/^\0// ? 'removed in ' : "$title until", + $experimental, + ); + $experimental = $_->[3]; # optional additional class + } + if ($experimental) { + $class .= sprintf ' title="%s"', $experimental; + } + $_->[1] .= qq{ ($title)}; } printf '
%s
%s'."\n", @{$_}, '
' }