File Coverage

blib/lib/HTML/Widget/Element/Reset.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 19 19 100.0


line stmt bran cond sub pod time code
1             package HTML::Widget::Element::Reset;
2              
3 88     88   89288 use warnings;
  88         182  
  88         2904  
4 88     88   441 use strict;
  88         150  
  88         2785  
5 88     88   436 use base 'HTML::Widget::Element::Button';
  88         153  
  88         7203  
6 88     88   458 use NEXT;
  88         168  
  88         591  
7              
8             =head1 NAME
9              
10             HTML::Widget::Element::Reset - Reset Element
11              
12             =head1 SYNOPSIS
13              
14             $e = $widget->element( 'Reset', 'foo' );
15             $e->value('bar');
16              
17             =head1 DESCRIPTION
18              
19             Reset button element.
20              
21             Inherits all methods from L.
22              
23             Automatically sets L to C.
24              
25             =head1 METHODS
26              
27             =head2 new
28              
29             =cut
30              
31             sub new {
32 5     5 1 50 return shift->NEXT::new(@_)->type('reset');
33             }
34              
35             =head2 label
36              
37             =head2 value
38              
39             Sets the form field value. Is also used by the browser as the
40             button label.
41              
42             If not set, the browser will usually display the label as "Reset".
43              
44             L is an alias for L.
45              
46             =head1 SEE ALSO
47              
48             L, L
49              
50             =head1 AUTHOR
51              
52             Sebastian Riedel, C
53              
54             =head1 LICENSE
55              
56             This library is free software, you can redistribute it and/or modify it under
57             the same terms as Perl itself.
58              
59             =cut
60              
61             1;