File Coverage

blib/lib/SpeL/Object/Log.pm

Criterion	Covered	Total	%
statement	19	20	95.0
branch	5	6	83.3
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	30	32	93.7

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


package SpeL::Object::Log;

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' ] );
  if( $self->{Op} eq 'log' ) {
      if( exists $self->{base} ) {
	  return $SpeL::I18n::lh->maketext( 'logn', $self->{base}->read( $level + 1 ) );
      }
      else {
	  return $SpeL::I18n::lh->maketext( 'log' );
      }
  }
  elsif( $self->{Op} eq 'ln' ) {
      return $SpeL::I18n::lh->maketext( 'ln' );
  }
  else {
      die( "Internal error in Log.pm");
  }
}

1;

__END__