File Coverage

blib/lib/HTML/Tested/Test/Upload.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 15 16 93.7


line stmt bran cond sub pod time code
1 17     17   103 use strict;
  17         35  
  17         764  
2 17     17   94 use warnings FATAL => 'all';
  17         260  
  17         840  
3              
4             package HTML::Tested::Test::Upload;
5 17     17   140 use base 'HTML::Tested::Test::Value';
  17         40  
  17         7095  
6              
7             sub convert_to_param {
8 3     3 0 9 my ($class, $obj_class, $r, $name, $val) = @_;
9 3         20 $r->add_upload($name, $val);
10             }
11              
12             1;