File Coverage

Data/Stag/Arr2HTML.pm
Criterion Covered Total %
statement 9 18 50.0
branch n/a
condition n/a
subroutine 3 6 50.0
pod 3 3 100.0
total 15 27 55.5


\n"; \n";
line stmt bran cond sub pod time code
1             package Data::Stag::Arr2HTML;
2              
3             =head1 NAME
4              
5             Data::Stag::Arr2HTML - Array to HTML handler
6              
7             =head1 SYNOPSIS
8              
9              
10             =cut
11              
12             =head1 DESCRIPTION
13              
14             =head1 PUBLIC METHODS -
15              
16             =cut
17              
18 2     2   5127 use strict;
  2         4  
  2         63  
19 2     2   10 use base qw(Data::Stag::Base);
  2         2  
  2         176  
20              
21 2     2   8 use vars qw($VERSION);
  2         3  
  2         285  
22             $VERSION="0.14";
23              
24             sub start_event {
25 0     0 1   my $self = shift;
26 0           my $ev = shift;
27 0           print "
$ev\n";
28             }
29              
30             sub end_event {
31 0     0 1   my $self = shift;
32 0           my $ev = shift;
33 0           print "
34             }
35              
36             sub evbody {
37 0     0 1   my $self = shift;
38 0           my $body = shift;
39 0           print "$body
40             }
41              
42             1;