File Coverage

blib/lib/SpeL/Object/Function.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	4	4	100.0
condition			n/a
subroutine	10	10	100.0
pod	1	1	100.0
total	49	49	100.0

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


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

use parent 'Exporter';
use Carp;

use SpeL::I18n;
use Data::Dumper;

use SpeL::Object::Squareroot;
use SpeL::Object::Log;
use SpeL::Object::Trig;




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

  # say STDERR Data::Dumper->Dump( [ $self ] , [qw(self)] );

  exists $self->{Sqrt} and return $self->{Sqrt}->read( $level + 1 );
  my $power = '';

  if( exists $self->{Power} ) {
    $power = $self->{Power}->read( $level + 1 );
  }

  return
    $SpeL::I18n::lh->maketext( "Function",
			       $self->{Name}->read( $level + 1 )
			       . $power,
			       $self->{Argument}->read( $level + 1 ) )
    . ', ';
}

1;

__END__