CGI::Extratags3pm

Usage

  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');

Overview

CGI::Extratags adds several useful methods to the CGI class.

email ADDRESS

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

Produces HTML code for a link to an email ADDRESS.

jump MARK TEXT

  print $cgi -> jump ('CONTACT', 'contact us');

Produces HTML code for a link pointing to a target within the current document.

mark NAME TEXT

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

Generates target NAME for hyperlinks.

row [ITEM ...]

  print $cgi -> row ('Date', 18, 1, 1966);

Produces HTML code for a table row with ITEM arguments as cell contents.

recall TEXT [NAME [VALUE]] ...

  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 TEXT. The NAME/VALUE pairs will be passed as parameters.