Sagar R. Shah > CGI-Widget-Tabs > CGI::Widget::Tabs



Annotate this POD


Open  0
View/Report Bugs
Module Version: 1.14   Source  


I am not planning to make any changes to this module as I have not had to use it in any projects of my own for the last couple of years. I am aware that others are using it.

If anyone would like to to take over maintenance/development of this module pleas get in touch.


CGI::Widget::Tabs - Create tab widgets in HTML


    use CGI::Widget::Tabs;
    my $tab = CGI::Widget::Tabs->new;

    use CGI;
    my $cgi = CGI->new;            # interface to the query params

    $tab->headings(@titles);       # e.g. qw/Drivers Cars Courses/
    $tab->default("Courses");      # the default active tab
    $tab->force_active("Courses"); # forceably make this the active tab
    $tab->active;                  # the currently active tab
    $tab->class("my_tab");         # the CSS class to use for markup
    $tab->cgi_object($cgi);        # the object holding the query params
    $tab->cgi_param("t");          # the CGI query parameter to use
    $tab->drop_params("ays");      # do NOT pass on "Are You Sure?" answers
    $tab->wrap(4);                 # wrap after 4 headings...
    $tab->indent(1);               # ...and add indentation
    $tab->render;                  # the resulting HTML code
    $tab->display;                 # same as `print $tab->render'

    $h = $tab->heading;               # new OO heading for this tab
    $h->text("TV Listings");          # heading text
    $h->key("tv");                    # key identifying this heading
    $h->raw(1);                       # switch off HTML encoding
    $h->url("");    # redirect URL for this heading
    $h->class("red");                 # this heading has it's own class

    # See the EXAMPLE section for a complete example



CGI::Widget::Tabs lets you simulate tab widgets in HTML. You could benefit from a tab widget if you want to serve only one page. Depending on the tab selected you fetch and display the underlying data. There are three main reasons for taking this approach:

1. For the end user not to be directed to YAL or YAP (yet another link / yet another page), but keep it all together: The single point of entry paradigm.

2. As a consequence the end user deals with a more consistent and integrated GUI. This will give a better "situational awareness" within the application.

3. For the Perl hacker to handle multiple related data sources within the same script environment.

As an example the following tabs could be used on a web page for someone's spotting hobby:

      __________      __________      __________
     /  Planes  \    /  Trains  \    / Classics \
        /  Bikes  \

As you can see, the headings wrap at three and a small indentation is added to the start of the next row. The nice thing about CGI::Widget::Tabs is that the tabs know their internal state. So you can ask a tab for instance which heading has been clicked by the user. This way you get instant feedback.

"Hey Gorgeous!"

Of course tabs are useless if you can't "see" them. Without proper make up they print as ordinary text. So you really need to fancy them up with some eye candy. The designed way is that you provide a CSS style sheet and have CGI::Widget::Tabs use that. See the class() method for how to do this.


