File Coverage

blib/lib/SpeL/Object/MathEnvironment.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


line stmt bran cond sub pod time code
1             # -*- cperl -*-
2             # ABSTRACT: LaTeX mathenvironment object
3              
4              
5 41     41   267 use strict;
  41         87  
  41         1622  
6 41     41   205 use warnings;
  41         82  
  41         2343  
7             package SpeL::Object::MathEnvironment;
8              
9 41     41   232 use SpeL::Object::Option;
  41         107  
  41         1648  
10 41     41   17754 use SpeL::Object::MathElementList;
  41         169  
  41         2065  
11 41     41   248 use SpeL::I18n;
  41         96  
  41         1533  
12              
13 41     41   256 use parent 'Exporter';
  41         76  
  41         208  
14 41     41   2293 use Carp;
  41         122  
  41         2646  
15              
16 41     41   208 use Data::Dumper;
  41         87  
  41         5960  
17              
18              
19              
20              
21             sub read {
22 22     22 1 56 my $self = shift;
23 22         55 my ( $level ) = @_;
24              
25             return
26             join( ', ',
27 22         55 map { $_->read( $level + 1 ) } @{$self->{MathUnit}} );
  33         181  
  22         78  
28             }
29              
30             1;
31              
32             __END__