File Coverage

blib/lib/SpeL/Object/Overbrace.pm
Criterion Covered Total %
statement 18 21 85.7
branch n/a
condition n/a
subroutine 6 7 85.7
pod 1 1 100.0
total 25 29 86.2


line stmt bran cond sub pod time code
1             # -*- cperl -*-
2             # ABSTRACT: LaTeX overbrace object
3              
4              
5             package SpeL::Object::Overbrace;
6              
7 41     41   283 use parent 'Exporter';
  41         83  
  41         232  
8 41     41   2654 use Carp;
  41         111  
  41         2515  
9              
10 41     41   263 use SpeL::I18n;
  41         83  
  41         846  
11 41     41   165 use Data::Dumper;
  41         65  
  41         2097  
12 41     41   236 use SpeL::Object::MathElement;
  41         72  
  41         1556  
13 41     41   201 use SpeL::Object::Limitscommand;
  41         102  
  41         6054  
14              
15              
16              
17              
18             sub read {
19 0     0 1   my $self = shift;
20 0           my ( $level ) = @_;
21              
22             $SpeL::I18n::lh->maketext( 'Overbrace',
23             $self->{group}->read( $level + 1 ),
24 0           $self->{over}->read( $level + 1 ) );
25             }
26              
27              
28             1;
29              
30             __END__