File Coverage

blib/lib/SpeL/Object/Num.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 21 21 100.0


line stmt bran cond sub pod time code
1             # -*- cperl -*-
2             # ABSTRACT: LaTeX operator object
3              
4              
5             package SpeL::Object::Num;
6              
7              
8 41     41   295 use parent 'Exporter';
  41         83  
  41         250  
9 41     41   2840 use Carp;
  41         84  
  41         2641  
10              
11 41     41   232 use Data::Dumper;
  41         71  
  41         1877  
12              
13 41     41   18595 use SpeL::Object::Scientificnumber;
  41         126  
  41         4376  
14              
15              
16              
17             sub read {
18 5     5 1 9 my $self = shift;
19 5         11 my ( $level ) = @_;
20              
21 5         19 return $self->{Value}->read( $level + 1 );
22             }
23              
24             1;
25              
26             __END__