File Coverage

blib/lib/SpeL/Object/Operator.pm

Criterion	Covered	Total	%
statement	39	47	82.9
branch	0	10	0.0
condition			n/a
subroutine	13	14	92.8
pod	1	1	100.0
total	53	72	73.6

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


package SpeL::Object::Operator;

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 SpeL::I18n;

use parent 'Exporter';
use Carp;

use Data::Dumper;



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

  $self->{''} eq '='      and return $SpeL::I18n::lh->maketext( '=' );
  $self->{''} =~ /<|\\lt/ and return $SpeL::I18n::lh->maketext( '<' );
  $self->{''} =~ />|\\gt/ and return $SpeL::I18n::lh->maketext( '>' );
  $self->{''} eq '\le'    and return $SpeL::I18n::lh->maketext( '<=' );
  $self->{''} eq '\ge'    and return $SpeL::I18n::lh->maketext( '>=' );

  return 'Error: Operator';
}

1;

__END__