File Coverage

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