File Coverage

blib/lib/HTML/Tested/Value/Marked.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 16 16 100.0


line stmt bran cond sub pod time code
1 5     5   11169 use strict;
  5         13  
  5         216  
2 5     5   28 use warnings FATAL => 'all';
  5         18  
  5         259  
3              
4             package HTML::Tested::Value::Marked;
5 5     5   25 use base 'HTML::Tested::Value';
  5         17  
  5         1777  
6              
7             sub value_to_string {
8 31     31 1 57 my ($self, $name, $val) = @_;
9 31         130 return " $val";
10             }
11              
12             1;