summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
00e00b2)
Lax grammar no longer allowed, see perl5180delta.
-for my $var qw(get post cookies header) {
+for my $var (qw[ get post cookies header ]) {
printf("<tr><th>%s{'%s'}</th><td>%s</td></tr>\n",
$var, $_, defined $$var{$_} ? $$var{$_} : "<i>no value</i>"
) for sort keys %$var;
printf("<tr><th>%s{'%s'}</th><td>%s</td></tr>\n",
$var, $_, defined $$var{$_} ? $$var{$_} : "<i>no value</i>"
) for sort keys %$var;