File Coverage

blib/lib/SpeL/Object/RelOperator.pm

Criterion	Covered	Total	%
statement	55	56	98.2
branch	20	28	71.4
condition			n/a
subroutine	14	14	100.0
pod	1	1	100.0
total	90	99	90.9

# -*- cperl -*-
# ABSTRACT: LaTeX relational operator object


package SpeL::Object::RelOperator;

use SpeL::Object::Environment;
use SpeL::Object::Group;
use SpeL::Object::MathInline;
use SpeL::Object::MathEnvironment;
use SpeL::Object::Item;
use SpeL::Object::Command;
use SpeL::Object::TokenSequence;
use SpeL::Object::Variable;
use SpeL::Object::Realnumber;

use parent 'Exporter';
use Carp;

use SpeL::I18n;
use Data::Dumper;



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

  # say STDERR Data::Dumper->Dump( [ $self ], [ 'self' ] );
  $self->{''} eq '='        and return $SpeL::I18n::lh->maketext( '=' );
  $self->{''} eq '\approx'  and return $SpeL::I18n::lh->maketext( 'approx' );
  $self->{''} eq '\equiv'   and return $SpeL::I18n::lh->maketext( 'equivalent' );
  $self->{''} =~ /\\ne/     and return $SpeL::I18n::lh->maketext( 'notequal' );
  $self->{''} =~ /<|\\lt/   and return $SpeL::I18n::lh->maketext( '<' );
  $self->{''} eq '\ll'      and return $SpeL::I18n::lh->maketext( '<<' );
  $self->{''} =~ />|\\gt/   and return $SpeL::I18n::lh->maketext( '>' );
  $self->{''} eq '\gg'      and return $SpeL::I18n::lh->maketext( '>>' );
  $self->{''} eq '\le'      and return $SpeL::I18n::lh->maketext( '<=' );
  $self->{''} eq '\ge'      and return $SpeL::I18n::lh->maketext( '>=' );
  $self->{''} eq '\in'      and return $SpeL::I18n::lh->maketext( 'In' );
  $self->{''} eq '\leadsto' and return $SpeL::I18n::lh->maketext( 'Leadsto' );
  $self->{''} eq '\to'      and return $SpeL::I18n::lh->maketext( 'To' );
  $self->{''} eq '&'        and return ',, ';

  return 'Error: RelOperator';
}

1;

__END__