File Coverage

blib/lib/SpeL/Object/Limitsexpression.pm
Criterion Covered Total %
statement 21 21 100.0
branch 3 4 75.0
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 32 33 96.9


line stmt bran cond sub pod time code
1             # -*- cperl -*-
2             # ABSTRACT: LaTeX limitsexpression object
3              
4              
5             package SpeL::Object::Limitsexpression;
6              
7 41     41   270 use parent 'Exporter';
  41         75  
  41         249  
8 41     41   3035 use Carp;
  41         88  
  41         2855  
9              
10 41     41   227 use SpeL::I18n;
  41         63  
  41         976  
11 41     41   206 use Data::Dumper;
  41         102  
  41         2201  
12 41     41   233 use SpeL::Object::MathElement;
  41         86  
  41         1353  
13 41     41   20553 use SpeL::Object::Limitscommand;
  41         119  
  41         6602  
14              
15              
16              
17              
18             sub read {
19 5     5 1 13 my $self = shift;
20 5         18 my ( $level ) = @_;
21              
22             $SpeL::I18n::lh->maketext( 'Limitsexpression',
23             $self->{Limitscommand}->read( $level + 1 ),
24             defined( $self->{LBound} ) ? $self->{LBound}->read( $level + 1 ) : undef,
25 5 50       33 defined( $self->{UBound} ) ? $self->{UBound}->read( $level + 1 ) : undef );
    100          
26             }
27              
28              
29             1;
30              
31             __END__