File Coverage

blib/lib/SpeL/Object/Matrix.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	1	1	100.0
total	39	39	100.0

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


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

use SpeL::Object::Option;
use SpeL::Object::MathElementList;
use SpeL::I18n;

use parent 'Exporter';
use Carp;

use Data::Dumper;




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

  return
      $SpeL::I18n::lh->maketext( $self->{matrixtag} ) .
      join( ', ' .
	    $SpeL::I18n::lh->maketext( 'And' ) .
	    ', ',
	    map { $_->read( $level + 1 ) } @{$self->{MathUnit}} ) . ', ';
}

1;

__END__