File Coverage

blib/lib/SpeL/Object/Expression.pm

Criterion	Covered	Total	%
statement	75	78	96.1
branch	9	12	75.0
condition			n/a
subroutine	22	22	100.0
pod	1	1	100.0
total	107	113	94.6

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


package SpeL::Object::Expression;

use SpeL::Object::MathUnit;
use SpeL::Object::Variable;
use SpeL::Object::Function;
use SpeL::Object::Fraction;
use SpeL::Object::Bracketconstruction;
use SpeL::Object::Expressionrest;
use SpeL::Object::Limitsexpression;
use SpeL::Object::Underbrace;
use SpeL::Object::Overbrace;
use SpeL::Object::Number;
use SpeL::Object::Num;
use SpeL::Object::Qty;
use SpeL::Object::Unop;
use SpeL::Object::MathEnvironmentInner;
use SpeL::Object::Matrix;
use SpeL::Object::Interval;
use SpeL::Object::Command;
use SpeL::Object::Unit;

use parent 'Exporter';
use Carp;

use Data::Dumper;



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

  if ( exists $self->{Begintext} ) {
    return
      $self->{Begintext}->read( $level + 1 )
      . ' ' .
      ( exists $self->{Rest} ? $self->{Rest}->read( $level + 1 ) : '' );
  }

  if ( exists $self->{Absval} ) {
    return $SpeL::I18n::lh
      ->maketext( 'Absval',
		  $self->{Absval}->read( $level + 1 ) );
  }

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

  if ( exists $self->{Ellipsis} ) {
    return $SpeL::I18n::lh->maketext( 'dotdotdot' ) . ' ' .
      $self->{Rest}->read( $level + 1 );
  }

  my $sign = '';
  if ( exists $self->{Sign} ) {
    $self->{Sign} =~ s/^\\pm$/plusminus/;
    $sign = $SpeL::I18n::lh->maketext( $self->{Sign} ) . ' ';
  }

  return
    $sign . ' ' .
    $self->{Component}->read( $level + 1 ) . ' ' .
    $self->{Rest}->read( $level + 1 )
    ;
}

1;

__END__