#!/usr/bin/perl -w use strict; use Tie::IxHash; use HTML::Widgets::SelectLayers; tie my %o, 'Tie::IxHash', 'download' => 'Download', 'installation' => 'Installation', 'compatibility' => 'Compatibility', 'documentation' => 'Documentation', 'cvs' => 'Anonymous CVS access', ; my %html = ( 'download' => 'Download HTML-Widgets-SelectLayers-0.03.tar.gz', 'installation' => '
perl Makefile.PL make make test make install', 'cvs' => '
Anonymous CVS access is available: $ export CVSROOT=":pserver:anonymous@cleanwhisker.420.am:/home/cvs/cvsroot" $ cvs login (Logging in to anonymous@cleanwhisker.420.am CVS password: anonymous $ cvs checkout DBIx-DBSchema as well as browsable via cvsweb.', 'documentation' => join('',), 'compatibility' => '
This HTML generated by this module uses JavaScript, but nevertheless attempts to be as cross-browser as possible, testing for features via DOM support rather than specific browsers or versions. It has been tested under Mozilla 0.9.8->1.4, Netscape 4.77, IE 5.5, Konqueror 2.2.2->3.1.5, and Opera 5.0.', ); close DATA; my $w = new HTML::Widgets::SelectLayers( 'options' => \%o, 'selected_layer' => 'download', 'layer_callback' => sub { my $layer = shift; "