File Coverage

blib/lib/SpeL/Object/Bracketconstruction.pm

Criterion	Covered	Total	%
statement	32	34	94.1
branch	9	14	64.2
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	49	56	87.5

# -*- cperl -*-
# ABSTRACT: LaTeX bracketconstruction (math) object


use strict;
use warnings;
package SpeL::Object::Bracketconstruction;

use parent 'Exporter';
use Carp;
use SpeL::I18n;
use SpeL::Object::MathUnit;




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

  $self->{obracket} =~ s/\\left\s*//;
  $self->{cbracket} =~ s/\\right\s*//;
  my $matchof = {
		 '('  => ')',
		 '['  => ']',
		 '{' => '}',
		 '\{' => '\}',
		 '|'  => '|',
		 '\|' => '\|',
		 '.'  => '.',
		};
  if ( $matchof->{$self->{obracket}} eq $self->{cbracket} ) {
    if ( $self->{obracket} =~ /\(|\[|\{|\\\{/ ) {
      return $self->{Component}->read( $level + 1 );
    }
    elsif ( $self->{obracket} eq '|' ) {
      return $SpeL::I18n::lh->maketext( 'Absval',
					$self->{Component}->read( $level + 1 ) );
    }
    elsif ( $self->{obracket} eq '\|' ) {
      return $SpeL::I18n::lh->maketext( 'Norm',
					$self->{Component}->read( $level + 1 ) );
    }
  }
  else {
    if ( $self->{obracket} eq '.' ) {
      if ( $self->{cbracket} eq '|' ) {
	return $SpeL::I18n::lh->maketext( 'Subjectto',
					  $self->{Component}->read( $level + 1 ) );
      }
    }
    if ( $self->{cbracket} eq '.' ) {
      return $self->{Component}->read( $level + 1 );
    }
  }
  die( "Error: I don't know how to read a construct with\n" .
       "       left bracket '$self->{obracket}' and\n" .
       "       right bracket '$self->{cbracket}'.\n" .
       "       If you know how  you would like to have it read out loud,\n" .
       "       send it to the maintainer of this  package.\n" .
       "       (mailto:walter.daems\@uantwerpen.be)\n" );
}

1;

__END__