CGI::Extratags: Useful extensions for the cgi module

SYNOPSIS

  use CGI::Extratags;
  $cgi = new CGI::Extratags;

print $cgi -> email ('[email protected]');

print $cgi -> jump ('CONTACT', 'contact us'); print $cgi -> mark ('CONTACT', $cgi -> h2 ('How to contact us'));

print $cgi -> row ('Date', 18, 1, 1966); print $cgi -> recall ('Debian CD', artnum => '0-123456');

CGI::Extratags adds several useful methods to the \s-1CGI\s0 class.

email \s-1ADDRESS\s0: print $cgi -> email ('[email protected]'); Produces \s-1HTML\s0 code for a link to an email \s-1ADDRESS\s0.
jump \s-1MARK\s0 \s-1TEXT\s0: print $cgi -> jump ('CONTACT', 'contact us'); Produces \s-1HTML\s0 code for a link pointing to a target within the current document.
mark \s-1NAME\s0 \s-1TEXT\s0: print $cgi -> mark ('CONTACT', $cgi -> h2 ('How to contact us')); Generates target \s-1NAME\s0 for hyperlinks.
row [\s-1ITEM\s0 ...]: print $cgi -> row ('Date', 18, 1, 1966); Produces \s-1HTML\s0 code for a table row with \s-1ITEM\s0 arguments as cell contents.
recall \s-1TEXT\s0 [\s-1NAME\s0 [\s-1VALUE\s0]] ...: foreach my $num (sort (keys %artmap)) { print $cgi -> recall ($artmap{$num}, artnum => $num); print $cgi -> br; } Produces a link to the script itself labeled with \s-1TEXT\s0. The \s-1NAME\s0/\s-1VALUE\s0 pairs will be passed as parameters.