File Coverage

blib/lib/HTML/Tag/SELECT.pm
Criterion Covered Total %
statement 21 21 100.0
branch 5 6 83.3
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 32 34 94.1


line stmt bran cond sub pod time code
1             package HTML::Tag::SELECT;
2              
3 4     4   21 use strict;
  4         7  
  4         126  
4 4     4   20 use warnings;
  4         24  
  4         97  
5              
6 4     4   17 use Class::AutoAccess;
  4         35  
  4         96  
7 4     4   21 use base qw(Class::AutoAccess HTML::Tag);
  4         7  
  4         647  
8              
9             our $VERSION = '1.01';
10              
11             BEGIN {
12 4     4   882 our $class_def = {
13             element => 'SELECT',
14             tag => 'SELECT',
15             has_end_tag => 1,
16             value => {},
17             selected => '',
18             maybenull => 0,
19             }
20             }
21              
22             sub inner {
23 4     4 0 5 my $self = shift;
24 4         5 my $ret = '';
25 4 100       13 $ret .= qq|\n| if ($self->maybenull);
26 4 50       42 if (ref($self->value) eq 'HASH') {
27 4         35 while (my ($k,$v) = each %{$self->value}) {
  13         123  
28 9 100       162 $ret .= qq|
29             qq|>$v\n|;
30             }
31             }
32 4         50 return $ret;
33             }
34              
35              
36             1;
37              
38             # vim: set ts=2: