File Coverage

blib/lib/Rest/HtmlVis/Events.pm
Criterion Covered Total %
statement 9 16 56.2
branch n/a
condition n/a
subroutine 3 5 60.0
pod 2 2 100.0
total 14 23 60.8


line stmt bran cond sub pod time code
1             package Rest::HtmlVis::Events;
2              
3 1     1   914 use strict;
  1         2  
  1         44  
4 1     1   7 use warnings;
  1         1  
  1         35  
5              
6 1     1   4 use parent qw( Rest::HtmlVis::Key );
  1         2  
  1         6  
7              
8             sub head {
9 0     0 1   my ($self, $local) = @_;
10              
11 0           my $struct = $self->getStruct;
12 0           my @data;
13 0           foreach my $key (sort keys %$struct) {
14 0           push @data, sprintf("[%s,%s]", $key, $struct->{$key});
15             }
16              
17 0           return '
18            
19            
20            
42            
70             '
71             }
72              
73             sub html {
74 0     0 1   return '
75            
76            
77            
78            
79            
80             '
81             };
82              
83             1;