File Coverage

blib/lib/SpeL/Object/MathEnvironmentInner.pm
Criterion Covered Total %
statement 26 26 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 1 1 100.0
total 35 35 100.0


line stmt bran cond sub pod time code
1             # -*- cperl -*-
2             # ABSTRACT: LaTeX mathenvironment object
3              
4              
5 41     41   286 use strict;
  41         85  
  41         1577  
6 41     41   242 use warnings;
  41         87  
  41         2527  
7             package SpeL::Object::MathEnvironmentInner;
8              
9 41     41   257 use SpeL::Object::Option;
  41         71  
  41         1582  
10 41     41   198 use SpeL::Object::MathElementList;
  41         92  
  41         1886  
11              
12 41     41   214 use parent 'Exporter';
  41         107  
  41         278  
13 41     41   2542 use Carp;
  41         107  
  41         2382  
14              
15 41     41   230 use Data::Dumper;
  41         80  
  41         6523  
16              
17              
18              
19              
20             sub read {
21 1     1 1 2 my $self = shift;
22 1         3 my ( $level ) = @_;
23              
24             return
25             join( ', ' .
26             $SpeL::I18n::lh->maketext( 'And' ) .
27             ', ',
28 1         15 map { $_->read( $level + 1 ) } @{$self->{MathUnit}} );
  4         12  
  1         117  
29             }
30              
31             1;
32              
33             __END__