Html({
title => 'words cheat sheet',
version => '1.0',
+ lang => $lang,
description => "Visual words",
keywords => [qw'
language
sub showimg {
my ($id, $name) = @_;
my ($imgname) = $name =~ m{^([^/]+)};
- $name =~ s/\w{4} [^aoeuiyc\W] [rl]?+ \K (?= [^aoeuiy\W] [rl]? [aoeuiy] \w)/­/gx;
($name, my @morenames) = split m{/}, $name;
$name =~ s{\( ([^/]+) \)}{<small>$1</small>}x;
$name .= " <small>($_)</small>" for @morenames;