File Coverage

blib/lib/SpeL/Object/MathElementList.pm
Criterion Covered Total %
statement 15 20 75.0
branch n/a
condition n/a
subroutine 5 6 83.3
pod 1 1 100.0
total 21 27 77.7


line stmt bran cond sub pod time code
1             # -*- cperl -*-
2             # ABSTRACT: LaTeX Mathelementlist object
3              
4              
5 41     41   254 use strict;
  41         93  
  41         1721  
6 41     41   241 use warnings;
  41         66  
  41         2835  
7             package SpeL::Object::MathElementList;
8              
9 41     41   223 use parent 'Exporter';
  41         96  
  41         263  
10 41     41   2719 use Carp;
  41         86  
  41         3167  
11              
12 41     41   19179 use SpeL::Object::MathElement;
  41         148  
  41         5562  
13              
14             #use Data::Dumper;
15              
16              
17              
18              
19             sub read {
20 0     0 1   my $self = shift;
21 0           my ( $level, $separator ) = @_;
22              
23             return join( ' ',
24 0           map { $_->read( $level + 1 ) } @{$self->{MathElement}} );
  0            
  0            
25             }
26              
27             1;
28              
29             __END__