File Coverage

blib/lib/Embedix/ECD/Component.pm

Criterion	Covered	Total	%
statement	9	12	75.0
branch			n/a
condition			n/a
subroutine	3	4	75.0
pod	1	1	100.0
total	13	17	76.4

package Embedix::ECD::Component;

use strict;
use vars qw(@ISA);
use Embedix::ECD::Util qw(indent %default @attribute_order);

@ISA = qw(Embedix::ECD);

# I imagine different types of ECD nodes may have different attributes.
# I hope I'm right.

#
#_______________________________________
sub toString {
    my $self = shift;
    my $opt  = $self->getFormatOptions(@_);

    return
        $opt->{space} . "name . ">\n" .
            $self->attributeToString($opt) .    # for the attributes
            $self->SUPER::toString(@_) .        # for the children
        $opt->{space} . "\n"
}

1;

__END__