File Coverage

blib/lib/SpeL/Object/ElementList.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	2	2	100.0
condition			n/a
subroutine	10	10	100.0
pod	2	2	100.0
total	47	47	100.0

# -*- cperl -*-
# ABSTRACT: LaTeX elementlist object


use strict;
use warnings;
package SpeL::Object::ElementList;

use parent 'Exporter';
use Carp;

use SpeL::Object::Element;
use SpeL::Object::MathGroup;
use SpeL::Object::MathEnvironmentSimple;

use SpeL::I18n;

#use Data::Dumper;


sub new {
  my $class = shift;
  my ( $self ) = @_;
  $self = {} unless $self;
  bless $self, $class;
}


sub read {
  my $self = shift;
  my ( $level ) = @_;

  # say STDERR Data::Dumper->Dump( [ $self ], [ 'self' ] );

  return join( ' ',
	       map { $_->read( $level + 1 ) } @{$self->{Element}} );
}

1;

__END__