#!/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.05.tar.gz', 'installation' => '
perl Makefile.PL make make test make install', 'cvs' => '
Anonymous CVS access is available: $ export CVSROOT=":pserver:anonymous@pouncequick.420.am:/home/cvs/cvsroot" $ cvs login (Logging in to anonymous@pouncequick.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. The 0.05 release drops Navigator 4 compatibility and has been tested under Mozilla Firefox 1.0.6, MSIE 6.0, Konqueror 3.3.2, and Opera 8.0.2.', ); close DATA; my $w = new HTML::Widgets::SelectLayers( 'options' => \%o, 'selected_layer' => 'download', 'layer_callback' => sub { my $layer = shift; "