<(common.inc.plp)><:
+my $wordlist = 'wordlist.inc.pl';
Html({
title => 'words cheat sheet',
version => '1.0',
keywords => [qw'
language
'],
- data => ['wordlist.inc.pl'],
+ data => [$wordlist],
raw => <<'EOT',
<style>
ul {
sub printimgs {
say '<ul>';
for my $row (@_) {
- printf '<li%s>', defined $table{$row} && ' class="parent"';
+ printf '<li%s>', defined $table->{$row} && ' class="parent"';
print showimg($row);
- printimgs(@{$_}) for $table{$row} // ();
+ printimgs(@{$_}) for $table->{$row} // ();
print '</li>';
}
say '</ul>';
}
-printimgs($table{''});
+printimgs(@{$table->{''}});