File Coverage

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