File Coverage

blib/lib/SpeL/Object/Limitscommand.pm
Criterion Covered Total %
statement 21 22 95.4
branch 7 10 70.0
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 35 39 89.7


line stmt bran cond sub pod time code
1             # -*- cperl -*-
2             # ABSTRACT: LaTeX limitscommand object
3              
4              
5             package SpeL::Object::Limitscommand;
6              
7 41     41   270 use parent 'Exporter';
  41         77  
  41         239  
8 41     41   2815 use Carp;
  41         77  
  41         2542  
9              
10 41     41   204 use SpeL::I18n;
  41         96  
  41         1188  
11 41     41   258 use Data::Dumper;
  41         73  
  41         2470  
12 41     41   227 use SpeL::Object::MathElement;
  41         75  
  41         10306  
13              
14              
15              
16             sub read {
17 5     5 1 12 my $self = shift;
18 5         16 my ( $level ) = @_;
19              
20 5 100       31 $self->{''} =~ /int/ and return $SpeL::I18n::lh->maketext( 'Int' );
21 4 100       22 $self->{''} =~ /sum/ and return $SpeL::I18n::lh->maketext( 'Sum' );
22 2 100       14 $self->{''} =~ /lim/ and return $SpeL::I18n::lh->maketext( 'Limit' );
23 1 50       8 $self->{''} =~ /max/ and return $SpeL::I18n::lh->maketext( 'Max' );
24 0 0         $self->{''} =~ /min/ and return $SpeL::I18n::lh->maketext( 'Min' );
25             }
26              
27              
28             1;
29              
30             __END__