in reply to (jeffa) Re: Meta Tag Generator
in thread Meta Tag Generator

Good job, though in this case the subref approach is needlessly complex.
my $textfield = textfield({-size=>40}); my %name = ( author => $textfield, distributor => $textfield, copyright => $textfield, abstract => $textfield, keywords => textarea({-rows=>5,-columns=>30}), description => textfield({-rows=>5,-columns=>30}), distribution => popup_menu({-values=>['',@dist]}), robots => popup_menu({-values=>['',@robo]}), language => popup_menu({-values=>['',@lang]}), rating => popup_menu({-values=>['',@rate]}), ); print header, start_html('Meta Tag Generator'), start_form, table( map { Tr( td(ucfirst $_ . ': '), td($name{$_}), ) } keys %name ), submit('submit'), end_form, ;

Makeshifts last the longest.