(common.inc.plp)><:
Html({
title => 'cli cheat sheet',
version => '1.0',
description => [],
keywords => [qw'
'],
data => ['data/cli.inc.pl'],
});
my $cmd = Data('data/cli');
:>
CLI options
<:
sub showoption {
my ($info, $char, $span) = @_;
my ($alias, $help) = @{ $info // [] };
printf '';
$info or return;
my ($title) = $alias =~ m{--([\w-]+=?)}
or return print $char;
$title =~ s/-\K//g;
$title =~ s/deref\Kerence/./;
print $title;
}
my @colchars = ('a'..'z', '?');
print '';
print qq'' for scalar @colchars;
#say '';
for my $section (qw{thead tfoot}) {
print "<$section>↳";
print ' | ', EscapeHTML($_) for @colchars;
say '';
}
print ' | ';
for my $name (sort keys %$cmd) {
my $row = $cmd->{$name};
print '', $name;
showoption($row->{$_}, $_, !$row->{uc $_}) for @colchars;
print "\n\t |
---|
";
$row->{$_} and showoption($row->{$_}, $_) for map {uc} @colchars;
}
say ' ';
:>
supported
| unsupported
| alias
|
|