Before digging into the API and all accessor methods, this example will illustrate how to implement the spotting page from above. So you have something to start with. It will give you enough clues to get on the road quickly. The following code is a simple but complete example. Copy it and run it through the webservers CGI engine. (For a even more complete and useful demo with multiple tabs, see the file in the CGI::Widget::Tabs installation directory.) To fully appreciate it, it would be best to run it in a performance environment, like mod_perl or SpeedyCGI.

    #! /usr/bin/perl -w

    use CGI::Widget::Tabs;
    use CGI;

    print <<EOT;
    Content-Type: text/html;

    <style type="text/css">   { border-bottom: solid thin #C0D4E6; text-align: center }      { padding: 2 12 2 12; width: 80; background-color: #FAFAD2 }
    td.tab_actv { padding: 2 12 2 12; width: 80; background-color: #C0D4E6 }
    td.tab_spc  { width: 5 }
    td.tab_ind  { width: 15 }

    my $cgi = CGI->new;
    my $tab = CGI::Widget::Tabs->new;
    $tab->headings( qw/Planes Traines Classics Bikes/ );
    # $tab->wrap(1);    # |uncomment to see the effect of
    # $tab->indent(0);  # |wrapping at 1 without indentation
    print "<br>We now should run some intelligent code ";
    print "to process <strong>", $tab->active, "</strong><br>";
    print "</body></html>";


Public Class Interface



Creates and returns a new CGI::Widget::Tabs object. new() does not take any arguments.

Public Object Interface



Returns a string indicating the current active tab heading. This is (in order of precedence) the heading set by force_active(), the heading being clicked on, the default heading, or the first in the list. The string value will either be the heading key or the heading text, depending on if you chose to use keys. Example:

    if ( $tab->active() eq "Trains" ) {  # heading text only

    if ( $tab->active() eq "-t" ) {      # key value ISO heading text



Sets/returns the CGI or CGI::Minimal object. If the optional argument OBJECT is given, the CGI object is set, otherwise it is returned. CGI::Widget::Tabs uses this object internally to process the CGI query parameters. If you want you can use some other CGI object handler. However such an object handler must provide a param() method with corresponding behaviour as do CGI or CGI::Minimal. Note that currently only CGI and CGI::Minimal have been tested. Example:

    # set
    my $cgi = CGI::Minimal->new;

    # get
    my $cgi = $tab->cgi_object;



Sets/returns the CGI query parameter. This parameter identifies the tab in the CGI query string (the funny part of the URL with the ? = & # characters). If the optional argument STRING is given, the query parameter is set. Otherwise it is returned. Usually you can leave this untouched. In that case the default parameter "tab" is used. You will need to set this if you have more CGI query parameters on the URL with "tab" already being taken. Another situation is if you use multiple tab widgets on one page. They both would use "tab" by default causing conflicts. Example:

   # Lets paint a fruit tab and a vegetable tab
   my $fruits_tab = CGI::Widget::Tabs->new;
   my $vegies_tab = CGI::Widget::Tabs->new;

   # this is our link with the outside world
   my $cgi = CGI::Minimal->new;

   # In the CGI params collection the first is
   # identified by 'ft' and the second by 'vt'



Sets/retrieves the list of CGI parameters to be dropped from the parameter list. If the optional argument LIST is given the list is set, otherwise it is retrieved. Suppose you have clicked "Yes" to some "Are you sure?" question. You certainly want that question to be asked every time, right? Especially if the actions that go with it are destructive. If you did NOT specify the parameter to be dropped, "Yes" would have been silently passed on to the parameter list. That would effectively preset "Are you sure" with "Yes" causing disastrous results. Examples:

    $tab->drop_params("ays");  # drop the "Are you sure" param



Sets/returns the name of the CSS class used for the tabs markup. If the optional argument STRING is given the class is set, otherwise it is returned. If not set, the widget will be based on the class "tab". In the accompanying style sheet, there are five class elements you need to provide:

1. A table element for containment of the entire tab widget
2. A td element for a normal tab
3. A td element for the active tab
4. A td element for the spacers
5. A td element for the indentation (if needed)

The class names of these elements are directly borrowed from the class() method. The td elements for the active tab, the spacers and the indentations are suffixed with "_actv", "_spc" and "_ind" respectively. For instance, if you'd run


then the elements look like:

    <table class="my_tab">    # the entire table
    <td class="my_tab">       # normal tab
    <td class="my_tab_actv">  # active tab
    <td class="my_tab_spc">   # spacer
    <td class="my_tab_ind">   # indentation

If you don't wrap headings, then ofcourse you won't need to specify the indentation td's. By the way, the indentation will usually look most natural if it has the same width as the spacers or a multiple thereof. Look at the example in the EXAMPLE section to see how this all works out.



Overrides which heading is the default. Normally CGI::Widget::Tabs will make the first heading active. Use the default() method if you want to deviate from this. The optional argument STRING must either be the heading key or the heading text, depending on how you chose to initialize the headings. Example:

    # Make the "Trains" heading the default active one.

    # ...or perhaps...



Renders the tab widget and prints the resulting HTML to the default output handle (usually STDOUT). Example:

    $tab->display;       # this is the same as...

    print $tab->render;  # ...but saves a few keystrokes

See also the render() method.



Forces the activation of a specific tab identified by it's heading text or key. This is useful if you have an application which must show a certain tab after doing someting. Or if you're paranoid and you've been given a CGI query string which you don't trust. In both cases you can make sure the tab of your preference is activated. Example:

    $tab->force_active("Trains");  # heading text only

    $tab->force_active("-t");      # key

    $tab->force_active(undef);     # forget all about it



Creates, appends and returns a new heading. The return value will always be an OO heading object. Example:

    my $h = $tab->heading();

In general you will use OO headings if the headings() method is not flexible enough. For trivial applications the headings() method mostly suffices. Look at section PROPERTIES OF OO HEADINGS for more information on OO headings.



Sets/returns the tab headings. Without arguments the currently defined headings are returned. If no headings are defined, the empty list is returned. Any returned heading will always be an OO heading, regardless of if and how the initializing LIST argument is used. Look at section PROPERTIES OF OO HEADINGS for more info on how to deal with OO headings.

The optional LIST argument is a short-cut to the OO headings interface. The elements of LIST can take various forms. Let's take a moment to take a close look at the headings of a tab. Tab headings are the things that --from human perspective-- identify a tab page. Observe the spotting example above. Here the different tab pages are identified by the strings "Planes", "Trains", "Classics" and "Bikes". They form the heading for each seperate tab. The LIST elements can be used to preset these tab headings.

An element of LIST can be any one of:

You can mix these types in any way you like. The various types will be translated on the fly to OO headings and then processed. Thus you can safely say:

    $tab->headings( "Plaines",
                    -t => "Traines",
                    { text => "Classics",
                      key  => "c",
                      ... } )

Just as the hash initializer, this use does clutter up your code. The reason is that different concepts of information are piled up on one big heep. You will need to scrutinize the code to understand what it is going on. Although it is supported you should refrain yourself from making use of these combinations.

As a summary, here are a three examples of the headings() method for the spotting page.

    # Example 1: Set the headings with a list of strings
    my $tab = CGI::Widget::Tabs->new();
    $tab->headings( qw/Planes Trains Classics Bikes/ );

    # Example 2: Set the headings with a list of k/v pairs
    my $tab = CGI::Widget::Tabs->new();
    $tab->headings( -p => "Planes",
                    -t => "Trains",
                    -c => "Classics,
                    -b => "Bikes" );

    # Example 3: Isolate the "Classics" heading
    my $h = ($tab->headings)[2];

Note that these few statements provide almost enough logic to generate the HTML for the tab widget!



Sets/returns the indentation setting. Without arguments the current setting is returned. indent() specifies if indentation should be added to the next row when the headings get wrapped. indent() is a toggle. By default indent() is set to TRUE. You must explicitely switch it off for the desired effect. The optional argument BOOLEAN can be any argument evaluating to a logical value.

The purpose of swithing off indentation is to simulate a vertical menu. In the spotting example, running


would result in something like:

     |  Planes  |
     |  Trains  |
     | Classics |
     |  Bikes   |

You probably need to tweak your style sheet to have it look nicely.



Renders the tab widget and returns the resulting HTML code. This is useful if you need to print the tab to a different file handle. Another use is if you want to manipulate the HTML. For instance to insert session id's or the like. See the class() method and the EXAMPLE section somewhere else in this document to see how you can influence the markup of the tab widget. Example:

    my $html = $tab->render;
    print HTML $html;  # there's a session id filter behind HTML



Sets or returns the wrap setting. Without arguments the current wrap setting is returned. If the argument NUMBER is given the headings will wrap to the next row after NUMBER headings. By default headings are not wrapped.


Private Class Methods


 link($text, $href)

Returns a HTML 'a' tag pair linking to $href with text $text


This module uses Module::Build for its installation. To install this module type the following:

  perl Build.PL
  ./Build test
  ./Build install

If you do not have Module::Build type:

  perl Makefile.PL

to fetch it. Or use CPAN or CPANPLUS and fetch it "manually".


This module requires these other modules and libraries:

 CGI  or  CGI::Minimal or another CGI   "object broker" with   a similar param()

Test::More is only required for testing purposes.

This module has these optional dependencies:

 Test::Pod (0.95 or higher)

These are both just requried for testing purposes.

Also required, a CSS stylesheet for the tabs markup


Just because these items are in the todo list, does not mean they will actually be done. If you think one of these would be helpful say so - and it will then move up on my priority list.

Patches always welcome.


As a side effect, the CGI query parameter to identify the tab (see the cgi_param() method) is always moved to the end of the query string.

To report a bug or request an enhancement use CPAN's excellent Request Tracker.


I would appreciate receiving your CSS style sheets used for the tabs markup. Especially if you happened to be professionally concerned with markup and layout. For techies like us it is not always easy to see what goes and what doesn't. If you send in a nice one, I will gladly bundle it with the next release.


Bodo Eing <>
Bernie Ledwick <>
Bernhard Schmalhofer <>


This source is part of a SourceForge project which always has the latest sources in svn.


Koos Pol <>


Sagar R. Shah


CGI, CGI::Minimal, CSS specs:,


Copyright 2003, Koos Pol, All rights reserved

Copyright 2003-2007, Sagar R. Shah, All rights reserved

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

syntax highlighting: