File Coverage

blib/lib/Rest/HtmlVis/Events.pm
Criterion Covered Total %
statement 9 17 52.9
branch n/a
condition n/a
subroutine 3 5 60.0
pod 2 2 100.0
total 14 24 58.3


line stmt bran cond sub pod time code
1             package Rest::HtmlVis::Events;
2              
3 1     1   739 use strict;
  1         1  
  1         22  
4 1     1   4 use warnings;
  1         1  
  1         20  
5              
6 1     1   3 use parent qw( Rest::HtmlVis::Key );
  1         1  
  1         4  
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           my $static = $self->baseurl;
18              
19 0           return '
20            
21            
22            
44            
72             '
73             }
74              
75             sub html {
76 0     0 1   return '
77            
78            
79            
80            
81            
82             '
83             };
84              
85             1;
86             =encoding utf-8
87              
88             =head1 AUTHOR
89              
90             Václav Dovrtěl Evaclav.dovrtel@gmail.comE