package JavaScript::Toolbox;
require v5.6;
use strict;
use warnings;
use HTTP::BrowserDetect;
our $VERSION = '0.01';
sub new {
my ($proto, %args) = @_;
my $class = ref($proto) || $proto;
my $self = {};
$self->{BROWSER} = new HTTP::BrowserDetect($ENV{'HTTP_USER_AGENT'});
bless ($self, $class);
return $self;
}
1;
__END__
=head1 NAME
JavaScript::Toolbox - Collection of JavaScript Tools.
=head1 SYNOPSIS
use JavaScript::Toolbox::popUpBox;
$popup = new JavaScript::Toolbox::popUpBox;
$popup->content('hello');
$popup->script();
$popup->tag();
=head1 DESCRIPTION
Stub documentation for JavaScript::Toolbox, created by h2xs.
.------------------. .------------------.
| popUpBox | | Browser |
|==================|<>-------|==================|
| javascript() | | javascript() |
| html() | | html() |
`------------------' `------------------'
^
.-------------|------------.
| | |
.------------------| .------------------. |------------------.
| W3C | | Netscape | | IE |
|==================| |==================| |==================|
| javascript() | | javascript() | | javascript() |
| html() | | html() | | html() |
`------------------' `------------------' `------------------'
=head1 AUTHOR
St‚phane Peiry, stephane@perlmonk.org
=head1 SEE ALSO
perl(1).
=cut