File Coverage

blib/lib/SpeL/Object/SIUnits.pm
Criterion Covered Total %
statement 23 23 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 31 31 100.0


line stmt bran cond sub pod time code
1             # -*- cperl -*-
2             # ABSTRACT: LaTeX Scientificnumber object
3              
4              
5 41     41   314 use strict;
  41         85  
  41         1672  
6 41     41   214 use warnings;
  41         72  
  41         2737  
7             package SpeL::Object::SIUnits;
8              
9 41     41   254 use parent 'Exporter';
  41         77  
  41         277  
10 41     41   2739 use Carp;
  41         82  
  41         2763  
11              
12 41     41   273 use SpeL::I18n;
  41         102  
  41         1053  
13              
14 41     41   196 use Data::Dumper;
  41         100  
  41         7290  
15              
16              
17              
18             sub read {
19 4     4 1 9 my $self = shift;
20 4         10 my ( $level ) = @_;
21 4         11 my $units = $self->{''};
22 4         33 $units =~ s/[{\\}]//g;
23 4         25 return ' ' . $units . ' ';
24             }
25              
26             1;
27              
28             __END__