File Coverage

blib/lib/SpeL/Object/Interval.pm
Criterion Covered Total %
statement 15 19 78.9
branch 0 4 0.0
condition n/a
subroutine 5 6 83.3
pod 1 1 100.0
total 21 30 70.0


line stmt bran cond sub pod time code
1             # -*- cperl -*-
2             # ABSTRACT: LaTeX expression object
3              
4              
5             package SpeL::Object::Interval;
6              
7 41     41   294 use SpeL::Object::Expression;
  41         84  
  41         1562  
8              
9 41     41   195 use SpeL::I18n;
  41         73  
  41         1266  
10              
11 41     41   188 use parent 'Exporter';
  41         74  
  41         247  
12 41     41   2395 use Carp;
  41         96  
  41         3198  
13              
14 41     41   280 use Data::Dumper;
  41         96  
  41         8111  
15              
16              
17              
18             sub read {
19 0     0 1   my $self = shift;
20 0           my ( $level ) = @_;
21              
22             my $type =
23             ( $self->{Intervalstart} eq '[' ? 'c' : 'o' )
24             .
25 0 0         ( $self->{Intervalend} eq ']' ? 'c' : 'o' );
    0          
26            
27             return $SpeL::I18n::lh->
28             maketext( 'Interval',
29             $type,
30             $self->{left}->read( $level + 1 ),
31 0           $self->{right}->read( $level + 1 ) );
32             }
33              
34             1;
35              
36             __END__