[libweasel-perl] 03/24: * Add SELECT tag handler

[Robert James Clay]

This is an automated email from the git hooks/post-receive script.

jame-guest pushed a commit to tag v0.02
in repository libweasel-perl.

commit 3ab81c6e3c6146b4d73cf7340eecac7f3a9f4075
Author: Erik Huelsmann <ehuels at gmail.com>
Date:   Thu Jun 16 09:40:17 2016 +0200

    * Add SELECT tag handler
---
 lib/Weasel/Widgets/HTML.pm        |  1 +
 lib/Weasel/Widgets/HTML/Select.pm | 50 +++++++++++++++++++++++++++++++++++++++
 2 files changed, 51 insertions(+)

diff --git a/lib/Weasel/Widgets/HTML.pm b/lib/Weasel/Widgets/HTML.pm
index 2059ce9..def63b1 100644
--- a/lib/Weasel/Widgets/HTML.pm
+++ b/lib/Weasel/Widgets/HTML.pm
@@ -28,6 +28,7 @@ use warnings;
 use Weasel::Widgets::HTML::Button; # button, reset, image, submit, BUTTON
 use Weasel::Widgets::HTML::Selectable; # checkbox, radio, OPTION
 use Weasel::Widgets::HTML::Input; # text, password, <default>
+use Weasel::Widgets::HTML::Select;
 
 # No widgets for file inputs and
 #  more importantly TEXTAREA, FORM and SELECT
diff --git a/lib/Weasel/Widgets/HTML/Select.pm b/lib/Weasel/Widgets/HTML/Select.pm
new file mode 100644
index 0000000..4cebb1a
--- /dev/null
+++ b/lib/Weasel/Widgets/HTML/Select.pm
@@ -0,0 +1,50 @@
+
+=head1 NAME
+
+Weasel::Widgets::HTML::Select - Wrapper of SELECT tag
+
+=head1 VERSION
+
+0.01
+
+=head1 SYNOPSIS
+
+=head1 DESCRIPTION
+
+=cut
+
+package Weasel::Widgets::HTML::Select;
+
+
+use strict;
+use warnings;
+
+use Moose;
+use Weasel::Element;
+use Weasel::WidgetHandlers qw/ register_widget_handler /;
+extends 'Weasel::Element';
+
+
+register_widget_handler(
+    __PACKAGE__, 'HTML',
+    tag_name => 'select',
+    );
+
+
+=head1 METHODS
+
+=over
+
+=item find_option()
+
+Returns 
+
+=cut
+
+sub find_option {
+    my ($self, $value) = @_;
+
+}
+
+
+1;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libweasel-perl.git