File Coverage

blib/lib/SpeL/Object/Qty.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 25 25 100.0


line stmt bran cond sub pod time code
1             # -*- cperl -*-
2             # ABSTRACT: LaTeX operator object
3              
4              
5             package SpeL::Object::Qty;
6              
7              
8 41     41   276 use parent 'Exporter';
  41         78  
  41         249  
9 41     41   3382 use Carp;
  41         87  
  41         2988  
10              
11 41     41   289 use Data::Dumper;
  41         78  
  41         2197  
12              
13 41     41   222 use SpeL::Object::Scientificnumber;
  41         97  
  41         2475  
14 41     41   18122 use SpeL::Object::SIUnits;
  41         131  
  41         4826  
15              
16              
17              
18             sub read {
19 3     3 1 7 my $self = shift;
20 3         7 my ( $level ) = @_;
21              
22             return $self->{Value}->read( $level + 1 )
23 3         20 . $self->{Units}->read( $level + 1 );
24            
25             }
26              
27             1;
28              
29             __END__