File Coverage

blib/lib/SMIL/XMLTag.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 14 15 93.3


line stmt bran cond sub pod time code
1             package SMIL::XMLTag;
2              
3             $VERSION = "0.898";
4              
5 1     1   11 use SMIL::XMLBase;
  1         1  
  1         45  
6              
7             @ISA = qw( SMIL::XMLBase );
8              
9 1     1   9 use Carp;
  1         2  
  1         461  
10              
11             sub getAsString {
12 11     11 0 13 my $self = shift;
13 11         12 my $return_string;
14 11         50 my $tab = $self->getTabBuffer();
15 11         128 $return_string .= "$tab<" . $self->{_tag} .
16             $self->_build_attributes() . "/>";
17 11         120 return $return_string;
18             }
19              
20             1;