File Coverage

blib/lib/SpeL/Object/Binop.pm

Criterion	Covered	Total	%
statement	24	25	96.0
branch	18	22	81.8
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	47	52	90.3

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


package SpeL::Object::Binop;


use parent 'Exporter';
use Carp;

use Data::Dumper;



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

  # say STDERR Data::Dumper->Dump( [ $self ], [ 'self' ] );
  if ( exists $self->{Op} ) {
    $self->{Op} =~ /^[+-]$/ and
      return ' ' . $SpeL::I18n::lh->maketext( $self->{Op} ) . ' ';
    $self->{Op} =~ /^\\pm$/ and
      return ' ' . $SpeL::I18n::lh->maketext( 'plusminus' ) . ' ';
    $self->{Op} =~ /^,|;$/ and
      return ', ';
    $self->{Op} =~ /^\\in$/ and
      return ' ' . $SpeL::I18n::lh->maketext( 'In' ) . ' ';
    $self->{Op} =~ /^\\mid$/ and
      return ' ' . $SpeL::I18n::lh->maketext( 'Mid' ) . ' ';
    $self->{Op} =~ /^\\cdots$/ and
      return ' ' . $SpeL::I18n::lh->maketext( 'dotdotdot' ) . ' ';
    $self->{Op} =~ /^\\times|\\cdot$/ and
      return ' ' . $SpeL::I18n::lh->maketext( '*' ) . ' ';
    $self->{Op} =~ /^\\sim$/ and
      return ' ' . $SpeL::I18n::lh->maketext( 'Sim' ) . ' ';
    return ' ' . $SpeL::I18n::lh->maketext( '*' ) . ' ';
  }
  if ( exists $self->{Pause} ) {
    return ', ';
  }
  if ( exists $self->{Com} ) {
    return $self->{Com}->read( $level + 1 );
  }
}

1;

__END__