File Coverage

blib/lib/SpeL/Object/Realnumber.pm
Criterion Covered Total %
statement 27 27 100.0
branch 8 10 80.0
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 43 45 95.5


line stmt bran cond sub pod time code
1             # -*- cperl -*-
2             # ABSTRACT: LaTeX Realnumber object
3              
4              
5 41     41   310 use strict;
  41         82  
  41         1601  
6 41     41   211 use warnings;
  41         81  
  41         2895  
7             package SpeL::Object::Realnumber;
8              
9 41     41   240 use parent 'Exporter';
  41         92  
  41         292  
10 41     41   2795 use Carp;
  41         79  
  41         3191  
11              
12 41     41   236 use SpeL::I18n;
  41         97  
  41         1055  
13              
14 41     41   184 use Data::Dumper;
  41         92  
  41         10938  
15              
16              
17              
18             sub read {
19 100     100 1 201 my $self = shift;
20 100         188 my ( $level ) = @_;
21 100         186 my $sign = '';
22 100 50       269 if ( exists $self->{Sign} ) {
23 100 50       282 $sign .= $self->{Sign} eq '+' ? $SpeL::I18n::lh->maketext('+') . ' ' : '';
24 100 100       281 $sign .= $self->{Sign} eq '-' ? $SpeL::I18n::lh->maketext('-') . ' ' : '';
25             }
26 100 100       635 $self->{Value} =~ /pi/ and return $sign . $SpeL::I18n::lh->maketext('pi');
27 94 100       261 $self->{Value} =~ /infty/ and return $sign . $SpeL::I18n::lh->maketext('infty');
28 93         562 return $sign . $self->{Value};
29             }
30              
31             1;
32              
33             __END__