X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/37bb3836bf4e1890aaa1c5d76161f40587dd68d0..3f38a7192491a73a1527179cdd68218f023aed61:/perl.plp?ds=inline diff --git a/perl.plp b/perl.plp index 2d9cb01..fed88e2 100644 --- a/perl.plp +++ b/perl.plp @@ -2,12 +2,12 @@ Html({ title => 'perl version cheat sheet', - version => '1.5', + version => '1.11', keywords => [qw' perl version feature features comparison sheet cheat overview summary '], - stylesheet => [qw'light dark red'], + image => 'data/camels.jpg', data => ['perl.inc.pl'], }); @@ -113,7 +113,8 @@ sub featattrs ($attr) { $title = 'experimental'; } if (defined $attr->{dropped}) { - return '' unless exists $get{v}; + no warnings 'exiting'; + next unless exists $get{v}; # skip containing feature $title = sprintf 'removed in %vd', $_ for $attr->{dropped} || (); } elsif ($attr->{stable}) { @@ -130,6 +131,20 @@ sub featattrs ($attr) { $title = join ', ', $prefix, $title // (); $attr->{name} //= $attr->{feature}; } + if (defined $attr->{bundle}) { + if ($attr->{stable} and !$attr->{bundle}) { + $title .= ' then bundled'; + } + else { + my $v = 'bundled'; + $v .= ' in ' . join(' and ', + # specific version(s) distinct from stable or current + map { sprintf '%vd', $_ } + map { ref eq 'ARRAY' ? @{$_} : $_ } $_ + ) for $attr->{bundle} || (); + $title = join ', ', $title // (), $v; + } + } $title = $title ? sprintf ' (%s)', $title : ''; if (my $eg = $attr->{eg}) {