File Coverage

blib/lib/SpeL/Object/Unit.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::Unit;
6              
7              
8 41     41   259 use parent 'Exporter';
  41         84  
  41         244  
9 41     41   2956 use Carp;
  41         98  
  41         2603  
10              
11 41     41   228 use Data::Dumper;
  41         83  
  41         1586  
12              
13 41     41   217 use SpeL::Object::SIUnits;
  41         70  
  41         4496  
14              
15              
16              
17             sub read {
18 1     1 1 2 my $self = shift;
19 1         2 my ( $level ) = @_;
20              
21 1         8 return $self->{Units}->read( $level + 1 );
22             }
23              
24             1;
25              
26             __END__