File Coverage

blib/lib/Embedix/ECD/Group.pm
Criterion Covered Total %
statement 6 9 66.6
branch n/a
condition n/a
subroutine 2 3 66.6
pod 1 1 100.0
total 9 13 69.2


line stmt bran cond sub pod time code
1             package Embedix::ECD::Group;
2              
3 5     5   27 use strict;
  5         9  
  5         174  
4 5     5   23 use vars qw(@ISA);
  5         6  
  5         755  
5              
6             @ISA = qw(Embedix::ECD);
7              
8             # I imagine different types of ECD nodes may have different attributes.
9             # I hope I'm right.
10              
11             #
12             #_______________________________________
13             sub toString {
14 0     0 1   my $self = shift;
15 0           my $opt = $self->getFormatOptions(@_);
16              
17             return
18 0           $opt->{space} . "name . ">\n" .
19             $self->attributeToString($opt) . # for the attributes
20             $self->SUPER::toString(@_) . # for the children
21             $opt->{space} . "\n"
22             }
23              
24             1;
25              
26             __END__