#!/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.01.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, Netscape 4.77, IE 5.5, Konqueror 2.2.2, and Opera 5.0.', ); close DATA; my $w = new HTML::Widgets::SelectLayers( 'options' => \%o, 'selected_layer' => 'download', 'layer_callback' => sub { my $layer = shift; "