File Coverage

blib/lib/SpeL/Object/Underbrace.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 underbrace object
3              
4              
5             package SpeL::Object::Underbrace;
6              
7 41     41   265 use parent 'Exporter';
  41         81  
  41         250  
8 41     41   2850 use Carp;
  41         217  
  41         2664  
9              
10 41     41   223 use SpeL::I18n;
  41         80  
  41         1081  
11 41     41   175 use Data::Dumper;
  41         82  
  41         2368  
12 41     41   426 use SpeL::Object::MathElement;
  41         89  
  41         1769  
13 41     41   208 use SpeL::Object::Limitscommand;
  41         80  
  41         5977  
14              
15              
16              
17              
18             sub read {
19 1     1 1 3 my $self = shift;
20 1         2 my ( $level ) = @_;
21              
22             $SpeL::I18n::lh->maketext( 'Underbrace',
23             $self->{group}->read( $level + 1 ),
24 1         6 $self->{under}->read( $level + 1 ) );
25             }
26              
27              
28             1;
29              
30             __END__