File Coverage

blib/lib/HTML/Form/KeygenInput.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition 1 2 50.0
subroutine 4 4 100.0
pod 0 2 0.0
total 15 18 83.3


line stmt bran cond sub pod time code
1             package HTML::Form::KeygenInput;
2              
3 11     11   71 use strict;
  11         21  
  11         330  
4 11     11   55 use parent 'HTML::Form::Input';
  11         20  
  11         53  
5              
6             our $VERSION = '6.11';
7              
8             # ABSTRACT: An HTML form keygen input element for use with HTML::Form
9              
10             sub challenge {
11 1     1 0 4 my $self = shift;
12 1         5 return $self->{challenge};
13             }
14              
15             sub keytype {
16 1     1 0 9 my $self = shift;
17 1   50     11 return lc( $self->{keytype} || 'rsa' );
18             }
19              
20             1;
21              
22             __END__