File Coverage

blib/lib/SpeL/Object/Scientificnumber.pm

Criterion	Covered	Total	%
statement	39	39	100.0
branch	10	12	83.3
condition			n/a
subroutine	9	9	100.0
pod	1	1	100.0
total	59	61	96.7

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


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

use parent 'Exporter';
use Carp;

use SpeL::Object::Realnumber;
use SpeL::Object::Integernumber;

use SpeL::I18n;

use Data::Dumper;



sub read {
  my $self = shift;
  my ( $level ) = @_;
  my $sign = '';
  if ( exists $self->{Sign} ) {
    $sign .= $self->{Sign} eq '+' ? $SpeL::I18n::lh->maketext('+') . ' ' : '';
    $sign .= $self->{Sign} eq '-' ? $SpeL::I18n::lh->maketext('-') . ' ' : '';
  }
  my $value = '';
  if ( exists $self->{Value} ) {
      $value = $self->{Value};
  }
  my $exp = '';
  if ( exists $self->{Exponent} ) {
      if ( exists $self->{Value} ) {
	  $exp .= ' ' . $SpeL::I18n::lh->maketext('*') . ' ';
      }
      $exp .= ' 10 ' . $SpeL::I18n::lh->maketext('Intpower' ) . ' ' . $self->{Exponent}->read( $level + 1 ) . ', ';
  }
  return $sign . $value . $exp;
}

1;

__END__