File Coverage

blib/lib/HTML/Tag/TEXTAREA.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 16 17 94.1


line stmt bran cond sub pod time code
1             package HTML::Tag::TEXTAREA;
2              
3 1     1   6 use strict;
  1         2  
  1         41  
4 1     1   6 use warnings;
  1         2  
  1         41  
5              
6 1     1   5 use base qw(Class::AutoAccess HTML::Tag);
  1         3  
  1         188  
7              
8             our $VERSION = '1.00';
9              
10             BEGIN {
11 1     1   62 our $class_def = {
12             element => 'TEXTAREA',
13             tag => 'TEXTAREA',
14             value => '',
15             cols => 40,
16             rows => 5,
17             attributes => ['cols','rows'],
18             }
19             }
20              
21             sub inner {
22 3     3 0 22 return $_[0]->value;
23             }
24              
25              
26             1;
27              
28             # vim: set ts=2: