File Coverage

blib/lib/HTML/GUI/actionbar.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::actionbar;
2              
3 1     1   840 use warnings;
  1         2  
  1         34  
4 1     1   6 use strict;
  1         2  
  1         47  
5              
6             =head1 NAME
7              
8             HTML::GUI::actionbar - Create and control a whole actionbar for web application
9              
10             =head1 VERSION
11              
12             Version 0.01
13              
14             =cut
15              
16             our $VERSION = '0.01';
17              
18 1     1   566 use HTML::GUI::container;
  0            
  0            
19             use UNIVERSAL qw(isa);
20             our @ISA = qw(HTML::GUI::container);
21              
22              
23              
24             =head1 ACTIONBAR
25              
26             A actionbar widget is intended to contain buttons.
27             It's a

tag that apply the css class "actionbar".

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