File Coverage

blib/lib/SpeL/Object/Integernumber.pm
Criterion Covered Total %
statement 25 25 100.0
branch 4 6 66.6
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 37 39 94.8


line stmt bran cond sub pod time code
1             # -*- cperl -*-
2             # ABSTRACT: LaTeX Integernumber object
3              
4              
5 41     41   264 use strict;
  41         75  
  41         1910  
6 41     41   210 use warnings;
  41         103  
  41         2621  
7             package SpeL::Object::Integernumber;
8              
9 41     41   239 use parent 'Exporter';
  41         77  
  41         250  
10 41     41   3160 use Carp;
  41         83  
  41         2820  
11              
12 41     41   233 use SpeL::I18n;
  41         69  
  41         1095  
13              
14 41     41   189 use Data::Dumper;
  41         340  
  41         8029  
15              
16              
17              
18             sub read {
19 4     4 1 128 my $self = shift;
20 4         9 my ( $level ) = @_;
21 4         8 my $sign = '';
22 4 50       12 if ( exists $self->{Sign} ) {
23 4 50       13 $sign .= $self->{Sign} eq '+' ? $SpeL::I18n::lh->maketext('+') . ' ' : '';
24 4 100       12 $sign .= $self->{Sign} eq '-' ? $SpeL::I18n::lh->maketext('-') . ' ' : '';
25             }
26 4         44 return $sign . $self->{Value};
27             }
28              
29             1;
30              
31             __END__