File Coverage

blib/lib/SpeL/Object/MathGroup.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 29 29 100.0


line stmt bran cond sub pod time code
1             # -*- cperl -*-
2             # ABSTRACT: LaTeX Mathgroup object
3              
4              
5 41     41   263 use strict;
  41         84  
  41         1723  
6 41     41   223 use warnings;
  41         68  
  41         2585  
7             package SpeL::Object::MathGroup;
8              
9 41     41   222 use parent 'Exporter';
  41         85  
  41         611  
10 41     41   2706 use Carp;
  41         107  
  41         2709  
11              
12 41     41   265 use Data::Dumper;
  41         82  
  41         2188  
13              
14 41     41   895 use SpeL::Object::MathElementList;
  41         78  
  41         5406  
15              
16              
17              
18             sub read {
19 9     9 1 157 my $self = shift;
20 9         23 my ( $level ) = @_;
21              
22 9         47 return $self->{MathUnit}->read( $level + 1 );
23             }
24              
25             1;
26              
27             __END__