File Coverage

blib/lib/SpeL/Object/Expressionrest.pm

Criterion	Covered	Total	%
statement	41	41	100.0
branch	4	4	100.0
condition			n/a
subroutine	13	13	100.0
pod	1	1	100.0
total	59	59	100.0

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


package SpeL::Object::Expressionrest;

use SpeL::Object::Expression;
use SpeL::Object::Subscript;
use SpeL::Object::Binop;
use SpeL::Object::Unop;
use SpeL::Object::Arrow;
use SpeL::Object::Faculty;
use SpeL::Object::Power;
use SpeL::Object::Subscript;
use SpeL::Object::Command;

use parent 'Exporter';
use Carp;

use Data::Dumper;



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

  return $self->{Endtext}->read( $level + 1 ) if ( exists $self->{Endtext} );

  return '' unless exists $self->{Op}; # in case of ws
  return
    $self->{Op}->read( $level + 1 )
    .
    $self->{Remainder}->read( $level + 1 );
}

1;

__END__