File Coverage

blib/lib/HTML/GUI/hidden.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 12 83.3


line stmt bran cond sub pod time code
1             package HTML::GUI::hidden;
2              
3 1     1   718 use warnings;
  1         2  
  1         33  
4 1     1   5 use strict;
  1         2  
  1         46  
5              
6             =head1 NAME
7              
8             HTML::GUI::hidden - Create and control a hidden input for webapp
9              
10             =head1 VERSION
11              
12             Version 0.01
13              
14             =cut
15              
16             our $VERSION = '0.01';
17              
18              
19 1     1   524 use HTML::GUI::input;
  0            
  0            
20             our @ISA = qw(HTML::GUI::input);
21              
22             =head1 HIDDEN
23              
24             The hidden widget is the specialisation of the widget class for classical values ("enter your name").
25              
26             =cut
27              
28              
29              
30             =pod
31              
32             =head1 PUBLIC METHODS
33              
34             =pod
35              
36             =head3 new
37              
38             Parameters :
39             params : widget :
40              
41             =cut
42              
43             sub new
44             {
45             my($class,
46             $params, # widget :
47             ) = @_;
48              
49             my $this = $class->SUPER::new($params);
50             $this->{type} = "hidden";
51              
52             bless($this, $class);
53             }
54              
55              
56             =pod
57              
58             =head3 getHtml
59              
60             Description :
61             Return the html of the widget.
62              
63             =cut
64              
65             sub getHtml
66             {
67             my($self) = @_;
68             my %tagProp=();
69            
70             $tagProp{type} = 'hidden';
71             $tagProp{value} = $self->getValue();
72             $tagProp{name} = $tagProp{id} = $self->{id};
73            
74             return $self->getHtmlTag("input",\%tagProp) ;
75             }
76              
77              
78             =head1 AUTHOR
79              
80             Jean-Christian Hassler, C<< >>
81              
82             =head1 BUGS
83              
84             Please report any bugs or feature requests to
85             C, or through the web interface at
86             L.
87             I will be notified, and then you'll automatically be notified of progress on
88             your bug as I make changes.
89              
90             =head1 SUPPORT
91              
92             You can find documentation for this module with the perldoc command.
93              
94             perldoc HTML::GUI::widget
95              
96             You can also look for information at:
97              
98             =over 4
99              
100             =item * AnnoCPAN: Annotated CPAN documentation
101              
102             L
103              
104             =item * CPAN Ratings
105              
106             L
107              
108             =item * RT: CPAN's request tracker
109              
110             L
111              
112             =item * Search CPAN
113              
114             L
115              
116             =back
117              
118             =head1 ACKNOWLEDGEMENTS
119              
120             =head1 COPYRIGHT & LICENSE
121              
122             Copyright 2007 Jean-Christian Hassler, all rights reserved.
123              
124             This program is free software; you can redistribute it and/or modify it
125             under the same terms as Perl itself.
126              
127             =cut
128              
129             1; # End of HTML::GUI::hidden